To assign both a date and a time you use this format:
Sub main() Dim datTime As Date datTime = #6/30/1998 3:20:15 AM# End Sub Sub dateDemo() Dim datPayBy As Date datPayBy = Date + 60 Debug.Print "Payment is due by " & datPayBy End Sub