Divide y vencerás (Números a Texto)

Recuerdo las primeras clases de programación en el cole cuando aun existia el pascal... separar el problema principal en varios problemas secundarios.. pues bien anoche luego de analizar varias opciones para realizar una función que permita pasar los importes o valores de números a texto heche mano de esta premisa.

Describo lo que hice.. espero que les sea de utilidad:

He creado tres subfunciones y una principal:



NRO_TO_STRING_DECI.- Para pasar los números hasta el 19



NRO_TO_STRING_CENTI.- Para pasar los números hasta 999 hace uso de NRO_TO_STRING_DECI



NRO_TO_STRING_MIL.- Igual que las anteriores para números que contemplen miles, usa NRO_TO_STRING_CENTI



NRTOSTRING.- Función principal que hace uso de NRO_TO_STRING_MIL y permite pasar los millones a frases



Y finalmente como se usa la función y su resultado:


Puede que este procedimiento no este optimizado pero fue lo más rápido que se me ocurrio.
Por cierto he tomado varias ideas del Blog de Pepeto. Además hay que considerar que no trabajo con decimales pues solo me interesaba pasar los enteros.

Saludos y suerte

Posted in: ecuador,galapagos,números a texto,v7,velneo