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

Question

Bom o tropico j� esclarece bem minha d�vida..�Como arrendorar um valor 7,33333333 p/ 7,334�...

Bruno Belchior · Answer

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......

Daemon · Answer

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

F�rum Como arrendorar um valor 7,33333333 p/ 7,334 #288682