02-01-2017, 23:18 (En son düzenleme: 02-01-2017, 23:29 husem.)
fonksiyonlara aşağıdaki kodları ekle
Option Compare Database
Public Function ParaCevir(para)
Dim ParaStr As String
Dim YTL As String, Kurus As String
Dim sifirsa As String
Dim ve As String
If Not IsNumeric(para) Then GoTo SayiDegil
ParaStr = Format(Abs(para), "0.00")
YTL = left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)
If Cevir(Kurus) = "SIFIR" Then sifirsa = "" Else sifirsa = Cevir(Kurus) & " KURUŞ"
If Cevir(Kurus) = "SIFIR" Then ve = "" Else ve = " "
ParaCevir = IIf(para < 0, "Eksi ", "") & Cevir(YTL) & " LİRA " & ve & sifirsa
Exit Function
SayiDegil:
ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
End Function
Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim C(3), Sonuc, e
For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i
Sonuc = ""
For i = 0 To 4
C(1) = Rakam(i * 3 + 1)
C(2) = Rakam(i * 3 + 2)
C(3) = Rakam(i * 3 + 3)
If C(1) = 0 Then
e = ""
ElseIf C(1) = 1 Then
e = "YÜZ"
Else
e = Birler(C(1)) + "YÜZ"
End If
e = e + Onlar(C(2)) + Birler(C(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "BİRBİN ") Then e = "BİN "
Sonuc = Sonuc + e
Next i
If Sonuc = "" Then Sonuc = "SIFIR"
Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function
siz Hangi metinkutusuna yazmasını istiyorsanız yukarıdaki
="Yalnız " & ParaCevir([Metin21])' i oraya ekleyiniz.
örnek bir dosya var. isterseniz inceleyiniz.
iyi çalışmalar,