Merhaba, modüldeki ilgili fonksiyonu aşağıdaki ile değiştiriniz.

Function TL(Para) As String



If IsNull(Para) Or Para = "" Then

Exit Function

End If



Dim tum$, tam$, kurus$, TL_birim$, krs_birim$



tum = RoundA(Replace(Para, "-", ""), 2)

tam = Fix(tum)

kurus = RoundA(tum - tam, 2) * 100



TL_birim = IIf(tam = 0, "", " LİRA ")

krs_birim = IIf(kurus = 0, "", " KURUŞ")



TL = Ceviri(tam) & TL_birim & Ceviri(kurus) & krs_birim



End Function