寻求与指定VB6计算函数结果完全一致的C#等价实现（含特定测试用例验证）

我现在遇到一个有意思的学术挑战：要写出和这段VB6代码完全等价的C#实现，要求在指定的两个测试用例下返回一模一样的结果——哪怕我知道VB6里用Double做精确计算是不规范的，但就想搞定这个匹配问题。

先给大家看看原始的VB6函数：

Public Function Moo(o1 As Currency, o2 As Double) As Currency
    Moo = Round((o1 * o2) / 100, 2)
End Function

我已经试过两种常见的C#写法，但都在测试用例上翻车了：

• 第一种直观写法：

Math.Round(o1 * (decimal)o2 / 100, 2)

在测试用例o1=1450，o2=1.15时，VB6返回16.67，但这个C#代码返回16.68，对不上。

• 第二种尝试，把所有运算放在Double精度下：

(decimal)Math.Round((double)o1 * o2 / 100, 2)

这次第一个测试用例对了，但遇到o1=1570，o2=1.15时，VB6返回18.06，这个代码却返回18.05，还是不行。

我需要让下面这个xUnit测试能100%通过：

[Theory]
[InlineData(1450, 1.15, 16.67)]
[InlineData(1570, 1.15, 18.06)]
public void MooTest(decimal o1, double o2, decimal expectedValue)
{
    var value = {MAGICAL METHOD CODE HERE};
    Assert.Equal(expectedValue, value);
}

问题根源与解决方案 #

经过一番折腾，我发现核心问题在于VB6和C#的舍入规则差异，加上Double浮点运算的微小误差：

• VB6的Round函数默认采用IEEE 754的「就近舍入，中间值舍入到偶数」（银行家舍入），但因为Double无法精确表示1.15这类十进制小数，实际计算结果会有微小偏移，导致舍入结果和直观预期不同。
• 要完全匹配VB6的结果，必须严格复刻它的计算流程：所有运算都在Double精度下进行，再用相同的舍入规则处理，最后转成对应VB6 Currency的decimal类型。

最终能通过测试的C#实现如下：

public static decimal Moo(decimal o1, double o2)
{
    // 1. 将decimal转成Double，对应VB6中Currency转Double的操作
    double doubleO1 = (double)o1;
    // 2. 完全复刻VB6的运算顺序：先乘后除，全程用Double精度
    double calculationResult = (doubleO1 * o2) / 100.0;
    // 3. 用VB6相同的舍入规则：就近舍入，中间值舍入到偶数
    double roundedResult = Math.Round(calculationResult, 2, MidpointRounding.ToEven);
    // 4. 转成decimal，对应VB6中Double转Currency的类型转换
    return (decimal)roundedResult;
}

这个代码严格遵循了VB6的计算路径，包括浮点运算的精度偏移和舍入规则，所以能完美匹配指定测试用例的结果。

备注：内容来源于stack exchange，提问作者Kyle Baley