函数VBA：Weekday

描述

VBA Weekday 函数返回给定日期的工作日编号（从 1 到 7）。

语法 Weekday

Weekday(日期)

或者

Weekday（日期，一周的第一天）

编号

默认情况下，一周的第一天是星期日 (1)，最后一天是星期六 (7)。

要更改编号以使星期一为一周的第一天 (1)，星期日为一周的最后一天 (7)，请在使用此函数时添加值 2 作为第二个参数：

Weekday(日期, 2)

示例 VBA Weekday

使用 Weekday 函数显示多个日期的工作日数：

Sub WeekdayExample1()
    
    MsgBox Weekday(#11/2/2020#, 2)          '退货：1
    MsgBox Weekday("3.11.20", 2)            '退货：2
    MsgBox Weekday("4 nov 2020", 2)         '退货：3
    MsgBox Weekday("5/11/2020 17:30:21", 2) '退货：4
    
End Sub

使用 Weekday 函数区分工作日和周末：

Sub WeekdayExample2()

    If Weekday(Now, 2) < 6 Then
        MsgBox "工作日..."
    Else
        MsgBox "周末了！"
    End If
    
End Sub