Public Function FormatiCevir(STutar As Currency, SBirimi As Integer) As String


On Error Resume Next
Dim GSayi As Integer
Dim GFormatEkle As Boolean
Dim GTutari As String
Dim GParaBirimi As Integer


GParaBirimi = SBirimi
GTutari = CStr(STutar)



GSayi = InStr(GTutari, ".")
    If GSayi = 0 Then


        GTutari = Left(GTutari, GSayi) & "." & Right(GTutari, Len(GTutari) - GSayi)
        If Len(GTutari) = 6 Then '
           GFormatEkle = True
        End If
End If



GSayi = InStr(GTutari, ",")



If GSayi = 0 Then


    GTutari = GTutari & ",00"


    If Len(GTutari) = 6 Then
        GFormatEkle = True
    End If
End If


GSayi = InStrRev(GTutari, ",")


GSayi = GSayi - 4



GTutari = Left(GTutari, GSayi) & "." & Right(GTutari, Len(GTutari) - GSayi)



If GParaBirimi = "1" Then
    GTutari = Format(GTutari, "Currency")
ElseIf GParaBirimi = "2" Then
    GTutari = GTutari & " " & Chr(36)
ElseIf GParaBirimi = "3" Then
    GTutari = GTutari & " " & Chr(128)
ElseIf GParaBirimi = "4" Then
    GTutari = GTutari & " " & Chr(163)
End If


    FormatiCevir = GTutari


End Function