Fórum Função usando valor em DBEdit #333931

function Power(Base, Exponent :Extended) :Extended;
var
  Valor :Extended;
begin
  Result := 1;
  while Exponent > 0 do
  begin
    Result := Result * Base;
    Exponent := Exponent -1;
  end;
end;

function Arredonda1(Valor :Double; Casas: Byte) :Double;
var
  StrFormat :String;
begin
  StrFormat := ´#.´;
  while Casas > 0 do
  begin
    // inicializa quantidade de zeros ref. as casas decimais desejadas
    StrFormat := StrFormat +´0´;
    Dec(Casas);
  end;
  Result := StrToFloat(FormatFloat(StrFormat, Valor));
end;

function Arredonda2(Valor :Double; Casas: Byte) :Double;
var
  Multiplicador :Extended;
begin
  Multiplicador := Power(10, Casas); // unit Math ou função acima
  // desloca casas à direita e arredonda
  Valor := Round(Valor * Multiplicador);
  // retorna casas à esquerda
  Result := Valor/Multiplicador;
end;