by Matt Roberts (1 Submission)
Category: VB function enhancement
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (5 Votes)
This code makes easy work of doing simple rounding on decimal number...something that VB currently lacks. Why didn't they think of this?
Inputs
Number (double data type)
Code Returns
RoundNum (Integer)
Side Effects
Rounding financial stuff is not cool :)
' Paste this code directly into your IDE. This has not yet been tested on VBScript, but should work if you drop the type declarations.
Function RoundNum(Number As Double) As Integer
If Int(Number + 0.5) > Int(Number) Then
RoundNum = Int(Number) + 1
Else
RoundNum = Int(Number)
End If
End Function