MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 ye Ol



Anasayfa > Asp > Kodlar

Türkçe Tarih Fonksiyonu

Biçimlendirilmiş, gün ve ay isimlerini Türkçe gösteren tarih fonksiyonu

Kategori : Asp
Gnderen : mYavuz
Telif :
Tarih : 20 Mayıs 2005
rnek Dosya : Bulunmamakta
Okunma Says : 17552
Puan
: 7 / 10 (3 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
<%
'|============================
'| Türkçe Tarih Fonksiyonu
'| mydesign a.k.a doronty37
'| http://www.mydesign.gen.tr
'| mydesign@mydesign.gen.tr
'|============================


Function TarihFormatla(ByVal strTarih)

      '// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
     If strTarih = "" or IsDate(strTarih) = False Then Exit Function

     Dim Gunler
     Dim Aylar

     blnSaat = True '// Eğer Saatin Gösterilmesini İstemiyorsanız Değeri False Yapın

      '// Gün ve Ay İsimleri Dizileri Hazırlanıyor
     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")


      '// Tarihten Veriler Alınıyor
     Saniye = Second(strTarih)
     Dakika = Minute(strTarih)
     Saat = Hour(strTarih)
     Gun = Day(strTarih)
     Gun_Adi = WeekDay(strTarih)
     Ay = Month(strTarih)
     Yil = Year(strTarih)


      '// Biçimlendirmenin Bozulmaması İçin Değerler  2 Karakterden Kısaysa  Başlarına 0 Ekleniyor
     If Len(Gun) < 2 then  Gun="0" & Gun 

     If Len(Saat) < 2 then Saat="0" & Saat

     If Len(Dakika) < 2 then Dakika="0" & Dakika 

     If Len(Saniye) < 2 then Saniye="0" & Saniye 

      '// Eğer Girilen Tarihte Saat Yoksa Saat Kısmı Kaldırılıyor
     If Saniye = "00" and Dakika = "00" and Saat = "00" then blnSaat = False


     TarihFormatla = Gun &"&nbsp;"& Aylar(Ay) &"&nbsp;"& Yil &" / "& Gunler(Gun_Adi)

     If blnSaat then TarihFormatla = TarihFormatla &"&nbsp;"& Saat &":"& Dakika &":"& Saniye

End Function
%>


Kullanımı:

<%=TarihFormatla("07/04/1985")%>
 
 

Türkçe Tarih Fonksiyonu iin yazlan yorumlar

Fatih  { 06 Nisan 2011 }
Ellerinize sağlık teşekkürler ama çarçamba yazmışsınız :)

Hasan Gürsoy  { 29 Kasım 2008 }
Ellerinize sağlık, faydalı bir kod oldu benim için.

Yorum ekleyin

Anasayfa > Asp > Kodlar > Türkçe Tarih Fonksiyonu
Kategoriler:


Forum:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 34.204.203.142 | 0,15 Saniye
    © Copyright 2004-2019 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.