ffnumber

Delphi

31/05/2004

Utilizo ffnumber para aredondar números. Sendo que gostaria de aredondar os números sempre para cima, mesmo que o número seja por exemplo 7.2. Gostaria que ele ficasse 8. Alguém sabe o que tenho que colocar no arredondamento?


Valeu a força JR.


Jrjoliv2003

Jrjoliv2003

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

31/05/2004

Colega,

As funções RoundTo e SimpleRoundTo não permitem este tipo de ´arredondamento´. Portanto, é necessário implementar uma função como abaixo:

function RoundToUp(Value: Extended): Currency;
var _inteiro: Integer;
begin

  _inteiro := Trunc(Value);

  if _inteiro < Value then
    Inc(_inteiro);
  Result := _inteiro;

end;



GOSTEI 0
Jrjoliv2003

Jrjoliv2003

31/05/2004

Valeu a Dica!!!


Fiz o que queria!!!

Valeu!!


JR.


GOSTEI 0
POSTAR