[RESOLVED] Timing VB Code

[rsf5048]

I was wondering if someone knows if there is some type of VB Timer that will time how long your code runs for. I ask this because i am looking for a way to optimize the speed of my code.

[sweet_dreams]

Hi,

To measure time in seconds (and parts of seconds) you can use Timer function. This function returns seconds from Midnight.

Sub TestTime()
   Dim sStartTime As Single
   Dim sEndTime As Single

   'Stores start time
   sStartTime = Timer

   'Place your code here

   'Stores end time
   sEndTime = Timer

   'Show execution time
   Debug.Print "Execution time in seconds: ", sEndTime - sStartTime
End Sub

Hope this helps.

Regards,

[Boytony]

Hi,

I have used the method Sweet Dreams suggests very effectively in the past to do exactly what you want to do.

Regards,

[Granty]

There is also the TimeGetTime() API function which is very accurate

[Earlien]

The code I have used in the past to do this is:

Private Declare Function GetTickCount Lib "kernel32.dll"() As Long

Private Sub Time_Code()
    Dim t as 'Long
    t = GetTickCount
    
    'Put code to be timed here
    
    MsgBox "Code took " & GetTickCount - t & _
        " milliseconds to run.", vbInformation, "Time Taken"
End Sub