Programa para convertir cantidades numéricas en texto
Hola amigo experto, nuevamente disculpa la molestia, me podrías enviar un programa ejemplo de conversión de números a letras, es decir algo así:
Introducir el número : 9,285.52
Y que te devuelva el programa así : NUEVE MIL DOSCIENTOS OCHENTAICINCO Y 52/100 NUEVOS SOLES.
El número a ingresar debe tener un máximo de 12 dígitos.
Mi correo es [email protected]
De antemano muchas gracias.
Introducir el número : 9,285.52
Y que te devuelva el programa así : NUEVE MIL DOSCIENTOS OCHENTAICINCO Y 52/100 NUEVOS SOLES.
El número a ingresar debe tener un máximo de 12 dígitos.
Mi correo es [email protected]
De antemano muchas gracias.
1 respuesta
Respuesta de falvarez
1
Te he enviado un ejemplo a tu cuenta de Hotmail.
Hola experto, he recibido el programa ejemplo gracias, pero no entiendo para que me pide ancho = 30. Se puede quitar esa opción y que trabaje normal el programa...
El ancho es para que imprimas el resultado del importe en letras en un ancho especifico, lo cual hace que se justifique el texto a izquierda y derecha en ese ancho.
Fíjate que si lo cambias el resultado va a variar. Pruébalo.
Si no lo quieres usar cambia las lineas:
XRENGLONES=0
XFRASE=_LETRAS
DO PROCESAR WITH XFRASE, VECREN, XRENGLONES, XANCHO
_LETRAS=''
FOR I=1 TO XRENGLONES
_LETRAS=_LETRAS+VECREN(I)+CHR(13)
ENDFOR
THISFORM.RESULTADO.VALUE=_LETRAS
THISFORM.REFRESH
por
*XRENGLONES=0
*XFRASE=_LETRAS
*DO PROCESAR WITH XFRASE, VECREN, XRENGLONES, XANCHO
*_LETRAS=''
*FOR I=1 TO XRENGLONES
* _LETRAS=_LETRAS+VECREN(I)+CHR(13)
*ENDFOR
THISFORM.RESULTADO.VALUE=_LETRAS
THISFORM. REFRESH
Fíjate que si lo cambias el resultado va a variar. Pruébalo.
Si no lo quieres usar cambia las lineas:
XRENGLONES=0
XFRASE=_LETRAS
DO PROCESAR WITH XFRASE, VECREN, XRENGLONES, XANCHO
_LETRAS=''
FOR I=1 TO XRENGLONES
_LETRAS=_LETRAS+VECREN(I)+CHR(13)
ENDFOR
THISFORM.RESULTADO.VALUE=_LETRAS
THISFORM.REFRESH
por
*XRENGLONES=0
*XFRASE=_LETRAS
*DO PROCESAR WITH XFRASE, VECREN, XRENGLONES, XANCHO
*_LETRAS=''
*FOR I=1 TO XRENGLONES
* _LETRAS=_LETRAS+VECREN(I)+CHR(13)
*ENDFOR
THISFORM.RESULTADO.VALUE=_LETRAS
THISFORM. REFRESH
