VB.NET如何输出不四舍五入的12位小数？以5991÷2987为例

我完全懂你碰到的这个糟心问题——默认的浮点数除法总是偷偷给你做四舍五入，刚好这个除法的精度卡点，结果最后一位就差了那么一点。别担心，用Decimal类型配合截断操作就能完美解决。

问题根源 #

VB.NET里的Double类型是二进制浮点数，没法精确表示所有十进制小数。计算5991/2987时，Double的计算结果会有微小的精度误差，导致保留12位小数时被四舍五入成2.005691329093，而不是你要的2.005691329092。

解决方案：用Decimal类型+截断操作 #

Decimal是十进制浮点数，精度更高，能准确存储这个除法的更多小数位。再配合Math.Truncate来截断到12位小数（而不是四舍五入），就能得到你想要的精准结果。

代码示例1：直接计算除法并截断 #

' 用Decimal类型声明被除数和除数，从源头保证精度
Dim numerator As Decimal = 5991D
Dim denominator As Decimal = 2987D

' 计算完整的除法结果
Dim fullResult As Decimal = numerator / denominator

' 截断到12位小数：先乘以10^12取整数部分，再除以10^12
Dim truncatedResult As Decimal = Math.Truncate(fullResult * 1000000000000D) / 1000000000000D

' 格式化输出为12位小数（确保末尾补0，保持格式统一）
Dim output As String = truncatedResult.ToString("F12")

Console.WriteLine(output) ' 输出：2.005691329092

代码示例2：利用分数拆分计算 #

你提到小数部分是17/2987（因为5991 = 2*2987 +17），也可以直接拆分计算，结果完全一致：

Dim fractionPart As Decimal = 17D / 2987D
Dim truncatedFraction As Decimal = Math.Truncate(fractionPart * 1000000000000D) / 1000000000000D
Dim finalResult As Decimal = 2D + truncatedFraction

Console.WriteLine(finalResult.ToString("F12")) ' 输出：2.005691329092

为什么这个方法有效？ #

• Decimal类型的精度远高于Double，能准确存储5991/2987的更多小数位，不会出现二进制浮点数的精度偏差。
• Math.Truncate只会截断多余的小数位，完全不做四舍五入，完美符合你“严格保留12位且不四舍五入”的要求。

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