Int function rounds down the integer 2 down to 1

[AlphaFrog]

I don't understand why the Int function rounds down the value of 2 down to 1 in the second calculation?

[COLOR=darkblue]Sub[/COLOR] Foo()
    
    [COLOR=green]'Correct result = 2[/COLOR]
    Debug.Print (0.15 - 0.07) / 0.04
    
    [COLOR=green]'Why does Int round down the result of 2 to 1 ?[/COLOR]
[COLOR=#ff0000]    Debug.Print Int((0.15 - 0.07) / 0.04)[/COLOR]
    
    [COLOR=green]'Yet this is correct = 2[/COLOR]
    Debug.Print [COLOR=darkblue]CInt[/COLOR]((0.15 - 0.07) / 0.04)
    
    [COLOR=green]'And this is correct = 2[/COLOR]
    Debug.Print Int(0.08 / 0.04)
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[Joe4]

I am guessing it has to do with the famous "floating-point arithmetic" issue: https://support.microsoft.com/en-us...ithmetic-may-give-inaccurate-results-in-excel

If we incorporate the ROUND function, that solves it, i.e.

    Dim x As Variant
    x = Round((0.15 - 0.07) / 0.04, 5)
    Debug.Print Int(x)

 

[RoryA]

Try:

Debug.Print (0.15 - 0.07) = 0.08

and you'll get False, and:

Debug.Print (0.15 - 0.07) < 0.08

returns True, which is why Int is rounding down.

Also remember that CInt and Int are very different things! CInt(1.5) returns 2

 

[AlphaFrog]

Thanks all.

 

[Joe4]

You are welcome.

Every now and then that issue raises it ugly head and can be confounding (as it doesn't seem to follow logic!)
I usually find the ROUND function to be my best friends in those cases.