How do I cope with rounding errors on doubles in vb.net?

Question

I'm trying to balance a set of currency values using vb.net. The totals for both these values is cast as a double. I'm getting rounding errors in some situations.

What's the best way to avoid this? Is there a type I can use in preference to double? How do I round the resultant value to two decimal places?

Here's my code - I probably don't need to show it, but just in case.

  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

score 5 · Accepted Answer · edited May 23 '17 at 09:57

5

For financial calculations I believe that the current wisdom is to use Decimals instead of Doubles.

You might be interested in this discussion Decimal Vs. Double.

edited May 23 '17 at 09:57

Community

1
1

answered Oct 09 '08 at 10:43

TK.

46,577
46
119
147

score 3 · Answer 2 · answered Oct 09 '08 at 10:40

3

Try using the Decimal type.

MSDN - Decimal

answered Oct 09 '08 at 10:40

Inisheer

20,376
9
50
82

How do I cope with rounding errors on doubles in vb.net?

2 Answers2