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

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


Visual Basic

estrellaestrellaestrellaestrellaestrella(15)
Publicado el 05 de Marzo del 2005 por Rafael Arriagada
21.787 visualizaciones desde el 05 de Marzo del 2005. Una media de 42 por semana
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 05 de Marzo del 2005gráfica de visualizaciones de la versión: Versión 1
21.788 visualizaciones desde el 05 de Marzo del 2005. Una media de 42 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 (15)

Alvaro Pedraza
08 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
Buen programa para convertir números en texto
Responder
Jose
19 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
Muy buen programa para convertir numeros
Responder
Matías Freire
06 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
Raff
08 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
NeutroWEB
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
ángel
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
Raff
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
Claro_Cero_Mentiras
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
Rodrigo Guzmán A.
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
Andres
07 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
jesus lopez valdez
08 de Marzo del 2006
estrellaestrellaestrellaestrellaestrella
Exelente
Responder
Gerardo Perez Diaz
05 de Septiembre del 2006
estrellaestrellaestrellaestrellaestrella
Felicidades!! Rafael por tan excelente programa y por ponerlo a disposicion de todos. Gracias
Responder
Mireya
24 de Octubre del 2006
estrellaestrellaestrellaestrellaestrella
excelente
Responder
Imágen de perfil
Alexander
06 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
Alberto_123
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

http://lwp-l.com/s1139