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

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

   <source lang="vb">

Sub dateDemo13()

  Debug.Print timer

End Sub

</source>