Ondalıklı Sayıyı Yazıya Çevirme

1 2
13/12/2019, 15:06

derzulya

Teşekkürler oldu. 
https://accesstr.net/konu-giris-maskesi-...#pid161055 konusundaki ek için
Tutardaki kuruşları wordde yazıyla parantez içinde yazarken kuruşları yazmıyor. Bu konu ile ilgilide yeni başlık açmalı mıyım ? yoksa buradan devam edebilir miyiz.
13/12/2019, 15:34

berduş

fonksiyonun kendinden kaynaklanan bir şey fonksiyonun düzenlenmesi gerek bence
yanlış mı anladım?
eğer fonksiyonun düzeltilmesini istiyorsanız yeni konu açın yoksa buradan devam edin.
13/12/2019, 16:21

berduş

öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Function Sayiyi_Metne_CevirKr(Sayi As Double)
Dim mtnTL, mtnKr, xSayi As String
Dim TlKr() As String
xSayi = CStr(Format(Sayi, "#,##0.00"))

If InStr(xSayi, ",") > 0 Then
    TlKr = Split(xSayi, ",")
    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))
    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))
    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
Else
    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)
End If
End Function
sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar
13/12/2019, 17:06

derzulya

(13/12/2019, 16:21)berduş yazdı: öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin
Function Sayiyi_Metne_CevirKr(Sayi As Double)
Dim mtnTL, mtnKr, xSayi As String
Dim TlKr() As String
xSayi = CStr(Format(Sayi, "#,##0.00"))

If InStr(xSayi, ",") > 0 Then
    TlKr = Split(xSayi, ",")
    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))
    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))
    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
Else
    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)
End If
End Function
sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin
=Sayiyi_Metne_CevirKr([SayiRakkamla])
dilerim işinize yarar


çok teşekkürler. oldu şimdi
13/12/2019, 17:13

derzulya

sadece tek olay kuruş hanesi sıfır oluncada sıfır kuruş yazıyor. 510,00 TL için beşyüzon tl sıfır kuruş gibi. Ama olsun bu şekilde de işimi görür
13/12/2019, 17:44

berduş

Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "
kodunu aşağıdakiyle değiştirip deneyin
Sayiyi_Metne_CevirKr = mtnTL & " TL " & IIf(CLng(TlKr(1)) <> 0, mtnKr & " Kuruş ", "")
1 2