delphi - 对货币进行四舍五入

Question

我有以下代码来四舍五入货币

function MyRound(value :currency) : integer;

begin
  if value > 0 then
    result := Trunc(value + 0.5)
  else
    result := Trunc(value - 0.5);
end;

到目前为止效果很好，我现在的问题是，如果我想对像 999999989000.40 这样的货币进行舍入，它会给出负值，因为 Truc 接受 int 并且 MyRound 也返回 int。

我可能的解决方案是将货币转换为字符串并在.之前获取字符串，然后将字符串转换回货币。这是正确的做法吗？我是 delpi 的新手，所以请帮助我。

Answer 1

从我的角度来看，您有两个选择:

1. 正如 David Heffernan 指出的那样，您使用了 Round 函数；
2. 您可以使用 SimpleRoundTo 函数，如所述 here 。 SimpleRoundTo 的优点是它接收 Single、Double 和 Extended 数据类型的参数，并且它们可以非常精确地进行舍入转换。好数字如所述。

您不需要任何类型转换。有很多舍入函数可供您使用。只需四舍五入所需的数字即可。