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)

Visual Basic

(15)

Publicado el 5 de Marzo del 2005 por Rafael Arriagada

23.341 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
(15)

Publicado el 5 de Marzo del 2005

gráfica de visualizaciones de la versión: Versión 1

23.342 visualizaciones desde el 5 de Marzo del 2005

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

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

Alvaro Pedraza

8 de Marzo del 2005

Buen programa para convertir números en texto

Responder

Jose

19 de Marzo del 2005

Muy buen programa para convertir numeros

Responder

Matías Freire

6 de Abril del 2005

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

8 de Abril del 2005

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

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

¡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

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

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

Felicitaciones!!, muy bueno el procedimiento, lo unico que hay que cambiar es la palabra "Novecientas" por "Novecientos" en el caso de chile.

Responder

Andres

7 de Diciembre del 2005

Que buen codigo, esta fenomenal, muy buena solucion la que has utilizado y desarrollado.

Feliciades y gracias por compartirlo !

Responder

jesus lopez valdez

8 de Marzo del 2006

Exelente

Responder

Gerardo Perez Diaz

5 de Septiembre del 2006

Felicidades!! Rafael por tan excelente programa y por ponerlo a disposicion de todos. Gracias

Responder

Mireya

24 de Octubre del 2006

excelente

Responder

anonymous

6 de Febrero del 2008

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

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