|
Tarih Format`ı
Bu fonksiyon ile almış olduğunuz tarih`i farklı format`ta ekrana yazdırabilirsiniz.
Örnek vermek gerekirse
Tarihimizin fonksiyon`a girebilmesi için format`ın <%=now()%> şeklindeki gibi "26.04.2005 23:47:25" şeklindeki format`ta olması gerekmektedir.
Bu tarihin çıktısı ise
"26 Nisan 2005 Salı, Saat 23:47" şeklinde olacaktır.
Fonksiyon aşağıdadır.
<%
Function TarihFormat(Gelen)
Gunler = Array("0","Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi","Pazar")
Aylar = Array("0", "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran" ,"Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
strDiziGelen = Split(Gelen," ")
If Instr(Gelen," ") > 0 Then
strDiziGelenNokta = Split(strDiziGelen(1),":")
strDiziGelenSonuc = strDiziGelenNokta(0) & ":" & strDiziGelenNokta(1)
Else
strDiziGelenSonuc = ""
End If
Gelen = cDate(Gelen)
TarihFormat = Day(Gelen) & " " & Aylar(Month(Gelen)) & " " & Year(Gelen) & " " & Gunler(WeekDay(Gelen, vbMonday)) & ", Saat " & strDiziGelenSonuc
END Function
Response.Write TarihFormat(now())
%>
Ekrana yazdırırken fonksiyon adını kullanmanız yeter.Örnek vermek gerekirse
<%
strTarih = "26.04.2005 23:54:54"
Response.Write TarihFormat(strTarih)
%>
şeklinde veya tarih yerine veritabanınızdaki bir kayıdı kullanabilirsiniz.
Ekrana now() deneyerek`de test edebilirsiniz.
Kullanımın örneğini forumlarda tarih gösteriminde görebilirsiniz.
ASPREHBERI.NET sitesinden Alıntıdır.
|
 |
Arkadaşınıza gönderin
