Código de Visual Basic - Conversión de numeros a letras de forma recursiva (2)

sin imagen de perfil

Conversión de numeros a letras de forma recursiva (2)gráfica de visualizaciones


Visual Basic

Publicado el 5 de Marzo del 2005 por Rafael Arriagada
22.564 visualizaciones desde el 5 de Marzo del 2005
Función recursiva que convierte los números contenidos en un párrafo de texto a su representación en palabras, incluyendo dos decimales si los hay.
Soporta numeros de hasta 123 digitos (Vigintillones)

Versión 1
estrellaestrellaestrellaestrellaestrella(15)

Publicado el 5 de Marzo del 2005gráfica de visualizaciones de la versión: Versión 1
22.565 visualizaciones desde el 5 de Marzo del 2005
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 (15)

8 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
Buen programa para convertir números en texto
Responder
19 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
Muy buen programa para convertir numeros
Responder
6 de Abril del 2005
estrellaestrellaestrellaestrellaestrella
Relamente, una muy buena función para convertir números a letras, pero he identificado un pequeño error. Si te fijas, en el el ejemplo donde conviertes \"Gané 38447.30 en la lotería, donaré 8,06 a una institución de niños huérfanos.\", al momento de pasar los números a letras el 8,06 lo pone como \"ocho dólares con seis milésimos\", cuando en realidad son seis CENTÉCIMOS. Espero que mi aporte sirva para que puedan mejorarlo. Saludos!!!!
Responder
8 de Abril del 2005
estrellaestrellaestrellaestrellaestrella
Tienes toda la razón, esto se debe corregir en el archivo WordNumber.bas reemplazando las 4 constantes existentes por las siguientes:

Const glbSubS = "désimo"
Const glbSubP = "désimos"
Const glbSubS2 = "centésimo"
Const glbSubP2 = "centésimos"

Muchas gracias por contribuir.
Responder
28 de Abril del 2005
estrellaestrellaestrellaestrellaestrella
rafael... dejame decirte que esta muy bueno este ejemplo y sin duda lo usaré en mis proyectos venideros (claro que diré la fuente del código - que no es lo mismo que el código fuente jejejeje), se agradece tu grandeza de programador al compartir tan importante rutina... gracias cabroooooooooooo adiosin
http://www.delalmapro.tk
Responder
13 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
¡ES MUY BUENO!, FUNCIONA BIEN. EN ESPAÑA DECIMOS CÉNTIMOS EN LUGAR DE CENTÉSIMOS. SIN PROBLEMA.
MUY AGUDO ESO DEL "RETRASADO MENTAL QUE SE INVENTÓ CIERTOS NÚMEROS". ESO ME DIÓ MUCHOS PROBLEMAS, EN CONCRETO CON "QUI NIENTOS". ME GUSTA MUCHO EL CONCEPTO DE TU SOLUCIÓN.
REPITO QUE ES MUY BUENO. MUCHAS GRACIAS AMIGO
Responder
18 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
Hola,
Hay un bug en el código que hace que el número 800 lo convierta en "novecientos" , favor corregir reemplazando la siguiente línea:

Case "8": If B1 Or B2 Then DFinal = "ochocientos " & DFinal Else DFinal = "novecientos"

Reemplazar por:

Case "8": If B1 Or B2 Then DFinal = "ochocientos " & DFinal Else DFinal = "ochocientos"

Es un error infantil pero sin duda pudo ocasionarles problemas, lo lamento.
Responder
31 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
Gracias por compartir esta rutina en verdad si es funcional, claro ah que hacer unas pequeñas adecuaciones, pero se debe a la particularidad de cada país. Gracias. la rutina es 10
Responder
23 de Julio del 2005
estrellaestrellaestrellaestrellaestrella
Felicitaciones!!, muy bueno el procedimiento, lo unico que hay que cambiar es la palabra "Novecientas" por "Novecientos" en el caso de chile.
Responder
7 de Diciembre del 2005
estrellaestrellaestrellaestrellaestrella
Que buen codigo, esta fenomenal, muy buena solucion la que has utilizado y desarrollado.

Feliciades y gracias por compartirlo !
Responder
8 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
Exelente
Responder
5 de Septiembre del 2006
estrellaestrellaestrellaestrellaestrella
Felicidades!! Rafael por tan excelente programa y por ponerlo a disposicion de todos. Gracias
Responder
24 de Octubre del 2006
estrellaestrellaestrellaestrellaestrella
excelente
Responder
Imágen de perfil
6 de Febrero del 2008
estrellaestrellaestrellaestrellaestrella
Buena aportación para la comunidad. Revisando algo probé con "," y "."
No reconoce la coma a la hora de la conversión (3,000.23) y a su vez sale a bajo con punto cambia la como por el punto (3.000.23).
Responder
26 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
El problema es mucho más complejo de lo que parece si quieres contemplar todas las opciones que admite la Real Academia Española. Ver la aplicación:

http://tip.dis.ulpgc.es/numeros

Un saludo.
Responder

Comentar la versión: Versión 1

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s1139