TimeValue(time) returns A Variant/Date containing the time for time
Sub dateDemo15() Debug.Print timeValue(Now) End Sub