CodeItBetter Programming Another VB Programming Blog

'Math - VB 6 equivalent functions to .Net's Floor & Ceiling functions
Option Explicit
 
Public Function Floor(ByVal dblValue As Double) As Double
    Dim myDec As Long
    myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
    If myDec > 0 Then
        Floor = CDbl(Left(CStr(dblValue), myDec)) + 1
    Else
        Floor = dblValue
    End If
End Function
'How can I call this function:
'Debug.Print Floor(3.356)
'Will display 4

Public Function Ceiling(ByVal dblValue As Double) As Double
    Dim myDec As Long
    myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
    If myDec > 0 Then
        Ceiling = CDbl(Left(CStr(dblValue), myDec))
    Else
        Ceiling = dblValue
    End If
End Function
'How can I call this function:
'Debug.Print Ceiling(3.356)
'Will display 3