TL 'yi YTL 'ye Çeviricisi

Verilen TL değeri, YTL 'ye çeviren oldukça kullanışlı bir fonksiyondur.


[HTML]Public Function TLtoYTL(byVal Param)
If Len(Param) > 6 Then
YTL = FormatNumber(Round((Param * 0.000001),2),2) &" YTL."
Else
YTL = Round((Param * 0.000001),2) &" YTL."
End If
TLtoYTL = YTL
End Function[/HTML]

__________________
proxyer