33.
De ce nu pui un spaţiu înainte de „lei”.. ?
Nu faci verificare pentru a adăuga un „şi” pentru „douăzeci şi trei Lei”, de exemplu.
[code] Case Else
Lei = Lei & "Lei"
[/code]
Spaţiu înainte de „şi”, „bani”..
Nu faci verificare pentru a adăuga un „şi” pentru „patruzeci şi trei Bani”, de exemplu.
[code] Case Else
Bani = "si" & Bani & "Bani"
[/code]
Merge codul ăsta scris aşa ?
[code] Case "One"
Bani = " And unBan"
[/code]
Spaţiu înainte de „sute”.
Nu-ţi apare „o sută” pentru că nu l-ai pus tu să scrie. Aici faci doar verificare pentru existenţa sutelor, nu verifici şi dacă cifra sutelor e 1 (sută) sau 2..9 (sute).
[code] ' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & "sute"
End If
[/code]
Programul nu face ce nu-l pui tu să facă.
Sigur tu l-ai scris sau doar îl modifici? Că dacă e să mă iau după modul în care îl învinuieşti că nu ţi-afişează cum vrei tu...
ak2000, cască ochii după numerele de ordine. Trebuie incrementat ultimul.