如何处理vb.net中双打的舍入错误?

时间:2008-10-09 10:38:32

标签: vb.net rounding-error

我正在尝试使用vb.net平衡一组货币值。这两个值的总计将被转换为double。我在某些情况下会出现舍入错误。

避免这种情况的最佳方法是什么?我可以使用哪种类型而不是双倍?如何将结果值舍入到两位小数?

这是我的代码 - 我可能不需要显示它,但为了以防万一。

  Dim nInvValue As Double
  Dim nCreditValue As Double

  For Each oReferenceItem In oMatchInvoices
     Dim nUnallocated As Double = oReferenceItem.DocumentOutstandingValue - oReferenceItem.DocumentAllocatedValue
     If ((nUnallocated <> 0) And (sReferenceValue = oReferenceItem.InstrumentNo)) Then
        iCount = iCount + 1
        If (oReferenceItem.IsDebit) And (nUnallocated > 0) Then
           nInvValue = nInvValue + nUnallocated
           InvoiceList.Add(nUnallocated.ToString("c"), oReferenceItem.URN.ToString)
        End If
        If (oReferenceItem.IsCredit) And (nUnallocated < 0) Then
           nCreditValue = nCreditValue - nUnallocated
           CreditList.Add(nUnallocated.ToString("c"), oReferenceItem.URN.ToString)
        End If
     End If
  Next

2 个答案:

答案 0 :(得分:6)

对于财务计算,我认为目前的智慧是使用小数而不是双打。

您可能对此讨论Decimal Vs. Double感兴趣。

答案 1 :(得分:3)

尝试使用Decimal类型。

MSDN - Decimal