Ingeniero

Función para convertir un número en letra.
Por ejemplo: 125 sería "ciento veinticinco"
javascript:DownZip2('vbzip/gsnum2text.zip','Programas y Utilidades para Visual Basic','Ejemplos')Listado yform de prueba. (gsnum2text.zip 2.98 KB)
Nota:
Échale un vistazo a la página de la clase cNum2Text.
El listado:
'---------------------------------------------------------------------------
'gsNumero.BAS Módulo para procedimientos numéricos
' Versión para Windows
'
' (c)Fredy, 2008'---------------------------------------------------------------------------
Option Explicit
Option Compare Text
Public Function Numero2Letra(ByVal strNum As String, Optional vLo) As String'----------------------------------------------------------
' Convierte el número strNum en letras
' Versión para Windows
'----------------------------------------------------------
Dim lngA As LongDim Negativo As Boolean
Dim L As Integer
Dim Una As Boolean
Dim Millon As Boolean
Dim Millones As Boolean
Dim vez As Integer
Dim MaxVez As Integer
Dim k AsInteger
Dim strQ As String
Dim strB As String
Dim strU As String
Dim strD As String
Dim strC As String
Dim iA As Integer
'
Dim strN() As String
Dim lo AsInteger
'
'Si no se especifica el ancho...
If IsMissing(vLo) Then
lo = 255
Else
lo = vLo
End If

Dim unidad(0 To 9) As String
Dim decena(0 To 9) AsString
Dim centena(0 To 9) As String
Dim deci(0 To 9) As String
Dim otros(0 To 15) As String
'Asignar los valores
unidad(1) = "Una"
unidad(2) = "dos"
unidad(3) = "tres"unidad(4) = "cuatro"
unidad(5) = "cinco"
unidad(6) = "seis"
unidad(7) = "siete"
unidad(8) = "ocho"
unidad(9) = "nueve"
'
decena(1) = "diez"
decena(2) =...