strTarih = GecenZamaniBul(rs 'Şeklinde olacak. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Function GecenZamaniBul If strVeri = "" Then Exit Function GecenSaniye = DateDiff("s", strVeri, now if GecenSaniye = 0 then GecenZamaniBul = "Biraz nce" elseif GecenSaniye >= 1 and GecenSaniye < 60 then GecenZamaniBul = ""&GecenSaniye&" saniye nce" elseif GecenSaniye >= 60 and GecenSaniye < 3600 then GecenZamaniBul = ""&int(GecenSaniye/60)&" dakika nce" elseif GecenSaniye >= 3600 and GecenSaniye < 86400 then GecenZamaniBul = ""&int(GecenSaniye/3600)&" saat nce" elseif GecenSaniye >= 86400 and GecenSaniye < 604800 then GecenZamaniBul = ""&int(GecenSaniye/86400)&" gün nce" elseif GecenSaniye >= 604800 and GecenSaniye < 2592000 then GecenZamaniBul = ""&int(GecenSaniye/604800)&" hafta nce" elseif GecenSaniye >= 2592000 and GecenSaniye < 31104000 then GecenZamaniBul = ""&int(GecenSaniye/2592000)&" ay nce" elseif GecenSaniye >= 31104000 then GecenZamaniBul = ""&int(GecenSaniye/31104000)&" yıl nce" end ifEnd Function Kullanımı şu şekildedir;strTarih = GecenZamaniBulrs Response. write strTarih 'Güle güle kullanın. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.