Geçen Süreli Tarih Biçimi

<%
strVeri = "17.03.2003 21:15"
GecenDakika = DateDiff("n", strVeri, now())
if GecenDakika < 1 then
suremiz = "1 dakika önce"
elseif GecenDakika =< 1440 then
suremiz = ""&int(GecenDakika/60)&" saat önce"
elseif GecenDakika < 10080 then
suremiz = ""&int(GecenDakika/1440)&" gün önce"
elseif GecenDakika < 40320 then
suremiz = ""&int(GecenDakika/10080)&" hafta önce"
elseif GecenDakika < 483840 then
suremiz = ""&int(GecenDakika/40320)&" ay önce"
else
suremiz = ""&int(GecenDakika/483840)&" yıl önce"
end if
response.write suremiz
'Telif hakkı http://serkan.teorik.net
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

geçen süreli tarih biçimi