Excel VBA 如何确定日期是否在周末？

如果你想要在 Excel 的 VBA 中确定一个日期是否在周末，可以使用以下代码片段来实现。

Function IsWeekend(ByVal dateValue As Date) As Boolean
    If Weekday(dateValue, vbSunday) = 1 Or Weekday(dateValue, vbSunday) = 7 Then
        IsWeekend = True
    Else
        IsWeekend = False
    End If
End Function

这段代码创建了一个名为 IsWeekend 的函数，接收一个日期值并返回一个布尔值来指示该日期是否为周末。代码中使用 Weekday 函数来确定日期是周几，其中 vbSunday 参数指定星期天为一周的第一天。

使用这个函数的示例代码如下：

Sub TestIsWeekend()
    Dim myDate As Date
    myDate = DateSerial(2022, 1, 1) ' 设置一个日期值，如 2022 年 1 月 1 日
    If IsWeekend(myDate) Then
        MsgBox "这个日期是周末"
    Else
        MsgBox "这个日期不是周末"
    End If
End Sub

在这个示例中，将日期值设置为 2022 年 1 月 1 日，并使用 IsWeekend 函数来判断该日期是否为周末。根据判断结果，弹出相应的消息框。

请注意，该代码假定星期六和星期日为周末，你可以根据需要进行调整。

希望这个回答能帮到你，如果有任何问题，请随时提问。