How to convert numbers to letters to make our revenue, and here's a solution using macros:
Num_texto Function (Number)
Text Dim Dim Dim
Million Miles
Hundreds
Dim Dim Dim
Decimal String Dim
CadMillones Dim Dim
CadMiles
CadCientos
Text = Text = FormatNumber
Number (Text, 2)
Text = Right (Space (14) & Text, 14)
Millions = Mid (Text, 1, 3)
Miles = Mid ( Text, 5, 3) Hundreds
= Mid (Text, 9, 3)
Decimal = Mid (Text, 13, 2)
CadMillones = ConvierteCifra (Millions, 1)
CadMiles = ConvierteCifra (Miles, 1) = ConvierteCifra CadCientos
(Hundreds, 0)
If Trim (CadMillones)> "" Then If Trim
(CadMillones) = "A" Then
String = CadMillones & "million" Else
Chain = CadMillones & "Million"
End If End If If Trim
(CadMiles)> "" Then
Cadena = Cadena & "" & CadMiles & "MIL"
End If If Trim (CadMiles & CadCientos ) = "A" Then
Cadena = Cadena & "ONE WITH" & Decimals & "/ 100" Else
If Thousands & Thousands = "000000" Then
Str = string & "" & Trim (CadCientos) & "" & Decimals & "/ 100 NEW SOLES" Else
String = string & "" & Trim (CadCientos) & "" & Decimals & "/ 100 NEW SOLES"
End If End If
Num_texto = Trim (String) End Function
.......
And it continues to use more Num_texto function to convert that number by letter.
Download it here: http://rapidshare.com/files/264954380/Numero_a_Letra.txt.html
