Integer Overflow in VBA project
- by mcoolbeth
Hi, everyone. Here is a small VBA (Excel) function that i wrote, full of MsgBoxes for debugging.
I am passing in the numbers 10 and 1 as arguments, and getting an overflow error when the program reaches the top of the For loop, before it begins the first iteration.
Any thoughts are appreciated.
Function PerformanceTest(iterations As Integer, interval As Integer) As Double
Dim st, tot, k As Double
Dim n As Integer
tot = 0#
MsgBox "ok"
k = iterations + tot
MsgBox "ookk"
n = 1
MsgBox "assigned"
For n = 1 To iterations
MsgBox n
st = Timer
Application.Calculate
tot = tot + (Timer - st)
Sleep (1000 * interval)
Next n
'MsgBox (tot / k)
PerformancTest = tot / k
End Function