Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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