Timer returns a Single giving the number of seconds that have elapsed since midnight
Sub dateDemo13() Debug.Print timer End Sub