抓狂小白的程式筆記

Delphi 四捨五入

 

//RoundF 商用的四捨五入
  function RoundF(X: Extended; Decimal: integer = 0): Extended;
    function RoundI(X: Extended): Int64;
    begin
      if X < 0 then
        Result := Round(X - 0.0000001)
      else
        Result := Round(X + 0.0000001);
    end;
  var
    PowerNum: Extended;
  begin
    PowerNum := IntPower(10, Decimal);
    Result := RoundI(X * PowerNum) / PowerNum;
  end;