HAZİRAN20
Kayıt edileli ne kadar süre geçmiş
Merhaba ,
ASP Programlama kategorisinde sık sık kendi kullandığım fonksiyonları ve kod parçalarını sizlerle paylaşacağım.
İlk fonksiyon aşağıda.
<%
Function KacGun(dTarih)
If Not Isdate(dTarih) then
KacGun = "Hiç bir zaman."
else
GunSayisi = DateDiff("d", dTarih, Date())
if GunSayisi = 0 Then
SaatSayisi = DateDiff("h", dTarih, Now())
if SaatSayisi = 0 Then
KacGun = "Bugün, "& DateDiff("n", dTarih, Now()) &" dakika önce"
else
KacGun = "Bugün, "& SaatSayisi &" saat önce"
end if
elseif GunSayisi = 1 Then
KacGun = "Dün"
else
KacGun = GunSayisi &" gün önce"
end if
end if
End Function
%>
Kullanımı :
Response.Write Kacgun(TarihBilgisi)
Umarım işinizi görür.



