Integer y extended

[[coso]]

bueno, un entero no puede tener decimales...

[[coso]]

Se pueden comparar tambien decimales en las consultas de sql, quiza deberias tirar por alli, en vez de intentar poner en ella un entero.

[radge]

A ver pongamos un ejemplo

precio : 50,50
cantidad : 10
descuento : 50%


Yo hago lo siguiente : 50,50 * 10 - ( 50,50 * 10 * (50 / 100)
Total = 252.5


Yo esto tal como lo hago lo guardo en un "extended" el problema es despues que no veo como transformar ese numero para ponerlo en el sql , yo luego quiero insertarlo en la sql.

[[coso]]

bueno, este numero 252.5 es un decimal, el cual su parte entera es 252. Contra que lo quieres comparar?

[[coso]]

SumaTotal := SumaTotal + TotalLinea; (<== esta ultima del tipo extended)

si lo que quieres es que te cuente los decimales en esta suma, lo mejor sera que sumatotal sea extended y una vez hecha toda la suma, entonces pasarla a entero (aunque claro esta, se perderan los decimales)

[radge]

A ver tal como dices si tengo varios registros como estos

100,10
100,10
100,10

El total es 300,30 , yo necesito eso 300,30 con todos sus decimales

Otra opción que he encontrado es usar floattostr

FloatToStr(SumaTotalLinea) , lo cual me devuelve 300,30.

Ahora solo me falta substituir la "," por el ".".

[[coso]]

Si necesitas los decimales, entonces no debes usar el integer para nada.

Puedes usar

Código Delphi [-]
numero_en_string := FormatFloat('0.00',numero_float);
numero_en_string := StringReplace(numero_en_string,',','.',[rfReplaceAll,rfIgnoreCase);

o bien

Código Delphi [-]
numero_en_string := Format('%2.2f',[numero_float]);

[JeanSolo]

Hola ! la variable que recibira el resultado debe ser de tipo real o variant

[radge]

Ahora tengo otra duda ,


Alb_Importe : string;
ImportResta , SumaTotalLinea, : extended;


Recibo de otro formulario un "String" llamado "ALB_importe"

Código Delphi [-]
ImportFloat := FormatFloat('0.00',SumaTotalLinea); 
ImportFloat := StringReplace(ImportFloat, ',' , '.',[rfReplaceAll,rfIgnoreCase]);
ImportResta := ALB_Importe - SumaTotalLinea;

Es decir yo recibo un string , intento pasarlo a integer y entonces darle formato para poder hacer la resta

gracias , radge

[[coso]]

strtoint te deberia servir, si es entero, sino strtofloat

[[Delphius]]

He visto que estás empleando el tipo extended en vez de real.¿Es necesario que emplees dicho tipo? Puede que con el real te baste y sobre.

Si se trata de datos monetarios, por lo general es preferible tratar con el tipo Currency, que supuestamente ha sido diseñado para tener una buena precisión es los cálculos monetarios.

Saludos,

[JCX]

Recibir como string un número pienso que resulta arriesgado ... de preferencia usar edición con mascara como TMaskEdit.

En lugar de usar StrToInt o StrToFloat para convertir ALB_importe, mejor usar StrToIntDef o StrToFloatDef, Ej.:

StrToFloatDef(ALB_importe,0);

Esto garantiza que si ALB_importe no es un numero siempre se regresa 0.00 como importe ...

Las funciones que no tienen Def generan la excepcion EConvertError.