• Home
 · 
• Math/Dates
 · 
• Rounding numbers in VB is tricky. Round() function does not round $$ amounts correctly. This functi

Rounding numbers in VB is tricky. Round() function does not round $$ amounts correctly. This functi

Rounding numbers in VB is tricky. Round() function does not round $$ amounts correctly. This function rounds a number (2 decimals) without

Rate Rounding numbers in VB is tricky. Round() function does not round $$ amounts correctly. This functi

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
Dim intNumber
Dim intDecimalLocation
Dim intDecimalNumber, intOriginalDecimalNumber
Dim intNextToNumber
Dim intOriginalNumber

If IsNumeric(piInNumber) = False Then Exit Function

intOriginalNumber = piInNumber
intNumber = Int(piInNumber)
intDecimalLocation = InStr(1, piInNumber, ".")
piInNumber = Mid(piInNumber, 1, intDecimalLocation + 2)
intDecimalNumber = Mid(piInNumber, intDecimalLocation + 1, 2)
intNextToNumber = Mid(intOriginalNumber, intDecimalLocation + 2 + 1, 1)
    
    
If IsNumeric(intNextToNumber) Then
     If intNextToNumber >= 5 And IsNull(intNextToNumber) = False Then
        intOriginalDecimalNumber = intDecimalNumber
        intDecimalNumber = intDecimalNumber + 1
        If LenB(intDecimalNumber) < LenB(intOriginalDecimalNumber) Then
            intDecimalNumber = "0" & intDecimalNumber
        End If
        If LenB(intDecimalNumber) > LenB(intOriginalDecimalNumber) Then
            intNumber = intNumber + 1
            RoundDollars = intNumber
        Else
            intNumber = intNumber & "." & intDecimalNumber
            RoundDollars = intNumber
        End If
    Else
        RoundDollars = intNumber & "." & intDecimalNumber
    End If
Else
    RoundDollars = intOriginalNumber
End If

End Function