RE:cambiar numeros a palabras
A ver si te sirve esta que encontre por ahi.
hecha por PANDIANI JAVIER.
Function Nombre(x)
'aRMA CADA GRUPO DE TRES DIGITOS
xuni = "UNO DOS TRES CUATRO CINCO " + _
"SEIS SIETE OCHO NUEVE DIEZ " + _
"ONCE DOCE TRECE CATORCE QUINCE " + _
"DIECISEIS DIECISIETE DIECIOCHO DIECINUEVE VEINTE " + _
"VEINTIUNO VEINTIDOS VEINTITRES VEINTICUATROVEINTICINCO " + _
"VEINTISEIS VEINTISIETE VEINTIOCHO VEINTINUEVE "
xdec = "TREINTA CUARENTA CINCUENTASESENTA SETENTA OCHENTA NOVENTA"
xcent = "DOSC TRESC CUATROCQUIN SEISC SETEC OCHOC NOVEC "
Nombre = ""
'Ver para anular los decimales para que no se produzcan erroresx = Fix(x)
UNI = Right(x, 2)
If UNI < 30 And UNI > 0 Then
Nombre = Trim(Mid(xuni, 12 * (UNI - 1) + 1, 12))
End If
If UNI > 29 Then
dec = Left(UNI, 1)
UNI = Right(UNI, 1)
Nombre = Trim(Mid(xdec, 9 * (dec - 3) + 1, 9))
If UNI <> 0 Then
Nombre = Nombre + " Y " + Trim(Mid(xuni, 12 * (UNI - 1) + 1, 12))
End If
End If
Cent = Int(x / 100)
If Cent = 1 Then
Nombre = "CIENTO " + Nombre
End If
If x = 100 Then
Nombre = "CIEN"
End If
If Cent > 1 Then
Nombre = Trim(Mid(xcent, 7 * (Cent - 2) + 1, 7)) + "IENTOS " + Nombre