Redondeo
Publicado por Rodolfo (1 intervención) el 13/04/2004 21:07:23
Una super consulta.
Como ven en las lineas siguientes:
vbase:=StrToFloat(Edit8.Text);
vigvt:=StrToFloat(Edit9.Text); { 19 }
vigv:=vbase*vigvt/100;
vtotal:=vbase+vigv;
Mi problema esta en el redondeo.
Digamos que cuando ingreso el monto de 88.50 a Edit8.text (base imponible), me calcula un IGV de (19%) 16.815, me visualiza 16.82
Entonces me sale asi:
Base: 88.50
IGV 16.82
Total 105.31
Como ven, el total es la suma del IGV mas la BASE. Si fuera 88.50 + 16.815, el total fuera: 105.315 y deberia redondearlo a 105.32.
Deberia salir asi:
Base: 88.50
IGV 16.82
Total 105.32
Edit10.Text:=FormatFloat('0.00',vigv);
Edit11.Text:=FormatFloat('0.00',vtotal);
Como puedo redondear a 2 decimales.
Muchas Gracias.
Como ven en las lineas siguientes:
vbase:=StrToFloat(Edit8.Text);
vigvt:=StrToFloat(Edit9.Text); { 19 }
vigv:=vbase*vigvt/100;
vtotal:=vbase+vigv;
Mi problema esta en el redondeo.
Digamos que cuando ingreso el monto de 88.50 a Edit8.text (base imponible), me calcula un IGV de (19%) 16.815, me visualiza 16.82
Entonces me sale asi:
Base: 88.50
IGV 16.82
Total 105.31
Como ven, el total es la suma del IGV mas la BASE. Si fuera 88.50 + 16.815, el total fuera: 105.315 y deberia redondearlo a 105.32.
Deberia salir asi:
Base: 88.50
IGV 16.82
Total 105.32
Edit10.Text:=FormatFloat('0.00',vigv);
Edit11.Text:=FormatFloat('0.00',vtotal);
Como puedo redondear a 2 decimales.
Muchas Gracias.
Valora esta pregunta


0