Üye Kayıt Üye Giriş

Basit Tarih Formatlama Fonksiyonları


Basit Tarih Formatlama Fonksiyonları

 
'**************** 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

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER