Como arrendorar um valor 7,33333333 p/ 7,334

Delphi

19/07/2005

Bom o tropico já esclarece bem minha dúvida..

´Como arrendorar um valor 7,33333333 p/ 7,334´


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

19/07/2005

bem... existe o Comando [b:47f8be7dc4]RoundTo[/b:47f8be7dc4] disponível da unit [b:47f8be7dc4]Math[/b:47f8be7dc4], porém ele irá arredondar para 7,333 porque essa é a regra matemática...


GOSTEI 0
Daemon

Daemon

19/07/2005

Declara a unit ´Math´ e usa essa função que eu criei:
valor: é o valor a ser convertido, no caso ´7,33333333´;
decimais: é quantas casas decimais vc quer;
o resultado é o valor convertido;

function Tform1.CeilFormat(valor:Extended; decimais:Extended):Extended;
var
  Fator:Integer;
begin

  Fator := trunc(Power(10, decimais));
  result := (Ceil(valor * Fator)/Fator);

end;



...flws


GOSTEI 0
POSTAR