Purpose Returns a number indicating the day of the week for any valid date expression. Syntax Weekday (DateExpression) Example Sub Main()         Dim d As Date         Dim daynum As Integer         Dim mydays(1 to 7) As String         mydays(1) = "Sunday": mydays(2) = "Monday":...         d = today         daynum = Weekday(d)                 Print "Today, the day of the week is"; mydays(daynum) End Sub