Convertir De Numeros A Letras
'** **'
'** CONVERTIR DE NUMEROS A LETRAS**'
'** AUTOR: OSCAR JAVIER LEON AVENDAÑO **'
'** licencia: USO LIBRE **'
'** http:www.oscarjleon.com**'
'** FECHA DE CREACION: NOV.1991 **'
'** **''**********************************************************************
Public Function CLetras(ByVal numero As Double, Optional fmtoUnidad As Integer = 0, Optional Unidades As String = "Kilos", OptionalUnidad As String = "Kilo", Optional Genero As String = "M") As String
Dim strUnidad(0 To 5) As String
Dim strUnidades(0 To 5) As String
Dim strCifras(0 To 4) As String
Dim NumeroCifras As Byte
DimNumeroTercios As Byte
Dim strNumero As String
Dim strTMP As String
Dim dblNumeroEntero As Double
Dim intNumeroTmp As Integer
Dim intCentavos As Integer
Dim J As Integer
Dim intNumTmp AsInteger
strUnidades(0) = " pesos m/cte": strUnidades(1) = " unidades": strUnidades(2) = " dolares": strUnidades(3) = " euros": strUnidades(4) = " " & Unidades: strUnidades(5) = ""
strUnidad(0) = "peso m/cte": strUnidad(1) = " unidad": strUnidad(2) = " dolar": strUnidad(3) = " euro": strUnidad(4) = " " & Unidad: strUnidad(5) = ""
strCifras(1) = "": strCifras(2) = " mil ": strCifras(3) = "millones ": strCifras(4) = " mil ": strCifras(0) = " millón "
intCentavos = Int((Round(numero, 2) * 100) - (Int(numero) * 100))
dblNumeroEntero = Round(numero, 2) - (intCentavos / 100)
strNumero =CStr(Abs(dblNumeroEntero))
NumeroCifras = Len(strNumero)
NumeroTercios = Abs(Int(-NumeroCifras / 3))
Select Case dblNumeroEntero
Case 0
strTMP = "cero"
Case 1
If fmtoUnidad...
Regístrate para leer el documento completo.