Arredondamento

Question

Boa Tarde, pessoal!Algu�m sabe me dizer qual fun��o no Delphi que realiza arredondamento �para baixo�? J� tentei estas:- FormatFloat, Round, RoundTo;Mas elas arredondam para cima...Por exemplo:3.8875E...

Keitarosan · Answer

Bom, nao conheco uma funcao com precisao de duas casas que arredonde pra baixo.
Voc� poderia usar o Trunc(), truncando assim o numero, mas ele s� funciona pra retornar um inteiro, nao teria a precisao de 2 casas...

Mas me veio algo a mente, pq voc� nao cria uma funcao Trunc pra numero Float??

por exemplo, voce tem o numero: 3,8875
a inten��o da truncagem seria com precisao de 2 casas, logo a saida seria essa: 3,88, neh?

a funcao seria bem simples:

uses math;

function TruncFloat(Value: Extended; Precision: Integer): Extended;
var
  Fator: Integer;
begin
  Fator := Round(Power(10, Precision));
  Result := Trunc(Value * Fator) / Fator;
end;

Espero que eu tenha conseguido fazer o que voc� precisa :D

Michaell · Answer

� uma boa sa�da!Obrigado, amigo San!...

Sabe.geraldo · Answer

Eu uso a fun��o Trunc() assim : ( Trunc( valor * 100 )/100 ); Tem funcionado. []. Geraldo....

F�rum Arredondamento #254451