'**************** TARİH İŞLEMLERİ ******************* 
dim Gunler,Aylar 
Gunler = Array("", "Pazar", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi") 
Aylar = Array("", "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık") 
 
Function TarihDuzenle1(Tarih) '13 Haziran 1977 
     TarihDuzenle1= Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) 
End Function 
 
Function TarihDuzenle2(Tarih) '13 Haziran 1977 Pazartesi 
     TarihDuzenle2= Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) & " " & Gunler(WeekDay(Tarih)) 
End Function 
 
Function TarihDuzenle3(Tarih) '13 Haziran 1977 Pazartesi Saat: 11:30 
     TarihDuzenle3= Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) & " " & Gunler(WeekDay(Tarih)) & "<br>Saat: " & TimeValue(Tarih) 
End Function 
 
Function TarihDuzenle4(Tarih) '13 Haziran 1977 Pazartesi Saat: 11:30 
     TarihDuzenle4= Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) & " " & Gunler(WeekDay(Tarih)) & " Saat: " & TimeValue(Tarih) 
End Function 
 
Function TarihDuzenle5(Tarih) 'Pazartesi 13 Haziran 1977 Saat: 11:30 
     TarihDuzenle5= Gunler(WeekDay(Tarih)) & " " & Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) & "  Saat: " & TimeValue(Tarih) 
End Function 
 
'**************** TARİH İŞLEMLERİ ******************* 
Function TarihCevir(Tarih) 'mysql de lazım olur. 
     TarihCevir = Month(Tarih) & "/" & Day(Tarih) & "/" & Year(Tarih) 
End Function 
%>
 
 
Bu sayfaya link verin: