Timer calculation bug

[PoppapumpJ]

Hi,

I am attempting to make a record of how long it takes to run a function. I am using the Timer function to see time down to the millisecond.

However the problem I am seeing is that sometimes I get a negative number.

Here is an example:

GenericTimer = Timer
objMyObject.myFunction
msgBox (Timer - GenericTimer)

The problem I a seeing is that sometimes the number comes back negative.

Does anyone know of any bugs associated with using the Timer function in this manner?

Thanks,

 

[bjd4jc]

Since the Timer Function "Returns a Single representing the number of seconds since midnight" are you perhaps running your program overnight?


Perhaps try using the GetTickCount Function

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Dim GenericTimer as Long
GenericTimer = GetTickCount()
objMyObject.myFunction
MsgBox (GetTickCount() - GenericTimer)

 

[strongm]

>down to the millisecond

Well ... you'll be disappointed ... best you'll typically get with the commonly available timing calls (and dependant on the OS) is about 10 milliseconds