如何修复Excel VBA乘法运算自动向下取整/小数丢失的错误

该问题属于VBA中二进制浮点数的固有精度限制，并非操作错误导致：

• Single（单精度）、Double（双精度）均为二进制浮点数类型，仅能精确表示可转换为分母为2的幂次的分数的十进制数值。类似673.47这类普通小数无法被二进制格式精确存储，变量赋值阶段就已经存在微小偏差，多次乘法运算后偏差逐步累积，最终结果和十进制运算的预期值存在差异。
• 此前尝试的转整数计算、事后四舍五入等方案失效，核心原因是精度偏差在变量赋值环节就已经产生，并非运算过程才出现，因此无法通过运算后处理完全修正。

针对薪资、会计核算这类对十进制精度要求极高的场景，直接将变量类型替换为VBA专用的Currency类型即可解决问题：

• Currency属于定点数类型，内部按整数规则存储，默认保留4位小数，完全避免了二进制浮点数的精度偏差，适配财务类场景的精度要求。
• 修改变量声明代码如下：

Public REGHOURSRATE As Currency
Public REGHOURSCOUNT As Currency
Public REGHOURSAMOUNT As Currency
Public HourlyRate As Currency

修改后重新执行运算，即可得到预期的38724.525的正确结果，按规则保留两位小数时也能正常四舍五入为38724.53，不会再出现会计核算误差。

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