Function Ceiling(byval n)
Dim iTmp, bErr, f
on error resume next
n = cdbl(n)
if err then bErr = true
on error goto 0
 
if bErr then Err.Raise 5000, "Ceiling Function", _
"Input must be convertible to a sub-type of double"
 
f = Floor(n)
if f = n then
Ceiling = n
Exit Function
End If
Ceiling = cInt(f + 1)
End Function
 
Function Floor(byval n)
Dim iTmp, bErr
 
on error resume next
n = cdbl(n)
if err then bErr = true
on error goto 0
 
if bErr then Err.Raise 5000, "Floor Function", _
"Input must be convertible to a sub-type of double"
 
'Round() rounds up
iTmp = Round(n)
 
'test rounded value against the non rounded value
'if greater, subtract 1
if iTmp > n then iTmp = iTmp - 1
 
Floor = cInt(iTmp)
End Function