本文向给大家分享四舍五入函数相关知识,同时小编也会对四舍五入函数公式进行解释,如果能解决您在四舍五入函数方面面临的问题,请收藏关注本站,现在开始吧!
谁有Delphi 四舍五入 函数
在 delphi 里,四舍五入函数使用的是 round ,但需要注意的是,delphi 的 round 函数采用了所谓的 "银行家舍入法"算法,即对中间值 (如 5.5、6.5) 实施Round函数时,处理器根据小数点前数字的奇、偶性来确定舍入与否,如 5.5 Round 结果为 6,而 6.5 Round 结果也为6, 因为 6 是偶数。
以下提供的通常使用的四舍五入算法函数代码(需要 uses math):
function RoundEx(Value: Extended; RoundMode: TFPURoundingMode = rmUp): Int64;
var
RM: TFPURoundingMode;
begin
RM := GetRoundMode;
try
SetRoundMode(RoundMode);
Result := Round(Value);
finally
SetRoundMode(RM);
end;
end;
运行结果截图:
以上就是与四舍五入函数以及四舍五入函数公式的相关内容,也是关于谁有Delphi 四舍五入 函数的分享。看完四舍五入函数一文后,希望这对大家有所帮助!