Timer Function

Office VBScript

Microsoft® Visual Basic® Scripting Edition Timer Function  Language Reference 
Version 5 

See Also


Description
Returns the number of seconds that have elapsed since 12:00 AM (midnight).
Syntax
Timer

Remarks
The following example uses the Timer function to determine the time it takes to iterate a For...Next loop N times:
Function TimeIt(N)
  Dim StartTime, EndTime
  StartTime = Timer
  For I = 1 To N
  Next
  EndTime = Timer
  TimeIt = EndTime - StartTime
End Function