Measure time between two points in a script

I'm working on speeding up a very long and complex script, and I wanted to be able to benchmark improvements I make to it, as well as how fast it runs on various machines.

What script can I use to measure two points in time?

I am assuming I would do something like

sub startcode

(get the current time)


(long complicated script goes here)



(get the ending time)

dim timetaken as (i dont know what the proper variable would be)

timetaken = (ending time) - (starting time)

msgbox "Time taken: " & timetaken 






end sub

It gives me readings of about 42,000 seconds for tasks that took less than a minute. are seconds the wrong unit to be measuring? What is the actual unit it's outputing in? IF I know that I Can convert it.

You may need to use DoEvents() in your routine.

Here is an API timer and two examples using the Timer routine in Excel similar to AlphaFrog's routine. You will need to add the class if you want to try that method.

Sub Test_Timer()
  'http://stackoverflow.com/questions/198409/how-do-you-test-running-time-of-vba-code
  Dim t As New cTimer
  t.StartCounter
  Application.Wait Now + TimeValue("00:00:05")
  MsgBox t.TimeElapsed / 1000 & " seconds."
  
  Dim d As Double
  d = Timer
  Application.Wait Now + TimeValue("00:00:05")
  MsgBox Timer - d & " seconds."
End Sub

Sub Test_TimersHelp()
  Dim PauseTime, Start, Finish, TotalTime
  If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
      PauseTime = 5    ' Set duration.
      Start = Timer    ' Set start time.
      Do While Timer < Start + PauseTime
          DoEvents    ' Yield to other processes.
      Loop
      Finish = Timer    ' Set end time.
      TotalTime = Finish - Start    ' Calculate total time.
      MsgBox "Paused for " & TotalTime & " seconds"
  Else
      End
  End If
End Sub