Rounding Up Integers

[ExcalibursZone]

Just my quick 2 pennies worth:

Private Function intRoundUp(intNum As Double) As Integer
    If Int(intNum) < intNum Then
        intRoundUp = Int(intNum) + 1
        Else
        intRoundUp = intNum
    End If
End Function

This will always round up if intNum is a float.

Example:
intRoundUp(.6) = 1
intRoundUp(1.6) = 2
intRoundUp(1.15685) = 2
intRoundUp(.1789456) = 1