Articolo convertire un numero in lettere - Rettifica
Alcuni utenti mi hanno fatto presente che l'esempio converti numeri in lettere di excel ( http://blog.shareoffice.it/emanuele/archive/2006/01/08/3557.aspx ), aveva un anomalia, in particolare, se l'importo aveva i decimali superiori a 50, lettere veniva tradotto con l'importo superiore. Per risolvere tale problema, inserire nella funzione converti, dopo la seguente riga di codice
' Formattazione dei centesimi
StrCentesimi = Right(Format(strNumero, "##,##0.00"), 2)
la seguente riga di codice:
CrrEuro = Fix(CrrEuro)
A questo punto tale funzione, sarà ottimizzata anche per i decimali superiori a 50.
Si ringrazia i vari utenti, che mi hanno segnalato questo bug, in fondo tramite le segnalazioni, suggerimenti e scambio di idee che si cresce. Grazie a voi, e continuate così il web ha bisogno di voi :-)
Tramite la voce download è possibile scaricare il file di esempio.
Download esempio