Run Time Error from: HHH = 24 * 3600

[User Name]

I'm getting a run time error from HHH = 24 * 3600.

HHH is a double. What on earth could be causing an overflow error here?

The exact message is runtime error '6': Overflow

 

[Jonmo1]

It has something to do with floating point precision.
I don't fully understand this issue, but it's well documented at Microsoft's website
Search for floating point precision


As an alternative, this works

Dim x As Double, y As Double, z As Double
x = 24
y = 3600
z = x * y

Again, don't understand why, but I know it's related to floating point precision.

 

[pcc]

from VB help:

Overflow (Error 6)


An overflow results when you try to make an assignment that exceeds the limitations of the target of the assignment. This error has the following causes and solutions:

The result of an assignment, calculation, or data type conversion is too large to be represented within the range of values allowed for that type of variable.
Assign the value to a variable of a type that can hold a larger range of values.

An assignment to a property exceeds the maximum value the property can accept.
Make sure your assignment fits the range for the property to which it is made.

You attempt to use a number in a calculation, and that number is coerced into an integer, but the result is larger than an integer. For example:
Dim x As Long
x = 2000 * 365 ' Error: Overflow
To work around this situation, type the number, like this:

Dim x As Long
x = CLng(2000) * 365


try the clng() option - works for me

 

[Jonmo1]

Ahh, it's not the floating point..

The calculation 24*3600 happens before assigning it to the variable...
And when calculating hard coded numbers, it considers them Integers, and the result of the calculation is larger than an integer.

Interesting...

 

[User Name]

Hmmm... OK... when I set 24 and 3600 equal to ARG1 and ARG2 the math goes through. Very very strange.

Thanks for the help. Problem kinda sorta solved.

 

[Jonmo1]

Hmmm... OK... when I set 24 and 3600 equal to ARG1 and ARG2 the math goes through. Very very strange.

Thanks for the help. Problem kinda sorta solved.

Consider pcc's response...

By assigning 24 and 3600 to ARG1 and ARG2, presumeably you DIMMED them as Double.

This forced VBA to use the Double Data type

Doing it the original way, hard coding the #s in the multiplication, VBA used the Integer Data Type, because both values (prior to the math) were less than the Integer maximum value.

 

[User Name]

OK... pcc's CLng method works and it's cleaner so I'll go with it. Thanks to both of you for the help. The info is going in the vault.