Codigo de Visual Foxpro

LEONARDO
06 de Febrero del 2003
Hola, quiero pedir por favor el codigo de como transformar numeros a letras si alguien lo tienes se lo agradecrer mucho si me lo envia gracias

Rafael
06 de Febrero del 2003
Podes ir a esta direc. ahi encontraras el ejemplo.

http://www.lawebdelprogramador.com/codigo/mostrar.php?id=34&texto=FoxPro/Visual+FoxPro

Saludos.

julio
06 de Febrero del 2003
*// Convierte Numeros en Letras (Español)
function letesp(nMonNumero)
a9='Un Dos Tres CuatroCinco Seis Siete Ocho Nueve '
b9='Once Doce Trece Catorce Quince Dieciseis DiecisieteDieciocho Diecinueve'
c9='Veinti Treinta Cuarenta CincuentaSesenta Setenta Ochenta Noventa '
d9='Ciento Doscientos Trescientos CuatrocientosQuinientos Seiscientos Setecientos Ochocientos Novecientos '
monlet1=' '
cantidad=INT(nMonNumero)
decimal=nMonNumero-cantidad
IF cantidad<>0
IF INT(cantidad/1000000)>0
i=0
valor=INT(cantidad/1000000)
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ENDIF
IF INT(cantidad/1000)>0
i=1
valor=INT(cantidad/1000)
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))+' '
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ENDIF
i=2
valor=cantidad
IF valor/100=1
monlet1=monlet1+'Cien '
ELSE
IF INT(valor/100)>0
valor1=INT(valor/100)
monlet1=monlet1+trim(SUBSTR(d9,(valor1*13)-12,13))+' '
valor=valor-valor1*100
ENDIF
ENDIF
IF INT(valor/10)>0
IF valor/10=1
monlet1=monlet1+'Diez '
ENDIF
IF valor/20=1
monlet1=monlet1+'Veinte '
ENDIF
IF valor/10<>1 .AND. valor/20<>1
valor1=INT(valor/10)
IF valor1=1
valor1=valor-10
monlet1=monlet1+trim(SUBSTR(b9,(valor1*10)-9,10))+' '
valor=0
ENDIF
IF valor>20 .AND. valor1<=9
monlet1=monlet1+trim(SUBSTR(c9,(valor1-1)*9-8,9))
valor=valor-valor1*10
IF valor>0 .AND. valor1<>2
monlet1=monlet1+' y '
ENDIF
IF valor=0
monlet1=monlet1+' '
ENDIF
ENDIF
ENDIF
ENDIF
IF valor>0 .AND. valor<10
monlet1=monlet1+trim(SUBSTR(a9,(valor*6)-5,6))+' '
ENDIF
IF i=0
IF INT(cantidad/1000000)=1
monlet1=monlet1+' Millon '
ELSE
monlet1=monlet1+' Millones '
ENDIF
cantidad=cantidad-INT(cantidad/1000000)*1000000
ENDIF
IF i=1
monlet1=monlet1+'Mil '
cantidad=cantidad-INT(cantidad/1000)*1000
ENDIF
ELSE
monlet1=monlet1+'Cero '
ENDIF
decimal=decimal*100
dec=str(decimal,2)
IF decimal>0 .AND. decimal<10
dec='0'+ltrim(dec)
ENDIF
IF decimal=0
dec='00'
ENDIF
Rele nMonNumero
monlet1 = monlet1+'con '+dec+'/100'+[ Ctmos.]
return(monlet1)