Overflow Query

[2016LM]

Hi,

I was hoping someone might be able to explain this to me. When I execute the following code (which simply calculates a value, and using debug.print, outputs the result), I get a Run-time Error '6' Overflow message.

Sub calc_ulation()
Dim x As Long
x = 1000 * 60
Debug.Print x
End Sub

However, if I replace the 1000 with either (10^3) or 1000.0 (which is abbreviated to 1000#) I get no error message and the code executes with the output being displayed in the Immediate window. I'm a bit confused by this; 60000 is within the range of a Long variable type.

Any help / explanation would be much appreciated.

Kind regards, 2016LM

 

[RoryA]

VBA treats your two literal values as Integers, since they will both fit. It therefore attempts to store the intermediate result of the calculation in an Integer before converting to a Long, but that result is too large, hence the overflow. Using a type declaration character like # or & gets around the issue.

 

[2016LM]

Ah right, that makes sense, many thanks RoryA. And thanks for the quick reply, I really appreciate it; and apologies for my tardy one.

Kind regards, 2016LM

 

[RoryA]

Well, I don't know that it makes sense, but that's what it does.