Extended KotD #25, #26, and #27: INTEGER DIVISION, CINT, and CLNG

[SMcNeill]

@SMcNeill:
This stream has already achieved one major goal: to raise awareness of the unexpected results we may get when using Integers

Your final short snippet sums up everything (at least, for me)!

value < 0.5 rounds down.
value = 0.5 rounds to the nearest even integer.
value > 0.5 rounds up.

X.49999999999999 rounds down.
x.50000000000001 rounds up.

If that's what happens in every case - pos or neg - then the world is sweet!

Note that this is what we see in CINT, CLNG, _ROUND.  Other commands don't have this same behavior.

Any single, double, or float assigned to an integer obeys these same rules of rounding, as you can see from the below.  (Pay close attention to the .5 entries and see how one rounds up and the other rounds down, as they're both rounding to the closest even integer.

Code: (Select All)

Dim i As Integer

For x = 0 To 2 Step .1

    i = CInt(x)

    Print x, i,

    Select Case _ToStr$(i)

        Case Is < _ToStr$(x): Print "Round Down"

        Case Is = _ToStr$(x): Print "Equal"

        Case Is > _ToStr$(x): Print "Round up"

    End Select

Next

Also note that other rounding type commands don't obey this pattern or rule, such as INT (always rounds down), CEIL (always rounds up), FIX (truncates).   What I'm mentioning here is for CINT, CLNG, _ROUND, and direct assignment of floating point values to integer types.