Arrendonar valores em �

15/12/2005

estou com esta fun��o o meu programa coloca valor de custo e valor de venda e o programa informa qual aporcentagem que est� senho ganho..tem valor que por exemplo 120 de custo e 200 de venda d� 66,666 de porcentagem num tem como arrendonda para 66 ou 67 ?

veja a fun��o...

var
A,B,C,D,E: real;
begin
  E:= strtofloat(DBEdit9.text);
  DBEdit9.text := floattostrf(E,ffFixed,10,2);
  BD_ESTOQUE.Edit;
  a := strtofloat(BD_ESTOQUEGS_EST_VALOR_VENDA.Value);   // Valor venda
  b := strtofloat(BD_ESTOQUEGS_EST_VALOR_CUSTO.Value);   // Valor custo
  c := a-b;
  BD_ESTOQUEGS_EST_MARGEM_LUCRO.Value := floattostrf(c,ffFixed,10,2);
  d := (c * 100) / b;
  BD_ESTOQUEGS_EST_LUCRO.Value := floattostr(d);
  BD_ESTOQUE.Post;
  Colocarzeros;
end;

vlew t+

Gigatel

Curtir t�pico + 0

Responder

Posts

15/12/2005

Edilcimar

utilize trunc, round ou roundto para fazer o arrededondamento

Responder

Gostei + 0