MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Ü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
Gönderen : mYavuz
Telif :
Tarih : 20 May�s 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 16903
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 için yazılan 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:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.92.163.188 | 0,12 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.