DELPHI四舍五入函数

四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。

Delphi 的MATH单元的RoundTo 函数使用的是银行家舍入法，没有封装的算术舍入法函数。

 

下面是本人自定义的算术舍入法函数。 

 

Function FixRound(aValue :Extended;digit : integer): Extended;
Begin
  IF aValue >= 0 THEN
  Result := Trunc(aValue*Power(10,digit) + 0.5)/Power(10,digit)
  ELSE
  Result := Trunc(aValue*Power(10,digit) - 0.5)/Power(10,digit);
End;