Delphi中取整时添加epsilon避免结果不一致的方法及标准方案咨询

问题根源 #

你遇到的情况本质是两点叠加：

1. Delphi的Round函数采用IEEE 754银行家舍入规则（四舍六入五成双），对于21.499991254这类严格小于21.5的数值，会正常向下取整；
2. 业务场景中你认为这类接近中点的数值应与21.5等效，但浮点数的二进制精度误差导致它们无法被识别为中点。

可行解决方案 #

1. 合理使用Epsilon修正 #

直接加固定epsilon可能对大数失效，建议根据数值量级动态调整，或匹配业务精度设置阈值：

function RoundWithDynamicEpsilon(const Value: Double): Integer;
const
  RELATIVE_EPS = 1e-8; // 相对误差阈值，根据业务调整
var
  AdjustedValue: Double;
begin
  AdjustedValue := Value + RELATIVE_EPS * Abs(Value);
  Result := Round(AdjustedValue);
end;

// 调用示例
ShowMessage(IntToStr(RoundWithDynamicEpsilon(21.499991254))); // 返回22

若业务有固定小数精度要求（比如保留6位小数），可使用固定epsilon：

const
  FIXED_EPS = 1e-6; // 对应6位小数精度
Result := Round(Value + FIXED_EPS);

2. 改用精确十进制类型 #

如果需要避免Double的二进制精度丢失，推荐使用TDecimal类型（需引用System.Decimal）：

uses System.Decimal;

var
  value2: Double;
  decValue: TDecimal;
begin
  value2 := 21.499991254;
  decValue := TDecimal.FromDouble(value2);
  // 结合epsilon判断处理接近中点的情况
  if decValue - TDecimal.Trunc(decValue) >= TDecimal.FromDouble(0.5 - 1e-8) then
    ShowMessage(IntToStr(TDecimal.Trunc(decValue) + 1))
  else
    ShowMessage(IntToStr(TDecimal.Round(decValue)));

金融场景下，Currency类型（固定4位小数）也是更可靠的选择。

3. 自定义舍入函数 #

如果需要脱离银行家舍入，实现传统“四舍五入”并兼容近似中点处理，可自定义函数：

function CustomRound(const Value: Double; const Epsilon: Double = 1e-6): Integer;
var
  IntPart: Integer;
  FracPart: Double;
begin
  IntPart := Trunc(Value);
  FracPart := Value - IntPart;
  if FracPart >= 0.5 - Epsilon then
    Result := IntPart + 1
  else if FracPart <= -0.5 + Epsilon then
    Result := IntPart - 1
  else
    Result := IntPart;
end;

最佳实践 #

• 明确业务规则：先确定是需要严格数学舍入，还是要处理浮点数精度导致的近似值，这直接决定方案选择；
• 避免Double存储精确小数：金额、计量等场景优先用TDecimal或Currency；
• 谨慎选择epsilon：大小要匹配业务允许的误差范围，过大易导致错误舍入，过小则无法解决精度问题。

内容的提问来源于stack exchange，提问作者zeus