Search found 8 matches: setecientos

Return to advanced search

Re: problema con SetFont

... " Num_B[ 7] = "Setenta " ; Num_C[ 7] = "Seiscientos " Num_B[ 8] = "Ochenta " ; Num_C[ 8] = "Setecientos " Num_B[ 9] = "Noventa " ; Num_C[ 9] = "Ochocientos " Num_C[ 10] = "Novecientos " //Se vacias valores ...
by MOISES
Mon Feb 23, 2015 1:54 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: problema con SetFont
Replies: 17
Views: 4694

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

... := 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 := "" IF GRUPO_VAL = 100 NUEVA1 := INT(GRUPO_VAL/100) GRUPO_VAL := GRUPO_VAL ...
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

... "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", "diecisiete", "dieciocho", "diecinueve"} ...
by ARCC
Sun Mar 02, 2008 9:09 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3495

... aNumero[300] := "trescientos"; aNumero[400] := "cuatrocientos" aNumero[500] := "quinientos"; aNumero[600] := "seiscientos" aNumero[700] := "setecientos"; aNumero[800] := "ochocientos" aNumero[900] := "novecientos" IF nCentena > 0 nDecena := ( nImporte - (nCentena*100) ) cCentena := aNumero ...
by Manuel Valdenebro
Sat Mar 01, 2008 6:25 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3495

... = "DOSCIENTOS" centena[3] = "TRESCIENTOS" centena[4] = "CUATROCIENTOS" centena[5] = "QUINIENTOS" centena[6] = "SEISCIENTOS" centena[7] = "SETECIENTOS" centena[8] = "OCHOCIENTOS" centena[9] = "NOVECIENTOS" deci[1] = "ONCE" deci[2] = "DOCE" deci[3] = "TRECE" deci[4] = "CATORCE" deci[5] = ...
by caducca
Fri Feb 29, 2008 8:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3495

... "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ; "cuatrocientos", "quinientos", "seiscientos",; "setecientos", "ochocientos", "novecientos"} Local aAux1:= {"once", "doce", "trece", "catorce", "quince", ; "dieciseis", "diecisiete", "dieciocho", "diecinueve"} ...
by ARCC
Fri Feb 29, 2008 7:13 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Convertir Número a texto
Replies: 11
Views: 3495

usa lo siguiente

... vd4[1] = 'CIENTO' vd4[2] = 'DOSCIENTOS' vd4[3] = 'TRESCIENTOS' vd4[4] = 'CUATROCIENTOS' vd4[5] = 'QUINIENTOS' vd4[6] = 'SEISCIENTOS' vd4[7] = 'SETECIENTOS' vd4[8] = 'OCHOCIENTOS' vd4[9] = 'NOVECIENTOS' F_CAR = STR(WNUMERO,12,2) F_CENTAVO= SUBSTR(F_CAR,11,2) F_CIEN = SUBSTR(F_CAR,7,3) F_MILES ...
by Ramon Paredes
Mon Aug 13, 2007 5:48 pm
 
Forum: FiveWin para CA-Clipper
Topic: Transformar importes en letras
Replies: 2
Views: 1236

... ","sesenta ",; "setenta ","ochenta ","noventa "} a_Cen:={"ciento ","doscientos ","trescientos ","cuatrocientos ","quinientos ",; "seiscientos ","setecientos ","ochocientos ","novecientos "} c:=INT(Importe/100) re:=Importe-(c*100) ic:=IF((c=1 .AND. re=0),"cien ",IF(c<>0,a_Cen[c],"")) d:=INT(re/10) ...
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

Return to advanced search