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.