Cod: Selectaţi tot
Function No2Char(numar as double)
Dim lei as Double
Dim bani as Double
Dim numarcifre as String
Dim nr1 as String 'leiincifre
Dim nr2 as String 'leu sau lei
Dim nr3 as String 'si sau nimic
Dim nr4 as String 'bani in cifre
Dim nr5 as String 'ban sau bani
Dim Unitati()
Dim Zeci()
Unitati()= Array("zero", "unu", "doi", "trei", "patru", "cinci", "sase", "sapte", "opt", "noua", "zece", "unsprezece", "doisprezece", "treisprezece", "patrusprezece", "cincisprezece", "saisprezece", "saptesprezece", "optsprezece", "nouasprezece", "douazeci")
Zeci() = Array("zero", "zece", "douazeci", "treizeci", "patruzeci", "cincizeci", "saizeci", "saptezeci", "optzeci", "nouazeci")
if numar > 999.99 then
No2Char = "????????????????????????????????????????????????????????????????"
exit function
end if
lei = Fix(numar)
bani = (numar - lei) * 100
lei_init = lei
bani_init = bani
if lei > 99 then
nr1 = Unitati(Fix(lei / 100)) + "sute"
if nr1 = "unusute" then nr1 = "unasuta"
lei = lei MOD 100
end if
if lei > 20 then
nr1 = nr1 + Zeci(Fix(lei / 10))
lei = lei mod 10
if lei > 0 then nr1 = nr1 + "si"
end if
if lei>0 or lei_init=0 then nr1 = nr1 + Unitati(lei)
if nr1 = "unu" then nr1 = "un"
if bani > 20 then
nr4 = nr4 + Zeci(Fix(bani / 10))
bani = bani mod 10
if bani > 0 then nr4 = nr4 + "si"
end if
if bani>0 then nr4 = nr4 + Unitati(bani)
if nr4 = "unu" then nr4 = "un"
if lei_init = 1 then nr2 = "leu" else nr2 = "lei"
if bani_init = 1 then nr5 = "ban"
if bani_init > 0 then nr3 = "si"
if bani_init > 1 then nr5 = "bani"
No2Char = nr1 + nr2 + nr3 + nr4 + nr5
End Function