VBA Round函数舍入结果不一致问题求助：浮点数精度原因

问题重现 #

在Mac版Excel 16.66中使用VBA的Round函数（采用银行家舍入规则）时，出现结果不一致的情况：

? Round(1.425, 2)
 1.42 
? Round(2.425, 2)
 2.42 
? Round(3.425, 2)
 3.42 
? Round(4.425, 2)
 4.42 
? Round(5.425, 2)
 5.42 
? Round(6.425, 2)
 6.42 
? Round(7.425, 2)
 7.42 
? Round(8.425, 2)
 8.43 
? Round(9.425, 2)
 9.43 
? Round(10.425, 2)
 10.42 
? Round(11.425, 2)
 11.42 
? Round(12.425, 2)
 12.42 

按银行家舍入（四舍六入五成双）的预期，所有x.425应舍入为x.42，但8.425和9.425却得到x.43。

原因分析 #

这本质是二进制浮点数的精度误差问题：

• VBA中直接输入的x.425默认是Double类型，而二进制浮点数无法精确表示十进制的0.425。实际存储时，部分数值会略大于0.425（比如8.425实际存储为8.425000000000001），部分则略小于。
• 银行家舍入的核心规则是：当舍入位为5且其后无有效数字时，前一位为偶数则舍去，奇数则进位。但如果实际存储值略大于x.425，舍入逻辑会判定该值“大于5”，触发进位得到x.43；存储值略小于x.425时则舍去，得到x.42。
• 你提到的C#中Double类型出现相同问题，而Decimal类型正常，也验证了这点——Decimal是十进制浮点类型，能精确表示0.425这类十进制小数，因此舍入结果符合预期。

解决方案 #

1. 转换为Decimal类型后舍入

通过CDec函数将Double值转换为Decimal类型（无精度损失），再调用Round：

? Round(CDec(8.425), 2)  ' 输出 8.42
? Round(CDec(9.425), 2)  ' 输出 9.42

2. 基于字符串转换处理

如果数值来源于字符串输入，直接用CDec转换后舍入，从源头避免浮点误差：

? Round(CDec("8.425"), 2)  ' 输出 8.42

3. 自定义严格银行家舍入函数

封装Decimal转换逻辑，方便重复调用：

Function BankersRound(ByVal value As Variant, ByVal numDecimals As Integer) As Double
    Dim decValue As Variant
    decValue = CDec(value)
    BankersRound = Round(decValue, numDecimals)
End Function

调用示例：

? BankersRound(8.425, 2)  ' 输出 8.42

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