Calculo con decimales

[[Luis M.]]

Hola.

El calculo sería más o menos así:
Suponiendo:
Monto = 120€
Iva := 16 %

Base = 120 / 1.16 = 103.45 €

No se si era esto lo que buscabas.
Un saludo.

[[coso]]

Hola, a mi me ocurrio algo parecido con los descuentos: segun como lo calculaba, redondeaba para arriba o para abajo. El problema esta que extraes el dato desde el edit. Deberas guardarlo todo en variables double, haciendo los calculos paralelamente hasta el momento de mostrarlo. Dicho de otra manera, no deberias usar ivax.text, sino calcular este en un double, y solo usar cadenas cuando se quiera mostrar o modificar su valor directamente (claro esta, con la divison de arriba, total_con_iva / 1.09 = base)

[Carlos Arevalo]

Estas en lo correcto hice la prueba de esta manera y funciona bien.

Código Delphi [-]

var xbase,xmonto,xivax,xivamonto: double;
begin

xmonto:=0;
xivax:=0;

xmonto:=strtofloat(monto.Text);
xivax:=strtofloat(ivax.Text);

xbase:= xmonto/((100+xivax)/100);
xivamonto:= (xbase*xivax) / 100;

base.text:=formatfloat('#,##0.00',xbase);
ivamonto.Text:= formatfloat('#,##0.00',xivamonto);

Muchas gracias por la ayuda.