Geçen Zamanı Gösteren Asp Fonksiyonu. (Son Zamanlarda Moda Olan)

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Geçen Zamanı Gösteren Asp Fonksiyonu. (Son Zamanlarda Moda Olan)

21/Şub/08 01:03 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Function GecenZamaniBul(strVeri)
   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 if
End Function

Kullanımı şu şekildedir;
strTarih = GecenZamaniBulrs("tarih"))
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.

Alıntı yap
21/Şub/08 01:05 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

strTarih = GecenZamaniBul(rs("tarih")) 'Şeklinde olacak.

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

Toplam Hit: 820 Toplam Mesaj: 2

Cevapla