Kuruş yazan yerde hata veriyor

[Mdemir63]

Arkadaşlar Merhabalar

Ekteki dosyamda herşey tamam sadece yazıya çevirdiğinde KURUŞ bölümünde hata veriyor. Nasıl düzeltebilirim?

Saygılar


Dosya ekte

 

[Merhum İdris SERDAR]

Dosyanız ekte

 

[Mdemir63]

Dosyanız ekte

Yurttaş hocam elinize sağlık yanılmıyorsam benim kodlarımın yerine yenilerini yazmışsınız, peki hocam benim kodlarımdaki hata sizce nedir?

Ayrıca aşağıdaki formüllü yazımızın sonuna (yapılmıştır. dan sonra) Günün tarihini koymak mümkün müdür?

Yukarıda yazılı: otuzdört Yeni Türk Lirası kırk Yeni Kuruştur. Ödeme/sarf Tapu ve Kadastro Genel Müdürlüğü tarafından yapılmıştır.


Saygılar sunuyorum.

 

[Merhum İdris SERDAR]

1. Macroyu değiştirdim.

2. Formülü aşağıdaki gibi yapın.

="Yukarıda yazılı: "&yazytl(E18)&"tur. Ödeme/sarf Tapu ve Kadastro Genel Müdürlüğü tarafından yapılmıştır."& TEXT(TODAY();"gg.aa.yyyy")

TEXT = METNEÇEVİR

TODAY = BUGÜN

 

[Metin Karaağaç]

Public Function ParaCevir(Para)
Dim ParaStr As String
Dim Lira As String, Kurus As String

If Not IsNumeric(Para) Then GoTo SayiDegil

ParaStr = Format(Abs(Para), "0.00")

Lira = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)

ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " YTL " & IIf(Cevir(Kurus) = "S&#305;f&#305;r", "", Cevir(Kurus) & " Kuru&#351;tur.")

Exit Function

SayiDegil:
ParaCevir = "G&#304;R&#304;LEN DE&#286;ER SAYI DE&#286;&#304;L!"
End Function

Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "&#252;&#231;", "d&#246;rt", "be&#351;", "alt&#305;", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "k&#305;rk", "elli", "altm&#305;&#351;", "yetmi&#351;", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

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&#252;z"
Else
e = Birler(c(1)) + "y&#252;z"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "S&#305;f&#305;r"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[Mdemir63]

1. Macroyu değiştirdim.

2. Formülü aşağıdaki gibi yapın.

="Yukarıda yazılı: "&yazytl(E18)&"tur. Ödeme/sarf Tapu ve Kadastro Genel Müdürlüğü tarafından yapılmıştır."& TEXT(TODAY();"gg.aa.yyyy")

TEXT = METNEÇEVİR

TODAY = BUGÜN

Hocam sağolun
Kolay gelsin
Saygılar