Rakamı para cinsine göre yazıya çevirme(TUR-ENG)Krs.Hata Yrd

[skaan]

Merhaba;
Sayın Yurttasın hazırlamış oldugu ekte bulunan Rakamı para cinsine göre yazıya çevirme(TUR-ENG) dosyasını kullanırken ceviri sırasında ORNEK1 VE ORNEK2 SHEETLERİNDE
kuruş hanesinde bazı problemler yaşadım.
Ekte örnek olarak dosyada gorecegınız gıbı 111,111.01 olan sayıyı yazıya cevırmek ıstedıgımde "yaz" kombinasyonunda (Türkçe tarafında) kurus hanesınde problem yasıyorum.
…01 olan kuruş hanesını yazı ile getirmiyor..
Lutfen dosyaya gözatıp sorunun çözülmesinde yardımcı olabilirmisiniz.
Teşekkürler
İyi Günler Dilerim.
Saygılar
Skaan

 

[Merhum İdris SERDAR]

Merhaba;
Sayın Yurttasın hazırlamış oldugu ekte bulunan Rakamı para cinsine göre yazıya çevirme(TUR-ENG) dosyasını kullanırken ceviri sırasında ORNEK1 VE ORNEK2 SHEETLERİNDE
kuruş hanesinde bazı problemler yaşadım.
Ekte örnek olarak dosyada gorecegınız gıbı 111,111.01 olan sayıyı yazıya cevırmek ıstedıgımde "yaz" kombinasyonunda (Türkçe tarafında) kurus hanesınde problem yasıyorum.
…01 olan kuruş hanesını yazı ile getirmiyor..
Lutfen dosyaya gözatıp sorunun çözülmesinde yardımcı olabilirmisiniz.
Teşekkürler
İyi Günler Dilerim.
Saygılar
Skaan

.

En sonda yer alan:

Function GetDigit(Digit)
    Select Case Val(Digit)
    
       [COLOR="Red"] Case 1: GetDigit = "Bir"[/COLOR]
        Case 2: GetDigit = "İki"
        Case 3: GetDigit = "Üç"
        Case 4: GetDigit = "Dört"
        Case 5: GetDigit = "Beş"
        Case 6: GetDigit = "Altı"
        Case 7: GetDigit = "Yedi"
        Case 8: GetDigit = "Sekiz"
        Case 9: GetDigit = "Dokuz"

        Case Else: GetDigit = ""
    End Select
End Function

şeklinde düzeltin.

.

 

[skaan]

Merhaba;
Dediğiniz gibi yaptıktan sonra ;

PARALAR TÜRKÇE
111,111.01 Bir Yüz On bir Bin Bir Yüz On bir Türk Lirası Bir Kr

Turkce metnin başına "Bir" yazarak getiriyor..

Yardımcı olmanızı rica ediyorum.
Tşk.
SKaan

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı güncelledim.

http://www.excel.web.tr/f116/rakamy-para-cinsine-gore-yazyya-cevirme-tur-eng-t116249.html

Kontrol eder misiniz?


.