Tayfun
| | Tarih: 10.12.2006, 01:18 Mesaj konusu: Geçen Zaman Gösterimi (ASP) | |
| Bu fonksiyonu kullanarak yazdırdığınız tarihlerin şimdiki zaman'a kadar olanki zamanı duruma göre dakika,saat,gün,ay ve yıl olarak gösterimini yapabilirsiniz.Bu fonksiyonda tarih bir saatten küçük ise x dakika önce, günden küçük ise x saat, x dakika önce gibi tarih büyüdükçe gösterim şekilleri değişmektedir.Kullanacağınız tarih üzerinde fonksiyonu kullanmanız yeterli olacaktır.Tarih örnek olarak : 09.04.2005 20:24:00 gibi bir değer olmalıdır.Gösterimi test adresindeki forum'da tarih gösterimleri şeklindedir.
Örnek olarak Fonksiyonu aşağıdaki şekilde kullanabilirsiniz.strTarih yerine veritabanından veya başka bir yerden aldığınız tarihi kullanabilirsiniz.Format aşağıdaki şekilde olması gerekiyor
<%
strTarih = "07.08.2005 20:34:20"
Response.Write TarihGoster(strTarih)
%>
Fonksiyon aşağıdadır.
***************************************************************
<%
Function TarihGoster(gelen)
'// Coded by Serdar Toros //'
'// URL : http://www.asprehberi.net //'
sGun = DateDiff("d", gelen, Date)
sAy = DateDiff("m", gelen, Date)
sYil = DateDiff("yyyy", gelen, Date)
sSaat = DateDiff("h", gelen, now())
sDakika = DateDiff("n", gelen, now())
IF sYil = 0 THEN
IF sAy = 0 THEN
IF sGun = 0 THEN
IF sSaat = 0 THEN
TarihGoster = sDakika & " Dakika önce"
ELSE
IF sDakika > 60 THEN
TarihGoster = sSaat & " Saat, " & sDakika MOD 60 & " Dakika önce"
ELSE
TarihGoster = sDakika & " Dakika önce"
END IF
END IF
ELSE
TarihGoster = sGun & " Gün, " & sSaat MOD 24 & " Saat önce"
END IF
ELSE
IF sAy-1 = 0 THEN
TarihGoster = sGun & " Gün, " & sSaat MOD 24 & " Saat önce"
ELSE
TarihGoster = sAy-1 & " Ay, " & sGun MOD 30 & " Gün önce"
END IF
END IF
ELSE
IF sYil-1 = 0 THEN
TarihGoster = sAy & " Ay, " & sGun MOD 30 & " Gün önce"
ELSE
TarihGoster = sYil-1 & " Yıl, " & sAy MOD 12 & " Ay önce"
END IF
END IF
END Function
%>
|
|
