Ceiling and Floor Function?

[speedsolo]

Hi there,

can ya tell me whether there is ceiling and/or floor function in VB?

thx

Regards
ES

[nishantp]

What do u mean ceiling and floor? Do u mean the Max and Min in some data?

[peet]

damn u lost me there speedsolo... what do u mean ?

[filburt1]

There's a floor, just cast it to a type that doesn't support decimals:

Const xWithDecimals As Double = 3.14159
Dim xWithoutDecimals As Long
xWithoutDecimals = CLng(xWithDecimals)
Msgbox "Before: " & xWithDecimals & vbCrLf & "After: " & xWithoutDecimals

[filburt1]

Originally posted by peet
damn u lost me there speedsolo... what do u mean ?

Floor rounds a number down, Ceiling rounds a number up.

[nishantp]

Well heres a ceiling function then...

Function Ceiling(n As Double) As Long
    If Not Int(n) = n Then
        Ceiling = Int(n) + 1
    Else
        Ceiling = n
    End If
End Function

[speedsolo]

eg
Ceiling(1.5) = 2
Floor(1.5) = 1

and thanks filburt1 for your suggestion, I will try it out later

[speedsolo]

Just tried filburt1's code but there's some problem. Found in MSDN:

When the fractional part is exactly 0.5, CInt and CLng always round it to the nearest even number. For example, 0.5 rounds to 0, and 1.5 rounds to 2.

then I moved to nishantp's and it seems fine.

anyway, thanks v.much, you guys