VB.NET中对齐政府财务工具金额计算的舍入问题排查

我需要在VB.NET中复现一款政府财务工具的计算逻辑，匹配其最终金额，但我的计算结果与官方工具相差0.1€，不清楚问题出在哪。已知数值为95、3、5、19和17.15。

官方工具计算说明 #

A product costs 95.00 € net.
Somebody buys 3 pieces of it.
He gets a discount of 5 % (=4.75 €)
19% VAT is added: 17.15 €
The net price is then 90.25 €
The price is now 270.75 €
The resulting end price is now 322.19 €.

已知参数 #

• 单件净价：95 €
• 购买数量：3
• 单件折扣率：5%
• VAT税率：19%
• 单件折扣后VAT金额：17.15 €

我的计算逻辑 #

Dim amount As Integer = 3
Dim discount As Double = 5
Dim VAT As Double = 17.15
Dim result As Decimal 

Discount = (amount * discount) / 100 = 4.75 ' 此处逻辑错误，实际应为(95 * discount)/100
Discounted net price per piece = 95 - 4.75 = 90.25
Discounted net price per piece plus vat = 95 + 17.15 = 107.4 ' 此处逻辑错误，应为90.25 + 17.15

Total price result = discounted net price per piece * amount = 107.4 * 3 = 322.2 €

问题分析 #

1. 运算逻辑存在两处错误：

   • 折扣额计算逻辑错误：你写的(amount * discount)/100完全错误，正确的单件折扣额应为95 * 5% = 4.75 €（你注释的结果正确，但代码逻辑写错了）。
   • 含税单价计算错误：你用原价95加上VAT17.15，正确的应该是折扣后的净价90.25加上VAT17.15，不过这还不是核心差异点。

2. 核心差异来自四舍五入时机：
   官方工具的计算逻辑是先计算总折扣净价（90.25 * 3 = 270.75 €），再基于总净价计算VAT（270.75 * 19% = 51.4425 €），最后对总VAT四舍五入到两位小数（51.44 €），总金额为270.75 + 51.44 = 322.19 €。
   而你的计算是先对单件VAT四舍五入（17.15 €），再乘以数量（17.15 * 3 = 51.45 €），最后总金额为270.75 + 51.45 = 322.2 €，这就产生了0.01€的差异（你说的0.1€应为笔误）。

能否用现有数据得到一致结果？ #

可以，只要调整计算顺序，先计算总折扣净价，再基于总净价计算VAT并四舍五入，而不是用单件四舍五入后的VAT计算。

VB.NET修正后的代码示例：

Dim netPricePerItem As Decimal = 95D
Dim amount As Integer = 3
Dim discountRate As Decimal = 5D
Dim vatRate As Decimal = 19D

' 计算单件折扣后净价
Dim discountedNetPerItem As Decimal = netPricePerItem * (1 - discountRate / 100) ' 90.25
' 计算总折扣净价
Dim totalDiscountedNet As Decimal = discountedNetPerItem * amount ' 270.75
' 计算总VAT（四舍五入到两位小数）
Dim totalVAT As Decimal = Math.Round(totalDiscountedNet * vatRate / 100, 2) ' 51.44
' 计算最终总金额
Dim finalPrice As Decimal = totalDiscountedNet + totalVAT ' 322.19

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