close

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;

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄