Date Functions VisualBasic Script

Sub dateDemo16()
   Debug.Print Weekday(#4/1/2006#)
End Sub