vba - 如何判断约会是否是周末？

Question

给定一个日期作为输入，我如何确定这一天是否是周末？

Answer 1

有一个 Weekday 函数，它接受日期作为参数并返回日期(1、2、3 等)

返回值是:

vbSunday (1)  
vbMonday (2)  
vbTuesday (3)  
vbWednesday (4)  
vbThursday (5)  
vbFriday (6)  
vbSaturday (7)  

假设周末是星期六和星期日，该函数将如下所示:

Public Function IsWeekend(InputDate As Date) As Boolean
    Select Case Weekday(InputDate)
        Case vbSaturday, vbSunday
            IsWeekend = True
        Case Else
            IsWeekend = False
    End Select
End Function