Run Time Error 6 - Overflow

[dfenton21]

I am getting a run time error 6 when the following routine runs. I can’t understand why because 330 * 100 = 33,000 and the range of a long is -2,147,483,648 to 2,147,483,647.</SPAN>

Does anyone know what is happening here? Thanks.</SPAN>

Sub foo()
    Dim num As Long
    num = 330 * 100
    Debug.Print num
End Sub

 

[jaybee3]

330 and 100 are Integers by default. So the calculation is being performed on an integer basis (-32,768 to 32,767). 33000 > 32767, so overflow.

The way round it is: num = clng(330) * 100. The calculation will then be done on a Long basis.

Sorry, I'm not very good at explaining these kind of things...but that should be the gist of it

 

[dfenton21]

That makes perfect sense, thank you. If I declare two other variables as longs, set their values to 300 and 100, use them in the formula instead, it works.

Thanks again.