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>
<source lang="vb">
Sub dateDemo13()
Debug.Print timer
End Sub
</source>