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.
ö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, 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
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
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ş ", "")