将货币四舍五入

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 数据类型的参数，并且它们可以很好地转换这些数字。

您不需要任何类型转换。您已经可以使用许多舍入函数。只需将所需的数字四舍五入即可。

Answer 2

你把事情复杂化了。你可以简单地使用Round:

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  C: Currency;

begin
  C := 999999989000.4;
  Writeln(Round(C));
  C := 999999989000.5;
  Writeln(Round(C));
  C := 999999989000.6;
  Writeln(Round(C));
  C := 999999989001.4;
  Writeln(Round(C));
  C := 999999989001.5;
  Writeln(Round(C));
  C := 999999989001.6;
  Writeln(Round(C));
  Readln;
end.

哪个输出

999999989000 999999989000 999999989001 999999989001 999999989002 999999989002

如果您不想要银行家的四舍五入，并且您确实想要您的Trunc 逻辑，那么您确实需要编写自己的函数。但是你的函数的问题是它被截断为 32 位整数。让函数返回一个 64 位整数：

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  C: Currency;

function MyRound(const Value: Currency): Int64;
begin
  if Value > 0 then
    result := Trunc(Value + 0.5)
  else
    result := Trunc(Value - 0.5);
end;

begin
  C := 999999989000.4;
  Writeln(MyRound(C));
  C := 999999989000.5;
  Writeln(MyRound(C));
  C := 999999989000.6;
  Writeln(MyRound(C));
  C := 999999989001.4;
  Writeln(MyRound(C));
  C := 999999989001.5;
  Writeln(MyRound(C));
  C := 999999989001.6;
  Writeln(MyRound(C));
  Readln;
end.

999999989000 999999989001 999999989001 999999989001 999999989002 999999989002

Answer 3

看看 John Herbster 的舍入例程。它们提供您可能想要的几乎任何类型的舍入，例如：

drNone,    {No rounding.}
drHalfEven,{Round to nearest or to even whole number. (a.k.a Bankers) }
drHalfPos, {Round to nearest or toward positive.}
drHalfNeg, {Round to nearest or toward negative.}
drHalfDown,{Round to nearest or toward zero.}
drHalfUp,  {Round to nearest or away from zero.}
drRndNeg,  {Round toward negative.                    (a.k.a. Floor) }
drRndPos,  {Round toward positive.                    (a.k.a. Ceil ) }
drRndDown, {Round toward zero.                        (a.k.a. Trunc) }
drRndUp);  {Round away from zero.}

我现在不能给你一个链接，但是谷歌：十进制四舍五入 John Herbster 我认为他最新的舍入例程在 DecimalRounding_JH1.pas 中。他对浮点舍入的讨论（Embarcadero 网站上的某个地方是“必读”。

Answer 4

这是我实际使用的（很想知道这种方法是否有任何问题！）：

function RoundingFunction(X: Real): Int64;
begin
  Result := Trunc(SimpleRoundTo(X, 0));
end;