ASP Tarih Islemleri (3)
Merhabalar yine cok uzun bir sureden sonra sizlerle kisa ama isinize yarayabilecegini dusundugum bir fonksiyon yayimliyorum. Umarim bu fonksiyon kisisel projelerinizde isinize yarar ve kullanimini kavrayabilirsiniz.

Bu fonksiyonu yayimlamadan once uzun suredir islerimin yogunlugu kaynakli sizlere yeni paylasimlarda bulunamadigim icin kusura bakmamanizi dilerim.

Bilgisayarimin basina oturabilecek vakit bile bulamiyorum. Surekli seyahat halindeyim. Bu yuzden ilk buldugum bu firsati hemen degerlendirmek istedim (:

Konumuza gelirsek;

Facebook, Twitter gibi sosyal paylasim icerikli sitelerde insanlarin yaptigi aktivitelerin yazildigi zamanlar onemli. Ama direk tarih vermek yerine x saniye, x dakika, x saat gibi belirtilmesi okunmasini kolaylastiriyor ve daha hos bir goruntu olusmasini sagliyor. Bende bunun nasil olabilecegini iceren bir fonksiyon hazirladim.

Bunun icin asagidaki gibi bir fonksiyon kullanabiliriz. Bunu gelistirmek, basitlestirmek tabii ki yine sizin eliniz de (;

Function TarihHesaplama(gelenveri)
ilk_zaman = gelenveri
son_zaman = Now()
If NOT DateDiff("s",ilk_zaman,son_zaman) < 60 then
If NOT DateDiff("n",ilk_zaman,son_zaman) < 60 then
If NOT DateDiff("h",ilk_zaman,son_zaman) < 24 then
If NOT DateDiff("d",ilk_zaman,son_zaman) < 30 then
Response.Write DateDiff("m",ilk_zaman,son_zaman)&" ay once"
Else
Response.Write DateDiff("d",ilk_zaman,son_zaman)&" gun once"
End If
Else
Response.Write DateDiff("h",ilk_zaman,son_zaman)&" saat once"
End If
Else
Response.Write DateDiff("n",ilk_zaman,son_zaman)&" dakika once"
End If
Else
Response.Write DateDiff("s",ilk_zaman,son_zaman)&" saniye once"
End If
End Function


Kullanimi:
<%=TarihHesaplama(RS("tarih"))%>
September 7, 2010
Ayberk Atasay
ASP
1 yorum