tarihi yazıya çevir?

[karaayhan]

tarih formatını yazıya çevirmek istiyorum aradım forumda yok böyle birşey
bilen varsa kodları örnek üzerinde uygulamak isterim

teşekkürler..

 

[mehmetdemiral]

Hep diyorum bu forumda yok yok. İşte sayın modalı'nın örneği.. Buyrun

 

[mami68]

Merhaba.
Bunu excelde makrolarla nasıl uygularız?İyi çalışmalar

 

[karaayhan]

teşekkürler mehmet bey
tarihi yazıya çevirmek olarak aramıştım


iyi çalışmalar

Not= Sayın Modalı size de yine çok teşekkür ederim..

 

[Taruz]

Merhaba..

Alternatif olması açısından, bu konuda bende daha önce diğer kardeş forumda bir üyemizin sorusu üzerine bir örnek hazırlamıştım.. Faydası dokunabilir.. Tablo kullanmadan direkt modül üzerinde işlem gerçekleştiriliyor.. Genelde sayıyı yazıya çevirmede kullandığımız modülü ilgili amaca göre değiştirmiştim..

Selamlar herkese..

 

[mehmetdemiral]

Ne yalan söyleyim, dün aynı işi yapayım diye modülü modalının örneğine aldım, başladım düzenlemeye.. Sonra da erindiğimden mi uykum geldiğinden mi bilmiyorum bıraktım.. İyi ki bırakmışım, Taruz zaten yapacakmış. Ellerine sağlık usta, çok iyi olmuş.. Referans olmadığı için yıl sınırı da yok, tablo da yok. Tam örnek bu olmuş..

 

[karaayhan]

benim aklımada geldi ama kod bilgim kıt olduğundan sanırım el atamadım
teşekkürler taruz kardeş,,,


iyi çalışmalar

 

[EMREAFSAR]

Ya arkadaşlar kendimi bir anda aptal sanmaya başladım. Excell de ''03.06.2011'' yazısını ''üç haziran ikibinonbir'' diye yazdırmayı bir türlü beceremedim. Noolur bana yardım edin...

 

[modalı]

Sayın emreafsar,

Gerçi forumda var ama tekrar edeyim. Aşağıdaki kullanıcı tanımlı fonksiyonu bir modüle ekleyin.

Function TYazi(gir As Date)

    b = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
    o = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")

    al = Day(gir)
    GoSub coz
    TYazi = ekle & Format(gir, "mmmm")
    al = Year(gir)
    GoSub coz
    TYazi = TYazi & ekle
    Exit Function
coz:
    ekle = ""
    uz = Len(al)
    For x = 1 To uz
        Bul = Mid(al, uz - x + 1, 1)
        If Bul > 0 Then
            Select Case x
                Case 1: ekle = b(Bul)
                Case 2: ekle = o(Bul) & ekle
                Case 3: ekle = b(Bul) & "yüz" & ekle
                Case 4: ekle = b(Bul) & "bin" & ekle
            End Select
        End If
    Next x
    ekle = Replace(Replace(ekle, "birbin", "bin"), "biryüz", "yüz")
    ekle = WorksheetFunction.Proper(ekle)
    Return
End Function

Sonrada TYazi(TarihAlanınız) şeklinde kullanınız.

İyi çalışmalar