Returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue function.
Number: Integer expression that contains the serial date number that is used to calculate the day of the week (1-7).
The following example determines the day of the week using the WeekDay function when you enter a date.
Dim sDay As String
' Return And display the day of the week
Select Case WeekDay( Now )
MsgBox "" + sDay,64,"Today Is"