Ver Mensaje Individual
  #1  
Antiguo 31-03-2008
odrack odrack is offline
Miembro
 
Registrado: feb 2008
Posts: 167
Reputación: 19
odrack Va por buen camino
Solo dos Decimales

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.
Responder Con Cita