Arkadaşlar mrb,

Raporumda sayıyı yazıya çevirmede aşağıdaki fonksiyonu kullanıyorum.
Rakam olduğunda sıkıntı yok çok güzel çeviriyor, ama iskontolu işlerde sonuç sıfır olduğu zaman sıfır TL şeklinde yazmıyor. Hiç bir şey göstermiyor boş çıkıyor.
Acil yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.

Option Compare Database
Function TL(Para) As String
Dim tum$, tam$, kurus$, TL_birim$, krs_birim$

tum = RoundA(Replace(Para, "-", ""), 2)
tam = Fix(tum)
kurus = RoundA(tum - tam, 2)