Updated: April 2009
Returns the number of seconds that have elapsed since 12:00 AM (midnight).
The following example illustrates the use of the Timer function.
Dim StartTime, EndTime, Elapsed MsgBox "Click to start timer.", vbExclamation StartTime = Timer MsgBox "Click to end timer.", vbExclamation Elapsed = Timer - StartTime ' This works only if midnight does not occur between ' the two clicks. MsgBox "Elapsed Seconds: " & Elapsed, vbInformation