VB.NET与Excel对10.075舍入结果不一致，如何统一？

问题根源 #

出现这个差异的核心原因是二进制浮点数的精度限制：10.075作为Double类型存储时，实际是一个略小于10.075的近似值（二进制无法精确表示所有十进制小数）。VB.NET的Math.Round基于这个近似值计算，所以会舍入为10.07；而Excel的ROUND函数使用十进制浮点运算，能精确识别10.075为中点值，因此按“四舍五入”规则得到10.08。

解决方案：使用Decimal类型处理舍入 #

Decimal类型是十进制浮点存储，能精确表示10.075这类十进制小数，用它执行舍入就能和Excel的结果对齐。

1. 直接转换为Decimal后舍入 #

将目标数值转换为Decimal类型，再调用Math.Round并指定MidpointRounding.AwayFromZero（对应Excel的四舍五入规则）：

Dim originalValue As Double = 10.075
Dim roundedValue As Decimal = Math.Round(CDec(originalValue), 2, MidpointRounding.AwayFromZero)
' 结果为10.08

2. 针对DataGridView导出的处理 #

从DataGridView导出数据时，不要直接使用单元格的原始Double值，先转换为Decimal再舍入后导出：

' 获取DataGridView单元格的值
Dim cellValue As Object = DataGridView1.Rows(rowIndex).Columns(colIndex).Value
If TypeOf cellValue Is Double Then
    Dim decimalValue As Decimal = CDec(cellValue)
    Dim roundedValue As Decimal = Math.Round(decimalValue, 2, MidpointRounding.AwayFromZero)
    ' 将roundedValue写入Excel
ElseIf TypeOf cellValue Is Decimal Then
    Dim roundedValue As Decimal = Math.Round(CDec(cellValue), 2, MidpointRounding.AwayFromZero)
    ' 将roundedValue写入Excel
End If

3. 替代方案：自定义舍入逻辑 #

如果不想依赖Decimal类型，可通过放大数值修正浮点数误差后手动处理：

Dim originalValue As Double = 10.075
Dim roundedValue As Double = Math.Round(originalValue * 100 + 0.0000001, 0) / 100
' 结果为10.08

添加0.0000001是为了修正10.075作为Double的微小误差，让它略大于真实值，从而触发正确舍入。

关于DataGridView显示与导出的差异 #

DataGridView的C2格式只是显示层面的格式化，单元格存储的仍是原始Double近似值，所以导出时会带出原始值。必须在导出前对存储数值进行实际舍入计算，才能让导出结果和显示/Excel的舍入结果一致。

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