How do i simulate the math FLOOR operation?

[kingpoop]

Does anyone know how to simulate the
Floor function in VBScript?

thx

 

[JohnYingling]

Isn't that a Min function.
On Error Resume next
L = Ubound(ary)
if Err.Number <> 0 then L = -1
On Error Goto 0
If L >=0 then
floor = ary(0)
For I = 1 t0 Ubound(ary)
if ary(I) < floor then floor = ary(I)
End if
End If

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[dilettante]

In VBScript, Int( ) is the same as Iverson's floor( ), while Fix( ) is more what people think they'll get when they use Int( ).

Int(3.2) is 3
Fix(3.2) is 3

Int(-3.2) is -4
Fix(-3.2) is -3

http://msdn.microsoft.com/library/d...y/en-us/script56/html/vsfctint.asp?frame=true

Personally I have seen many cases where this misguided definition of Int( ) (and its unsuspecting use) has caused bug after bug. I can't think of one appropriate use for Iverson's floor( ), but we're stuck with it as a pitfall awaiting unwary VB and VBScript programmers.

So the question really shouldn't be how to use floor( ), but instead how to avoid it.