Solo dos Decimales

[odrack]

Saludos al foro.

Tengo un pequeño problema con los decimales, tengo varias operaciones donde el resultado me salen mas de 8 decimales y solo quiero mostrar 2 decimales, como puedo cortar o truncar estos??

agrego un fragmento de codigo donde hago las operaciones

Código Delphi [-]
//Hago un query para hacer la suma de un monto y lo almaceno en una variable monto
     monto:=strtofloat(dbedit9.Text);
//si tiene descuento los aplico (estos son descuentos globales, Ej. 1%+2%+3%)
//Totales con descuento
desc1:=strtofloat(edit8.Text);
desc2:=strtofloat(edit10.Text);
desc3:=strtofloat(edit11.Text);
total:=strtofloat(dbedit9.text);
total1:=total*(desc1/100);
totdesc1:=total-total1;
total2:=totdesc1*(desc2/100);
totdesc2:=totdesc1-total2;
total3:=totdesc2*(desc3/100);
totdesc3:=totdesc2-total3;
subtot:=totdesc3+strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit6.text);
subt:=strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit6.text);
edit14.text:=floattostr(subt);
edit15.Text:=floattostr(subtot);
 
//al resultado desgloso el iva
iva:=strtofloat(edit15.Text);
resultado:=iva/1.15;
edit20.Text:=floattostr(resultado);
stc:=strtofloat(edit15.text)-strtofloat(edit20.text);
//resultado de IVA con mas de 8 decimales
edit21.Text:=floattostr(stc);

Espero que me puedan ayudar.

[[egostar]]

Puedes usar la función

Código Delphi [-]
Format('%7.2m',[total]);

Solo un comentario, te recomiendo que nombres adecuadamente tus objetos porque puedes tener errores si te equivocas al usarlos,

Código Delphi [-]
strtofloat(edit1.Text) 
strtofloat(edit2.Text)
strtofloat(edit6.text)
//Tienes un margen de error muy alto si equivocas el objeto
strtofloat(eIVA.Text) 
strtofloat(eComision.Text)
strtofloat(eViaticos.text)

Salud OS

[odrack]

Gracias por los comentarios, solo una pequeña duda, el codigo de format quedaria de la siguiente forma en caso del edit??

Código Delphi [-]
Format('%7.2m',[editX.text]);

y el %7.2 para que sirve?? (no entendi bien para que es)

Gracias

[odrack]

Que tal, he investigado un poco hacerca de los decimales, y mi codigo ha quedado asi, solo que no formatea los deciamales. ¿Alguien sabe que esta pasando?

Código Delphi [-]
subtot:=totdesc3+strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit6.text);
subt:=strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit6.text);
edit14.text:=floattostr(subt);
edit15.Text:=format('%0.2f',[subtot]); <<-AQUI
iva:=strtofloat(edit15.Text);
resultado:=iva/1.15;
edit20.Text:=floattostr(resultado);
stc:=strtofloat(edit15.text)-strtofloat(edit20.text);
edit21.Text:=format('%0.2f',[stc]); <<-AQUI

Saludos

[Wiarbumu]

Hola, no se si sea muy tarde para la respuesta, a mi me ocurría algo parecido y lo solucioné de la siguiente manera: En el editor de campos del Dataset selcciona el campo en cuestión y configura la propiedad presición que por defecto es 15 a 4 y así solo mostrará dos decimales.

Espero te sirva.

[odrack]

hola.

Gracias por responder, ya he solucionado este tema, pero es bueno que hayas respondido, quiza a alguien mas que tenga este problema le ayude!

Saludos.