Texboxtaki tarihi yazıya çevirmek.

[omeryılmaz]

Texbox1 de kayıtlı 15.12.2009 şeklindeki bir tarihi Texbox2 de "OnbeşAralıkİkibindokuz" şeklinde yazdırmak mümkün mü?

İlginiz için şimdiden teşekkürlerimi sunarım.


Örnek
Kod çalışması buldum fakat çalıştıramadım

 

[omeryılmaz]

Option Explicit
Public Function TARİHYAZ(Tarih As String) 'gg.aa.yyyy biçimindeki metini yazıya dönüştürür
Dim gün, ay, yıl1, yıl2, yıl3, yıl4 As String
If Val(Left(Tarih, 2)) = 0 Then gün = ""
If Val(Left(Tarih, 2)) = 1 Then gün = "BİR"
If Val(Left(Tarih, 2)) = 2 Then gün = "İKİ"
If Val(Left(Tarih, 2)) = 3 Then gün = "ÜÇ"
If Val(Left(Tarih, 2)) = 4 Then gün = "DÖRT"
If Val(Left(Tarih, 2)) = 5 Then gün = "BEŞ"
If Val(Left(Tarih, 2)) = 6 Then gün = "ALTI"
If Val(Left(Tarih, 2)) = 7 Then gün = "YEDİ"
If Val(Left(Tarih, 2)) = 8 Then gün = "SEKİZ"
If Val(Left(Tarih, 2)) = 9 Then gün = "DOKUZ"
If Val(Left(Tarih, 2)) = 10 Then gün = "ON"
If Val(Left(Tarih, 2)) = 11 Then gün = "ONBİR"
If Val(Left(Tarih, 2)) = 12 Then gün = "ONİKİ"
If Val(Left(Tarih, 2)) = 13 Then gün = "ONÜÇ"
If Val(Left(Tarih, 2)) = 14 Then gün = "ONDÖRT"
If Val(Left(Tarih, 2)) = 15 Then gün = "ONBEŞ"
If Val(Left(Tarih, 2)) = 16 Then gün = "ONALTI"
If Val(Left(Tarih, 2)) = 17 Then gün = "ONYEDİ"
If Val(Left(Tarih, 2)) = 18 Then gün = "ONSEKİZ"
If Val(Left(Tarih, 2)) = 19 Then gün = "ONDOKUZ"
If Val(Left(Tarih, 2)) = 20 Then gün = "YİRMİ"
If Val(Left(Tarih, 2)) = 21 Then gün = "YİRMİBİR"
If Val(Left(Tarih, 2)) = 22 Then gün = "YİRMİİKİ"
If Val(Left(Tarih, 2)) = 23 Then gün = "YİRMİÜÇ"
If Val(Left(Tarih, 2)) = 24 Then gün = "YİRMİDÖRT"
If Val(Left(Tarih, 2)) = 25 Then gün = "YİRMİBEŞ"
If Val(Left(Tarih, 2)) = 26 Then gün = "YİRMİALTI"
If Val(Left(Tarih, 2)) = 27 Then gün = "YİRMİYEDİ"
If Val(Left(Tarih, 2)) = 28 Then gün = "YİRMİSEKİZ"
If Val(Left(Tarih, 2)) = 29 Then gün = "YİRMİDOKUZ"
If Val(Left(Tarih, 2)) = 30 Then gün = "OTUZ"
If Val(Left(Tarih, 2)) = 31 Then gün = "OTUZBİR"
If Val(Mid(Tarih, 4, 2)) = 0 Then ay = ""
If Val(Mid(Tarih, 4, 2)) = 1 Then ay = " OCAK "
If Val(Mid(Tarih, 4, 2)) = 2 Then ay = " ŞUBAT "
If Val(Mid(Tarih, 4, 2)) = 3 Then ay = " MART "
If Val(Mid(Tarih, 4, 2)) = 4 Then ay = " NİSAN "
If Val(Mid(Tarih, 4, 2)) = 5 Then ay = " MAYIS "
If Val(Mid(Tarih, 4, 2)) = 6 Then ay = " HAZİRAN "
If Val(Mid(Tarih, 4, 2)) = 7 Then ay = " TEMMUZ "
If Val(Mid(Tarih, 4, 2)) = 8 Then ay = " AĞUSTOS "
If Val(Mid(Tarih, 4, 2)) = 9 Then ay = " EYLÜL "
If Val(Mid(Tarih, 4, 2)) = 10 Then ay = " EKİM "
If Val(Mid(Tarih, 4, 2)) = 11 Then ay = " KASIM "
If Val(Mid(Tarih, 4, 2)) = 12 Then ay = " ARALIK "
If Val(Mid(Tarih, 7, 1)) = 1 Then yıl1 = "BİN"
If Val(Mid(Tarih, 7, 1)) = 2 Then yıl1 = "İKİBİN"
If Val(Mid(Tarih, 8, 1)) = 0 Then yıl2 = ""
If Val(Mid(Tarih, 8, 1)) = 1 Then yıl2 = "YÜZ"
If Val(Mid(Tarih, 8, 1)) = 2 Then yıl2 = "İKİYÜZ"
If Val(Mid(Tarih, 8, 1)) = 3 Then yıl2 = "ÜÇYÜZ"
If Val(Mid(Tarih, 8, 1)) = 4 Then yıl2 = "DÖRTYÜZ"
If Val(Mid(Tarih, 8, 1)) = 5 Then yıl2 = "BEŞYÜZ"
If Val(Mid(Tarih, 8, 1)) = 6 Then yıl2 = "ALTIYÜZ"
If Val(Mid(Tarih, 8, 1)) = 7 Then yıl2 = "YEDİYÜZ"
If Val(Mid(Tarih, 8, 1)) = 8 Then yıl2 = "SEKİZYÜZ"
If Val(Mid(Tarih, 8, 1)) = 9 Then yıl2 = "DOKUZYÜZ"
If Val(Mid(Tarih, 9, 1)) = 0 Then yıl3 = ""
If Val(Mid(Tarih, 9, 1)) = 1 Then yıl3 = "ON"
If Val(Mid(Tarih, 9, 1)) = 2 Then yıl3 = "YİRMİ"
If Val(Mid(Tarih, 9, 1)) = 3 Then yıl3 = "OTUZ"
If Val(Mid(Tarih, 9, 1)) = 4 Then yıl3 = "KIRK"
If Val(Mid(Tarih, 9, 1)) = 5 Then yıl3 = "ELLİ"
If Val(Mid(Tarih, 9, 1)) = 6 Then yıl3 = "ALTMIŞ"
If Val(Mid(Tarih, 9, 1)) = 7 Then yıl3 = "YETMİŞ"
If Val(Mid(Tarih, 9, 1)) = 8 Then yıl3 = "SEKSEN"
If Val(Mid(Tarih, 9, 1)) = 9 Then yıl3 = "DOKSAN"
If Val(Mid(Tarih, 10, 1)) = 0 Then yıl4 = ""
If Val(Mid(Tarih, 10, 1)) = 1 Then yıl4 = "BİR"
If Val(Mid(Tarih, 10, 1)) = 2 Then yıl4 = "İKİ"
If Val(Mid(Tarih, 10, 1)) = 3 Then yıl4 = "ÜÇ"
If Val(Mid(Tarih, 10, 1)) = 4 Then yıl4 = "DÖRT"
If Val(Mid(Tarih, 10, 1)) = 5 Then yıl4 = "BEŞ"
If Val(Mid(Tarih, 10, 1)) = 6 Then yıl4 = "ALTI"
If Val(Mid(Tarih, 10, 1)) = 7 Then yıl4 = "YEDİ"
If Val(Mid(Tarih, 10, 1)) = 8 Then yıl4 = "SEKİZ"
If Val(Mid(Tarih, 10, 1)) = 9 Then yıl4 = "DOKUZ"
TARİHYAZ = gün & ay & yıl1 & yıl2 & yıl3 & yıl4
End Function
Public Function SAYIYAZ(Sayı As Long)
SAYIYAZ = "HENÜZ TAMAMLANMADI"
End Function

 

[Zeki Gürsoy]

Dosyanız ektedir..

Form_Modul:

Private Sub CommandButton1_Click()
gun = WorksheetFunction.Proper(Ceviri(Day(TextBox1)))
ay = WorksheetFunction.Proper(Aylar(Month(TextBox1)))
yil = WorksheetFunction.Proper(Ceviri(Year(TextBox1)))

TextBox2 = gun & " " & ay & " " & yil
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1 = Format(Date, "dd/mm/yyyy")
End Sub

Bas_Modul:

Function Aylar(xyz As Byte) As String
Dim arr(1 To 12) As String, i As Byte

For i = 1 To 12
    arr(i) = MonthName(i)
Next

Aylar = arr(xyz)
Erase arr
End Function

Function Ceviri(Say As String) As String
Dim arr() As Variant, c(1 To 3) As String, tmp As String, s As Byte
    
arr = Array("", "BİR", "İKİ", "ÜÇ", "DÖRT", "BEŞ", "ALTI", "YEDİ", "SEKİZ", "DOKUZ", _
"", "ON", "YİRMİ", "OTUZ", "KIRK", "ELLİ", "ALTMIŞ", "YETMİŞ", "SEKSEN", "DOKSAN", _
"", "YÜZ", "İKİYÜZ", "ÜÇYÜZ", "DÖRTYÜZ", "BEŞYÜZ", "ALTIYÜZ", "YEDİYÜZ", "SEKİZYÜZ", "DOKUZYÜZ", _
"TRİLYON", "MİLYAR", "MİLYON", "BİN", "")
    
Say = String$(15 - Len(Say), "0") + Say
For i = 1 To 15 Step 3
     s = s + 1
     c(1) = Mid$(Say, i, 1)
     c(2) = Mid$(Say, i + 1, 1)
     c(3) = Mid$(Say, i + 2, 1)
     tmp = arr(20 + c(1)) & arr(10 + c(2)) & arr(c(3))
     If tmp <> "" Then tmp = IIf(s = 4 And Trim$(tmp) = "BİR", "BİN", tmp & arr(30 + (s - 1)))
     Ceviri = Ceviri & tmp
Next

Erase arr
Erase c
tmp = Empty
End Function

 

[janveljan]

Bu da sizin gönderdiğiniz örneğin düzenlenmiş hali.

 

[EMREAFSAR]

Yardımcı olumusunuz

Arkadaşlar bi formüle ihtiyacım var. Yardımcı olursanız sevinirim. Iyi çalışmalar.