Ver Mensaje Individual
  #4  
Antiguo 30-07-2008
Carlos Arevalo Carlos Arevalo is offline
Miembro
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 111
Reputación: 21
Carlos Arevalo Va por buen camino
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.
__________________
Carlos Arevalo
MSN Messenger: carlos@arevalo.com.ve
Responder Con Cita