VBA/Excel/Access/Word/Date Functions/Timer Function

Timer returns a Single giving the number of seconds that have elapsed since midnight

 
Sub dateDemo13()
   Debug.Print timer
End Sub