I am trying to add into my macro a bit of code that times how long it takes
to execute, but I can't seem to get it right.
As a test I have been using the following code:
Sub test2()
i = 1
starttime = TimeValue(Time)
While i < 100000000
i = i + 1
Wend
endtime = TimeValue(Time)
timecalc = TimeValue(starttime) - TimeValue(endtime)
MsgBox (starttime & endtime & timecalc)
End Sub
But when I output the result (timecalc) it gives a really wierd number
(-1.85185185185233E-04). I have tried it without the TimeValue statement too
and get the same sort of result.
Is there an easy way of substracting the start time from the end time??
Bookmarks