FoxPro/Visual FoxPro - convertir un numero en su equivalente en palabras

 
Vista:

convertir un numero en su equivalente en palabras

Publicado por Manuelo (16 intervenciones) el 27/06/2000 00:00:00
Quiero localizar el código fuente para convertir un número en palabras EJEMPLO:
1425320="UN MILLON CUATROCIENTOS VEINTICINCO TRESCIENTOS VEINTE"
Mil gracias. Manuelo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:convertir un numero en su equivalente en palabr

Publicado por osbaldo (37 intervenciones) el 27/06/2000 00:00:00
yo tengo una funcion para fox DOS FUNCIONA MUY BIEN. MANDAME TU UN E-MAIL PARA ENVIARTELO.

YO TAMBIEN TENGO UN PROBLEMA?
ESTOY EN VISUAL FOX 5.0 COMO HACER UN RUTINA DE RESPALDO COMPRIMIDO. SIN UTILIZAR ARCHIVOS .EXE EN DOS.
HA Y CON UNA BARRA DE PROGRESO.


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir un numero en su equivalente en palabr

Publicado por Pablo (3 intervenciones) el 09/07/2000 00:00:00
por favor, me pueden pasar esa funcion a:
[email protected]

gracias
pablo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir un numero en su equivalente en palabr

Publicado por osbaldo (37 intervenciones) el 27/06/2000 00:00:00
yo tengo una funcion para fox DOS FUNCIONA MUY BIEN. MANDAME TU UN E-MAIL PARA ENVIARTELO.

YO TAMBIEN TENGO UN PROBLEMA?
ESTOY EN VISUAL FOX 5.0 COMO HACER UN RUTINA DE RESPALDO COMPRIMIDO. SIN UTILIZAR ARCHIVOS .EXE EN DOS.
HA Y CON UNA BARRA DE PROGRESO.


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir un numero en su equivalente en palabr

Publicado por nico (6 intervenciones) el 05/08/2000 00:00:00
Por favor me envian la rutina a mí a [email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir un numero en su equivalente en palabr

Publicado por Willy (36 intervenciones) el 15/12/2000 00:00:00
Tengo una Funcion Que Maneja 2 Tablas y una Arreglo para Ello.
Por favor Enviame tu E-mail a [email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:convertir un numero en su equivalente en palabr

Publicado por Bandido (2 intervenciones) el 05/01/2001 00:00:00
aqui te dejo el procedimiento , cualquier duda enviame un e-mail

PARAMETERS NCANT,LCANT
X=TRANSFORM(NCANT,"#########.##")
X1=SUBSTR(X,1,1)
X2=SUBSTR(X,2,1)
X3=SUBSTR(X,3,1)
X4=SUBSTR(X,4,1)
X5=SUBSTR(X,5,1)
X6=SUBSTR(X,6,1)
X7=SUBSTR(X,7,1)
X8=SUBSTR(X,8,1)
X9=SUBSTR(X,9,1)
cent=subst(x,11,2)
B1=´ Y´
B2=´ Y´
B3=´ Y´
DO CASE
CASE X1=´0´.OR. X1=´ ´
A1=´ ´
CASE X1=´1´
A1=´ CIENTO´
CASE X1=´2´
A1=´ DOSCIENTOS´
CASE X1=´3´
A1=´ TRESCIENTOS´
CASE X1=´4´
A1=´ CUATROCIENTOS´
CASE X1=´5´
A1=´ QUINIENTOS´
CASE X1=´6´
A1=´ SEISCIENTOS´
CASE X1=´7´
A1=´ SETECIENTOS´
CASE X1=´8´
A1=´ OCHOCIENTOS´
CASE X1=´9´
A1=´ NOVECIENTOS´
ENDCASE
DO CASE
CASE X2=´0´.OR. X2=´ ´
A2=´ ´
CASE X2=´1´
A2=´ DIEZ´
CASE X2=´2´
A2=´ VEINTE´
CASE X2=´3´
A2=´ TREINTA´
CASE X2=´4´
A2=´ CUARENTA´
CASE X2=´5´
A2=´ CINCUENTA´
CASE X2=´6´
A2=´ SESENTA´
CASE X2=´7´
A2=´ SETENTA´
CASE X2=´8´
A2=´ OCHENTA´
CASE X2=´9´
A2=´ NOVENTA´
ENDCASE
DO CASE
CASE X3=´ ´
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar