Search found 13 matches: doscientos

Return to advanced search

Re: problema con SetFont

... ; Num_C[ 1] = "" Num_B[ 2] = "Veinte " ; Num_C[ 2] = "Ciento " Num_B[ 3] = "Treinta " ; Num_C[ 3] = "Doscientos " Num_B[ 4] = "Cuarenta " ; Num_C[ 4] = "Trescientos " Num_B[ 5] = "Cincuenta " ; Num_C[ 5] = "Cuatrocientos ...
by MOISES
Mon Feb 23, 2015 1:54 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: problema con SetFont
Replies: 17
Views: 4694

Re: Ayuda Dbsetfilter anidado

Amigo Garbi, ¿ Qué quieres, dos anidamientos, doscientos o dos mil ? Los que quieras :wink: Mira el ejemplo: FUNCTION Sample()Local bFil1:= {|| .t. },;         bFil2:= {|| .t.},;    ...
by hmpaquito
Tue Oct 04, 2011 6:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda Dbsetfilter anidado
Replies: 5
Views: 1212

Re: Link de Convierte numero a letras ya no funciona :(

... := ONE_UNIT+"VEINTINUEVE " TEN_UNIT := " TREINTA CUARENTA CINCUENTASESENTA " TEN_UNIT := TEN_UNIT+"SETENTA OCHENTA NOVENTA " CEN_UNIT := "CIENTO DOSCIENTOS TRESCIENTOS CUATROCIENTOS" CEN_UNIT := CEN_UNIT+ "QUINIENTOS SEISCIENTOS SETECIENTOS " CEN_UNIT := CEN_UNIT+ "OCHOCIENTOS NOVECIENTOS " GRUPO_STR ...
by FranciscoA
Wed Oct 22, 2008 11:50 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Link de Convierte numero a letras ya no funciona :(
Replies: 2
Views: 816

... "nueve"} Local aDec:= {"diez", "veinte", "treinta", "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", ...
by ARCC
Sun Mar 02, 2008 9:09 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

... la peseta. El importe en letras, sale en minúsculas o mayúsculas, con/sin céntimos. Por ejemplo: nTotal := 1250.50 cTotal:=NumLetra (nTotal) mil doscientos cincuenta euros con cincuenta céntimos cTotal:=NumLetra (nTotal, '') mil doscientos cincuenta con cincuenta céntimos cTotal:=NumLetra (nTotal, ...
by Manuel Valdenebro
Sat Mar 01, 2008 6:25 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

... y ya esta. e:=1234.50 a:=funcion(int(e)) // Euros b:=funcion((int(e-int(e)*100)) // Centimos Texto:=a+" EUROS CON "+b+" CENTIMOS" ? Texto MIL DOSCIENTOS TREINTA Y CUATRO EUROS CON CINCUENTA CENTIMOS.
by JmGarcia
Sat Mar 01, 2008 4:52 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

... la rutina no me devuelve los decimales, me muestra 50/ 100 Me hace falta una rutina que por ejemplo si tengo un importe de 1250.50 me devuelva MIL DOSCIENTOS CINCUENTA EUROS Y CINCUENTA CENTIMOS. Frafive, yo uso lo siguiente numer=space(133) numer1=space(64) numer2=space(64) nro2=int(mando) nro3=(mando-nro2)*100 ...
by caducca
Fri Feb 29, 2008 8:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

Gracias a los dos, la rutina no me devuelve los decimales, me muestra 50/ 100



Me hace falta una rutina que por ejemplo si tengo un importe de 1250.50 me devuelva MIL DOSCIENTOS CINCUENTA EUROS Y CINCUENTA CENTIMOS.
by Frafive
Fri Feb 29, 2008 7:51 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

... "nueve"} Local aDec:= {"diez", "veinte", "treinta", "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", ...
by ARCC
Fri Feb 29, 2008 7:13 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

Convertir Número a texto

Hola Amigos

Alguien tiene alguna rutina para convertir un número a texto.

1200,25 -> MIL DOSCIENTOS EUROS CON VEINTICINCO CENTIMOS.


Un saludo
by Frafive
Fri Feb 29, 2008 1:48 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3496

usa lo siguiente

... vd3[4] = 'CUARENTA' vd3[5] = 'CINCUENTA' vd3[6] = 'SESENTA' vd3[7] = 'SETENTA' vd3[8] = 'OCHENTA' vd3[9] = 'NOVENTA' vd4[1] = 'CIENTO' vd4[2] = 'DOSCIENTOS' vd4[3] = 'TRESCIENTOS' vd4[4] = 'CUATROCIENTOS' vd4[5] = 'QUINIENTOS' vd4[6] = 'SEISCIENTOS' vd4[7] = 'SETECIENTOS' vd4[8] = 'OCHOCIENTOS' ...
by Ramon Paredes
Mon Aug 13, 2007 5:48 pm
 
Forum: FiveWin para CA-Clipper
Topic: Transformar importes en letras
Replies: 2
Views: 1236

... ","veintinueve "} a_Dec:={"diez ","veinte ","treinta ","cuarenta ","cincuenta ","sesenta ",; "setenta ","ochenta ","noventa "} a_Cen:={"ciento ","doscientos ","trescientos ","cuatrocientos ","quinientos ",; "seiscientos ","setecientos ","ochocientos ","novecientos "} c:=INT(Importe/100) re:=Importe-(c*100) ...
by Ruben Fernandez
Tue Jan 30, 2007 2:11 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: RUTINA PARA CONVERTIR CIFRAS A LETRAS ( en ingles )
Replies: 4
Views: 1605

Luis,

Ya hay más de doscientos usuarios registrados en estos foros y siguen llegando más. Verás como dentro de poco estamos todos por aqui :)
by Antonio Linares
Sat Oct 22, 2005 5:40 pm
 
Forum: FiveWin para CA-Clipper
Topic: antonio, creo que fue un error cambiar las new, aqui no..
Replies: 5
Views: 2093

Return to advanced search