Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-03-2008
odrack odrack is offline
Miembro
 
Registrado: feb 2008
Posts: 167
Poder: 17
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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como usar solo dos posiciones decimales alcides Varios 9 02-04-2007 19:31:31
Labels con numeros de solo dos decimales Jucho69 OOP 2 19-01-2007 17:32:38
permitir solo dos decimales jonmendi OOP 3 12-01-2007 16:30:35
mostrar solo dos decimales clanmilano Varios 1 15-11-2005 23:31:52
Ingresar sólo decimales en un Edit noeres Varios 10 06-12-2004 00:32:11


La franja horaria es GMT +2. Ahora son las 03:03:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi