Arrendonar valores em ¬

15/12/2005

1

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+


Responder

Posts

15/12/2005

Edilcimar

utilize trunc, round ou roundto para fazer o arrededondamento


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira