See Also Example
Returns an integer between 1 (Sunday) and 7 (Saturday) that represents the day of the week for a date argument.
Syntax
Weekday(dateexpression)
Remarks
The dateexpression part of the syntax is any numeric expression Numbers to the left of the decimal point in dateexpression represent the date; numbers to the right represent the time. Negative numbers represent dates prior to December 30, 1899.
If dateexpression is Null
Date, Date$ Functions
Date, Date$ Statements
Day Function
Hour Function
Minute Function
Month Function
Now Function
Second Function
Year Function
The example uses Weekday to determine the day of the week. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim DayNum, Msg ' Declare variables.
DayNum = Weekday(Now) ' Get current day of the week.
If DayNum = 1 Or DayNum = 7 Then ' See if it's a weekend day
Msg = "Today is a weekend day."
Else ' or a weekday.
Msg = "Today is a weekday."
End If
MsgBox Msg ' Display message.
End Sub