Código de Excel - Conversor de números a letras

Conversor de números a letrasgráfica de visualizaciones


Excel

estrellaestrellaestrellaestrellaestrella(68)
Publicado el 15 de Marzo del 2006 por Jorge Eduardo Gallegos Torres
93.317 visualizaciones desde el 15 de Marzo del 2006. Una media de 168 por semana
Ejemplo de una macro en Excel para la conversión de números a letras.

Versión 1
estrellaestrellaestrellaestrellaestrella(68)

Publicado el 15 de Marzo del 2006gráfica de visualizaciones de la versión: Versión 1
93.318 visualizaciones desde el 15 de Marzo del 2006. Una media de 168 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (68)

Abel Barón Gutiérrez
21 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
Sr. Gallegos reciba usted una doble felicitación de mi parte: en primer lugar por la excente macro desarrollada para convertir números a letras y en segundo lugar por su generosidad para compartirla. Le pregunto: porqué la macro no aparece en la ventana de macros?
Responder
Imágen de perfil
Guadalupe Leija Flores
12 de Mayo del 2006
estrellaestrellaestrellaestrellaestrella
Felicidades.....te quedo excelene..... LA COPIA!!!!!
Responder
Ivan
26 de Mayo del 2006
estrellaestrellaestrellaestrellaestrella
Esta buenisimo GRACIAS.
Responder
Victor
15 de Junio del 2006
estrellaestrellaestrellaestrellaestrella
Gracias, hacia tiempo que buscaba este codigo...
Responder
PLACIDO PARADA CUBIDES
05 de Julio del 2006
estrellaestrellaestrellaestrellaestrella
GRACIAS POR SU COLABORACION. SU TRABAJO ES MUY IMPORTANTE
Responder
pedro
25 de Julio del 2006
estrellaestrellaestrellaestrellaestrella
¿Como se ejecuta la macro? Probé con un botón y nada.
Responder
Danny Torres Salinas
26 de Septiembre del 2006
estrellaestrellaestrellaestrellaestrella
Gracias Jorge Gallegos, la verdad no se programar en visual pero se algo de programacion en la cual modifique algunos datos y ahora ya puedo usar esa funcion, si hubiese mas puntuacion de 10 votaria por mas, porque fue de mucha utilidad,
MUCHAS GRACIAS
Responder
Reinaldo Camaño
29 de Septiembre del 2006
estrellaestrellaestrellaestrellaestrella
Muy bueno el conversor, pero no me funciona para 1000000.
Responder
Andres
01 de Octubre del 2006
estrellaestrellaestrellaestrellaestrella
Una pregunta. pero como le puedo quitar lo q dice pesetas?... y cambiar de denominacion de moneda?

Andres
Responder
E Gallegos
09 de Noviembre del 2006
estrellaestrellaestrellaestrellaestrella
Guadalupe Leija Flores gleija01@hotmail.com <-- Yo soy el autor de mi conversor, lo hice yo mismo, y a ti te lo mande desde mi buzon, si quieres te mando tambien el conversor para Access, Visual, SQL, y otros, digo por si quieres tambien modificarlos y compartirlos con tu nombre y dejando a un lado al verdadero Autor. No se vale, pero cuestion de etica, Saludos.
Suerte!!!

E. Gallegos
Responder
Norberto Morillo
10 de Diciembre del 2006
estrellaestrellaestrellaestrellaestrella
Gracias por el codigo es bastante bueno.
Excel, menu herramientas, Macros, editor de Visual Basic.
En el modulo en la funcion llamada letra por el final de la funcion modifique el nombre de la moneda de su pais ejemplo LEMPIRAS moneda de Honduras:

If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " LEMPIRAS CON" & Trim(Decimales) & "/100 CENTAVOS"
Else
Cadena = Cadena & " " & Trim(CadCientos) & " LEMPIRAS CON" & Trim(Decimales) & "/100 CENTAVOS"
End If
Responder
Norberto Morillo
10 de Diciembre del 2006
estrellaestrellaestrellaestrellaestrella
lo que no me gusta es que E Gallegos dice que es su codigo y que es una macro. Dos mentiras es una Function del emulador de VB que tienen Office no una MACRO y dos no es un codigo que es desarrollado por el. ABAJO ESTA COMO MODIFICARLO PARA PONER LA MONEDA DE CADA PAIS.

saludos,

Norberto.
Responder
Adriana
26 de Enero del 2007
estrellaestrellaestrellaestrellaestrella
Es verdad: no funciona para 1.000.000.-
Responder
leo
02 de Abril del 2007
estrellaestrellaestrellaestrellaestrella
Mira el código en si funciona de perlas.
El problema es que no traduce las cantidades "redondeadas" por Excel. Ejemplo
Si el total de la factura es 15.255,64. eso se redondea a 15.256. la función proporcionada no acepta el redondeo hacia una unidad mas.
Saludos
Responder
Fernando
10 de Mayo del 2007
estrellaestrellaestrellaestrellaestrella
Miren independientemente de quin lo realzo el codigo esta muy bueno; y creo que en realidad esa es la idea de esta pagina; compartir.-
Un abrazo y gracias.-
Responder
Jorge MD
18 de Mayo del 2007
estrellaestrellaestrellaestrellaestrella
A TODO DAR!!! ya tenia yo como 5 dias queriendo hacer uno pero solo llegue hasta numeros de 4 digitos... perfecto y facil de entender....
Responder
aaa
31 de Mayo del 2007
estrellaestrellaestrellaestrellaestrella
por favor esto no funciona, sean serios
Responder
Victor
13 de Junio del 2007
estrellaestrellaestrellaestrellaestrella
Muy buena macro, solo con un pequeño detalle, cuando pongo la cantidad sin decimales, me pone nada mas la cantidad, perfecto, pero por que no me pone "PESOS 00/100 M.N." me podrian ayudar?.... mi correo es victorchavez29@msn.com
Responder
Eddie Urrutia
24 de Junio del 2007
estrellaestrellaestrellaestrellaestrella
vale loko me sirvio caleta
si es copia me da lo mismo total lo vi aca
xauuu
Responder
JAH625
24 de Julio del 2007
estrellaestrellaestrellaestrellaestrella
Antes de sufrir algun comentario sobre la antiguedad del post alego que lo escribo porque el codigo funciona y alguien lo puede descargar y encontrarse con lo mismo.

Hay que modificar lo siguiente:

(como no se puede subrallar, lo pongo asi)

ANTES

If Millones & Miles & Cientos & Decimales = \\\"000000\\\" Then
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(Decimales) & \\\"/100 CENTAVOS\\\"
Else
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(Decimales) & \\\"/100 CENTAVOS\\\"
End If

DESPUES

If Millones & Miles & Cientos & Decimales = \\\"000000\\\" Then
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(cadDecimales) & \\\"/100 CENTAVOS\\\"
Else
Cadena = Cadena & \\\" \\\" & Trim(CadCientos) & \\\" LEMPIRAS CON\\\" & Trim(cadDecimales) & \\\"/100 CENTAVOS\\\"
End If
Responder
JAH625
24 de Julio del 2007
estrellaestrellaestrellaestrellaestrella
No hubiera sufrido ningun comentario puesto que el ultimo fue hace un mes y aparte que las barras sobran se han puesto al enviar el comentario. Lo que hay que cambiar es "decimal" por "caddecimal"
Responder
JAH625
24 de Julio del 2007
estrellaestrellaestrellaestrellaestrella
Lo he hecho de memoria. el cambio es Decimales por caddecimales
Responder
muchas gracias!
06 de Agosto del 2007
estrellaestrellaestrellaestrellaestrella
Solo que le cambié algunas cosas, lo modifiqué a metros y centímetros y con minúsculas. Gracias otra vez :-)
Responder
Alonso
04 de Septiembre del 2007
estrellaestrellaestrellaestrellaestrella
Tengo un Problema cuando lso centavo estan en 00 NO pone al final 00/100 pesos M.N. ya le estuve buscando y no lo hace podrian ayudarme pro favor, fuera de eso todo esta genial saludos....
Responder
Javier
02 de Octubre del 2007
estrellaestrellaestrellaestrellaestrella
Muy buen programa, lo feliito
Responder
Manuel Rojas
16 de Octubre del 2007
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración positiva de este curso.
Responder
Wilson Riaño
18 de Octubre del 2007
estrellaestrellaestrellaestrellaestrella
Me parece sencillo y practico, bueno.
Responder
Jorge Ramirez
12 de Noviembre del 2007
estrellaestrellaestrellaestrellaestrella
Es bueno, pero creo que se puede simplificar. De hecho he visto algun otro que esta mas sencillo.
Responder
Manu
26 de Noviembre del 2007
estrellaestrellaestrellaestrellaestrella
Bonito. es una buena forma de insertar una funcion util.
Responder
manuel
16 de Enero del 2008
estrellaestrellaestrellaestrellaestrella
excelente, muy buen aporte.
Muchas gracias
Responder
Ana
21 de Enero del 2008
estrellaestrellaestrellaestrellaestrella
Muchas gracias por haber compartido esto, he buscado varios macros y la mayoría tiene muchos errores. En cuanto a que si se tiene .00 en los decimales, eso lo arregle desde Herramientas --> Macro --> Editor de Visual Basic, le das CONTRO+F y busca la palabra PESOS, arriba hay una parte donde menciona "00" y no tiene la parte de que escriba PESOS Y M.N. hay que ponérsela:
If Decimales = "00" Then
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO "
Else
If Miles & Cientos = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If
letra = Trim(Cadena)
End If
Else
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO " & "CON " & Trim(caddecimales)
Else
If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If

EXCELENTE!!!
Responder
Marco Esquivel
13 de Marzo del 2008
estrellaestrellaestrellaestrellaestrella
Excelente macro!
Responder
Nubia
27 de Marzo del 2008
estrellaestrellaestrellaestrellaestrella
Hola, al final de toda la instrucción, sólo debo dar "guardar" y cómo empiezo a utilizarla?
Gracias
Responder
issac
09 de Abril del 2008
estrellaestrellaestrellaestrellaestrella
gracias por darnos trucos y hacernos la vida mas fasil, esta tecnica de conversor de numero a letra la busque desde hace mucho tiempo y no habia tenido respuesta gracias por su ayuda, mexico d.f.
Responder
sergio
16 de Abril del 2008
estrellaestrellaestrellaestrellaestrella
Buena la macro, sin embargo se confunde con los numeros 1.000.000, 1.000.000.000 y sucesivamente despues de cada mil millones y el mismo numero mas 100 millones. los primeros los reconoce como 0 cero y los segundos como espacio.

si te sirve para corregir.....
Responder
Jose
27 de Abril del 2008
estrellaestrellaestrellaestrellaestrella
Muchisimas gracias!, me sirvio de mucho tu codigo :-)
Responder
Hainer Alexander Baquero
10 de Mayo del 2008
estrellaestrellaestrellaestrellaestrella
Hola, te felicito por que me parece muy interesante la macro, aunque tuve un problema, no me sirve para "un millon", que puedo hacer para solucionar este inconveniente.

Responder
Santiago
22 de Junio del 2008
estrellaestrellaestrellaestrellaestrella
Gracias, esta macro esta genial... Aqui en Colombia tienen otro amigo más..... Vayan con Fé......
Responder
Walter TC
30 de Junio del 2008
estrellaestrellaestrellaestrellaestrella
Está ok, pero solo llega hasta 999,999,999 (NOVECIENTOS NOVENTA Y NUEVE MILLONES NOVECIENTOS NOVENTA Y NUEVE MIL NOVECIENTOS NOVENTA Y NUEVE)
Responder
Armando Arias
15 de Julio del 2008
estrellaestrellaestrellaestrellaestrella
Exelente aca en chile no manejamos decimales para el dinero por lo que no tengo ningun problema y me ahorro estar escribiendo a cada rato la cifra en letras
Responder
juan
31 de Julio del 2008
estrellaestrellaestrellaestrellaestrella
na... me quiero matar... hace 2 años que vengo trabajando con precios, con numero y letra, y yo siempre lo puse a mano.. jeje.. que comando facil.. gracias
Responder
GILBERTO
15 de Septiembre del 2008
estrellaestrellaestrellaestrellaestrella
Felicidades, excelente utilidad
Responder
JAIRO
18 de Noviembre del 2008
estrellaestrellaestrellaestrellaestrella
Excelente ,, gracias por tu aporte. ´

He probado con versiones anteriores de office pero al parecer no funciona con Officce 2000 Profesional la formula, agradeceria cualquier información.

Nuevamente Gracias.
Responder
leo
26 de Febrero del 2009
estrellaestrellaestrellaestrellaestrella
muy bueno
Responder
Winston RAmirez
12 de Marzo del 2009
estrellaestrellaestrellaestrellaestrella
Muy bien
Responder
Daniel Hernández
07 de Mayo del 2009
estrellaestrellaestrellaestrellaestrella
EXCELENTE... me parece magnifico, ya con la correción. Me resulta muy útil. Gracias por compartir esta aportación.
Responder
Oscar
06 de Junio del 2009
estrellaestrellaestrellaestrellaestrella
Excelente!!!!

Saludos
Osky
Responder
yacson
10 de Junio del 2009
estrellaestrellaestrellaestrellaestrella
interesante la funcion
Responder
mau
14 de Julio del 2009
estrellaestrellaestrellaestrellaestrella
ESTA EXCELENTE Y ES FACIR DE PASAR A OTROS LIBORS EN EXCEL 2007 VIA VISUAL BASIC.
SOLO QUE NO SE COMO CAMBIAR EL CODIGO PARA QUE EN CASO DE QUE LA CANTIDAD NO TENGA DECIMALES DE TODAS FORMAS LE PONGA PESOS 00/100 M. N., COMO LE HAGO?
FELICIDADES¡¡¡¡¡¡¡¡¡¡¡¡¡
Responder
kARINA
28 de Julio del 2009
estrellaestrellaestrellaestrellaestrella
no se como correrla, o sea estoy trabajando en mi hoja y copio pero resulta un error, se q es mi culpa y q no se utilizarla, espero puedan ayudarm...

muy bueno este aporte
Responder
JCT
09 de Septiembre del 2009
estrellaestrellaestrellaestrellaestrella
Muy bueno me sirvio bastante
Muy buen archivo felicidades
Responder
david
30 de Septiembre del 2009
estrellaestrellaestrellaestrellaestrella
excelente codigo, funciona a las 1000 maravillas..
Responder
georgina
08 de Noviembre del 2009
estrellaestrellaestrellaestrellaestrella
Buen trabajo pero le encuentro las siguientes contras:
si el nº es mayor a mil millones no da error y da el valor en letras hasta las 9 cifras enteras solamente
cuando el numero es decimal debería aparecer la cantidad decimal en letras
si el nº es decimal o sea por ej. 0.25 no muestra bien 25 centavos
Responder
Ricardo de luna
08 de Diciembre del 2009
estrellaestrellaestrellaestrellaestrella
justo lo que necesitaba, gracias ya podre terminar mis facturas mas rapido
Responder
jorge
10 de Enero del 2010
estrellaestrellaestrellaestrellaestrella
Por favor podrían publicar cuál es el código fuente del macro en excel, porque no reconoce la función...
Responder
MARTHA BAQUERO
12 de Febrero del 2010
estrellaestrellaestrellaestrellaestrella
la macro tiene 2 errores no identifica el millon en cifra cerrada $1,000,000 tampoco identifica $1,000,000,000

Responder
Ernesto
23 de Febrero del 2010
estrellaestrellaestrellaestrellaestrella
Muy buena la macro , solo hay que mejorarle, la parte de la moneda nacional.
Saludos
Responder
Edward Nuñez
19 de Julio del 2013
estrellaestrellaestrellaestrellaestrella
Gracias por la valiosa información. Quisiera saber como se ajusta el codigo para que identifique los MILES DE MILLONES 1.000'000.000- y Superiores. Saludos
Responder
Alberto_123
26 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
El problema es mucho más complejo de lo que se presenta aquí. Existen más opciones válidas por la Real Academia, la construcción del femenino y demás. Vean la aplicación que lo resuelve prácticamente todo:

http://tip.dis.ulpgc.es/numeros
Responder
santiago
01 de Noviembre del 2013
estrellaestrellaestrellaestrellaestrella
algien me puede ayudar a buscar donde sale para escribir los numeros
Responder
carlos
25 de Mayo del 2014
estrellaestrellaestrellaestrellaestrella
ayuda no se como utilizar el codigo y para convertir los numeros
Responder
José Atupaña
16 de Diciembre del 2014
estrellaestrellaestrellaestrellaestrella
He probado la codificacion y funciona correctamente, quiero conocer como converti numeros decimales a texto GRACIAS, SALUDOS
Responder
Wesly Sanchez
22 de Enero del 2015
estrellaestrellaestrellaestrellaestrella
Muy buen trabajo!! Funciona muy bien! Personalicé la unidad monetaria. Lo unico es que la unidad monetaria la muestra solo cuando es un número con decimal. Cuando es número entero no muestra ese dato. De lo contrario me funciona!!
Responder
karol
09 de Marzo del 2015
estrellaestrellaestrellaestrellaestrella
por favor yo solo quiero que salga los entereos con decimales sin el nombre de la moneda x ejem 3,19; tres con diecinueve centesimos asi nada mas ayuda x fa
Responder
Luis
25 de Abril del 2015
estrellaestrellaestrellaestrellaestrella
Mil gracias por compartir la información, muy valiosa. Sigan adelante
Responder
jacinto de argentina
29 de Julio del 2015
estrellaestrellaestrellaestrellaestrella
estimados, esta buena el codigo pero lo probe y tengo un problema con los centavos, aparte puse 1,35 y me puso uno pesos con 35/100 m.n., con lo cual no puedo usarla. esta buena pero le falto un poquito
Responder
CESAR
11 de Abril del 2016
estrellaestrellaestrellaestrellaestrella
TENGO UNA DUDA Y NO ENCUENTRO RESPUESTA EN EL CASO DE CONVERTIR
15.02 QUINCE COMA CERO DOS
Responder
Ratakansa
26 de Agosto del 2016
estrellaestrellaestrellaestrellaestrella
Me encanto este macro, bastante sencillo y realiza lo que buscaba en un solo paso. Mi aporte al código para reconocer un millón (1.000.000) exacto y además colocar 00/100 con los números enteros, en mi caso está en Bs., pero se puede sustituir fácilmente por cualquier moneda local (cambie el nombre de la función por cuestiones de mi memoria)

Function CONVNUM(Numero)
Dim Texto
Dim Millones
Dim Miles
Dim Cientos
Dim Decimales
Dim Cadena
Dim CadMillones
Dim CadMiles
Dim CadCientos
Dim caddecimales
Texto = Round(Numero, 2)
Texto = FormatNumber(Texto, 2)
Texto = Right(Space(14) & Texto, 14)
Millones = Mid(Texto, 1, 3)
Miles = Mid(Texto, 5, 3)
Cientos = Mid(Texto, 9, 3)
Decimales = Mid(Texto, 13, 2)
CadMillones = CONVC(Millones, False)
CadMiles = CONVC(Miles, False)
CadCientos = CONVC(Cientos, True)
caddecimales = CONVD(Decimales)

If Trim(CadMillones) > "" Then
If Trim(CadMillones) = "UN" Then
CadMillones = ""
Cadena = Cadena & "UN " & CadMillones & "MILLON"
Else
Cadena = CadMillones & " MILLONES"
End If
End If

If Trim(CadMiles) > "" Then
If Trim(CadMiles) = "UN" Then
CadMiles = ""
Cadena = Cadena & "" & CadMiles & "MIL"
CadMiles = "UN"
Else
Cadena = Cadena & " " & CadMiles & " MIL"
End If
End If
If Trim(CadMiles) > "001" Then
CadMiles = "MIL"
End If

If Decimales = "00" Then
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO "
Else
If Miles & Cientos = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " Bs. CON " & Trim(Decimales) & "/100"
Else
Cadena = Cadena & " " & Trim(CadCientos) & " Bs. CON " & Trim(Decimales) & "/100"
End If
CONVNUM = Trim(Cadena)
End If
Else
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "UN" Then
Cadena = Cadena & "UNO " & "CON " & Trim(caddecimales)
Else
If Millones & Miles & Cientos & Decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " Bs CON " & Trim(Decimales) & "/100"
Else
Cadena = Cadena & " " & Trim(CadCientos) & " Bs CON " & Trim(Decimales) & "/100"
End If
CONVNUM = Trim(Cadena)
End If
End If

End Function

Function CONVC(Texto, IsCientos As Boolean)
Dim Centena
Dim Decena
Dim Unidad
Dim txtCentena
Dim txtDecena
Dim txtUnidad
Centena = Mid(Texto, 1, 1)
Decena = Mid(Texto, 2, 1)
Unidad = Mid(Texto, 3, 1)
Select Case Centena
Case "1"
txtCentena = "CIEN"
If Decena & Unidad <> "00" Then
txtCentena = "CIENTO"
End If
Case "2"
txtCentena = "DOSCIENTOS"
Case "3"
txtCentena = "TRESCIENTOS"
Case "4"
txtCentena = "CUATROCIENTOS"
Case "5"
txtCentena = "QUINIENTOS"
Case "6"
txtCentena = "SEISCIENTOS"
Case "7"
txtCentena = "SETECIENTOS"
Case "8"
txtCentena = "OCHOCIENTOS"
Case "9"
txtCentena = "NOVECIENTOS"
End Select

Select Case Decena
Case "1"
txtDecena = "DIEZ"
Select Case Unidad
Case "1"
txtDecena = "ONCE"
Case "2"
txtDecena = "DOCE"
Case "3"
txtDecena = "TRECE"
Case "4"
txtDecena = "CATORCE"
Case "5"
txtDecena = "QUINCE"
Case "6"
txtDecena = "DIECISEIS"
Case "7"
txtDecena = "DIECISIETE"
Case "8"
txtDecena = "DIECIOCHO"
Case "9"
txtDecena = "DIECINUEVE"
End Select
Case "2"
txtDecena = "VEINTE"
If Unidad <> "0" Then
txtDecena = "VEINTI"
End If
Case "3"
txtDecena = "TREINTA"
If Unidad <> "0" Then
txtDecena = "TREINTA Y "
End If
Case "4"
txtDecena = "CUARENTA"
If Unidad <> "0" Then
txtDecena = "CUARENTA Y "
End If
Case "5"
txtDecena = "CINCUENTA"
If Unidad <> "0" Then
txtDecena = "CINCUENTA Y "
End If
Case "6"
txtDecena = "SESENTA"

If Unidad <> "0" Then
txtDecena = "SESENTA Y "
End If
Case "7"
txtDecena = "SETENTA"
If Unidad <> "0" Then
txtDecena = "SETENTA Y "
End If
Case "8"
txtDecena = "OCHENTA"
If Unidad <> "0" Then
txtDecena = "OCHENTA Y "
End If
Case "9"
txtDecena = "NOVENTA"
If Unidad <> "0" Then
txtDecena = "NOVENTA Y "
End If
End Select

If Decena <> "1" Then
Select Case Unidad
Case "1"
If IsCientos = False Then
txtUnidad = "UN"
Else
txtUnidad = "UNO"
End If
Case "2"
txtUnidad = "DOS"
Case "3"
txtUnidad = "TRES"
Case "4"
txtUnidad = "CUATRO"
Case "5"
txtUnidad = "CINCO"
Case "6"
txtUnidad = "SEIS"
Case "7"
txtUnidad = "SIETE"
Case "8"
txtUnidad = "OCHO"
Case "9"
txtUnidad = "NUEVE"
End Select
End If
CONVC = txtCentena & " " & txtDecena & txtUnidad
End Function


Function CONVD(Texto)
Dim Decenadecimal
Dim Unidaddecimal
Dim txtDecenadecimal
Dim txtUnidaddecimal
Decenadecimal = Mid(Texto, 1, 1)
Unidaddecimal = Mid(Texto, 2, 1)

Select Case Decenadecimal
Case "1"
txtDecenadecimal = "DIEZ"
Select Case Unidaddecimal
Case "1"
txtDecenadecimal = "ONCE"
Case "2"
txtDecenadecimal = "DOCE"
Case "3"
txtDecenadecimal = "TRECE"
Case "4"
txtDecenadecimal = "CATORCE"
Case "5"
txtDecenadecimal = "QUINCE"
Case "6"
txtDecenadecimal = "DIECISEIS"
Case "7"
txtDecenadecimal = "DIECISIETE"
Case "8"
txtDecenadecimal = "DIECIOCHO"
Case "9"
txtDecenadecimal = "DIECINUEVE"
End Select
Case "2"
txtDecenadecimal = "VEINTE"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "VEINTI"
End If
Case "3"
txtDecenadecimal = "TREINTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "TREINTA Y "
End If
Case "4"
txtDecenadecimal = "CUARENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "CUARENTA Y "
End If
Case "5"
txtDecenadecimal = "CINCUENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "CINCUENTA Y "
End If
Case "6"
txtDecenadecimal = "SESENTA"

If Unidaddecimal <> "0" Then
txtDecenadecimal = "SESENTA Y "
End If
Case "7"
txtDecenadecimal = "SETENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "SETENTA Y "
End If
Case "8"
txtDecenadecimal = "OCHENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "OCHENTA Y "
End If
Case "9"
txtDecenadecimal = "NOVENTA"
If Unidaddecimal <> "0" Then
txtDecenadecimal = "NOVENTA Y "
End If
End Select

If Decenadecimal <> "1" Then
Select Case Unidaddecimal
Case "1"
txtUnidaddecimal = "UNO"
Case "2"
txtUnidaddecimal = "DOS"
Case "3"
txtUnidaddecimal = "TRES"
Case "4"
txtUnidaddecimal = "CUATRO"
Case "5"
txtUnidaddecimal = "CINCO"
Case "6"
txtUnidaddecimal = "SEIS"
Case "7"
txtUnidaddecimal = "SIETE"
Case "8"
txtUnidaddecimal = "OCHO"
Case "9"
txtUnidaddecimal = "NUEVE"
End Select
End If
If Decenadecimal = 0 And Unidaddecimal = 0 Then
CONVD = ""
Else
CONVD = txtDecenadecimal & txtUnidaddecimal
End If
End Function
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1333