在Delphi中比较货币值时如何避免舍入问题？

AFAIK,Delphi Win32中的货币类型取决于处理器浮点精度.因此,在比较两个货币值时,我遇到了舍入问题,根据机器返回不同的结果.

现在我使用SameValue函数传递Epsilon参数= 0.009,因为我只需要2位十进制数字.

有没有更好的方法来避免这个问题？

解决方法

Delphi中的Currency类型是一个64位整数,缩放为1 / 10,000;换句话说,它的最小增量相当于0.0001.它不像浮点代码那样容易受到精度问题的影响.

但是,如果您将货币数乘以浮点类型或除以货币值,则需要以某种方式计算舍入. FPU控制这种机制(它被称为“控制字”). Math单元包含一些控制此机制的过程：特别是SetRoundMode.你可以在这个程序中看到效果：

{$APPTYPE CONSOLE}

uses Math;

var
  x: Currency;
  y: Currency;
begin
  SetRoundMode(rmTruncate);
  x := 1;
  x := x / 6;
  SetRoundMode(rmNearest);
  y := 1;
  y := y / 6;
  Writeln(x = y); // false
  Writeln(x - y); // 0.0001; i.e. 0.1666 vs 0.1667
end.

您正在使用的第三方库可能是将控制字设置为其他值.您可能希望在重要计算的起始点明确设置控制字(即舍入模式).

此外,如果您的计算转移到普通浮动点然后再转换为货币,则所有投注都将被取消 – 太难以进行审计.确保所有计算均为货币.

原文地址：https://www.jb51.cc/delphi/103051.html