Numeros A Letras Funcion Excel
Numero = Format(Numero, "0")
LetraG = NumLet(Numero)
End Function
Function LetraC(Numero As Variant)
Numero = Format(Numero, "0.00")NumDec = Right(Numero, 2)
NumEnt = Left(Numero, Len(Numero) - 3)
LetraC = NumLet(NumEnt) + " CON " + NumLet(NumDec) + "CENTAVOS"
End Function
Function NumLet(NumVal AsVariant)
'Dim v1 As Variant, v2 As Variant, v3 As Variant
v1 = Array("", "UN ", "DOS ", "TRES ", "CUATRO ", "CINCO ", "SEIS ", "SIETE " _
, "OCHO ", "NUEVE ", "DIEZ ", "ONCE ", "DOCE ", "TRECE", "CATORCE " _
, "QUINCE ", "DIECISEIS ", "DIECISIETE ", "DIECIOCHO ", "DICIENUEVE " _
, "VEINTE ")
v2 = Array("", "", "VEINTI", "TREINTA ", "CUARENTA ", "CINCUENTA ","SESENTA " _
, "SETENTA ", "OCHENTA ", "NOVENTA ")
v3 = Array("", "CIENTO ", "DOSCIENTOS ", "TRESCIENTOS ", "CUATROCIENTOS " _
, "QUINIENTOS ", "SEISCIENTOS ", "SETECIENTOS ","OCHOCIENTOS " _
, "NOVECIENTOS ")
NumCad = Trim(Str(Abs(NumVal)))
NumCad = Left("000000000000", 12 - Len(NumCad)) + NumCad
NumLab = ""
Pos = 0
Do While Pos <> 4
Sup = (1 +3 * Pos)
cdu = Val(Mid(NumCad, (Sup - 0), 3))
cen = Val(Mid(NumCad, (Sup - 0), 1))
dec = Val(Mid(NumCad, (Sup + 1), 1))
uni = Val(Mid(NumCad, (Sup + 2), 1))
If cdu <>0 Then
If cdu = 100 Then
NumLab = NumLab + "CIEN "
ElseIf cen <= 9 And cen >= 1 Then
NumLab = NumLab + v3(cen)
End If
If (dec <=9 And dec >= 3) Then
NumLab = NumLab + v2(dec)
If uni <> 0 Then NumLab = NumLab + "Y "
ElseIf dec = 2 Then
If uni = 0 ThenNumLab = NumLab + v1(10 * dec)
Else
NumLab = NumLab + v2(dec)
End If
End If
If dec = 1 Then
NumLab = NumLab + v1(10 *...
Regístrate para leer el documento completo.