vba 获取 工作日 法定假期

VBA是一种程序语言，可以在Excel中进行自动化操作。要获取工作日和法定假期，可以使用VBA的日期函数和判断语句来完成。下面是一个示例代码：

首先，我们需要创建一个自定义函数来判断某日期是否是工作日或法定假期。具体代码如下：

Function IsWorkingDay(ByVal myDate As Date) As Boolean
    Dim WeekdayNum As Integer
    Dim HolidayList As Range
    Dim Holiday As Variant
    
    ' 设置法定假期列表的范围，可以根据实际情况进行调整
    Set HolidayList = Range("A1:A10") ' 假设法定假期列表在A1:A10范围内
    
    ' 判断是否为周末
    WeekdayNum = Weekday(myDate)
    If WeekdayNum >= 2 And WeekdayNum <= 6 Then
        ' 判断是否为法定假期
        For Each Holiday In HolidayList
            If Holiday.Value = myDate Then
                IsWorkingDay = False
                Exit Function
            End If
        Next Holiday
        
        ' 不是周末也不是法定假期，则认为是工作日
        IsWorkingDay = True
    Else
        IsWorkingDay = False
    End If
End Function

这个函数通过判断日期是否为周末和是否在法定假期列表中来确定是否为工作日，返回一个布尔值。

在Excel中，你可以使用该函数来获取某个日期范围内的工作日数量。例如，假设在A1单元格输入开始日期，B1单元格输入结束日期，C1单元格输入工作日数量。在C1单元格中使用下面的公式：

=NETWORKDAYS(A1, B1) - COUNTIF(A1:B1, ">=5") - COUNTIF(A1:B1, IsWorkingDay = FALSE)

这个公式使用NETWORKDAYS函数计算开始日期和结束日期之间的工作日数量，然后减去周末的数量（即大于等于5的数量），再减去自定义函数IsWorkingDay返回FALSE的数量，从而得到最终的工作日数量。

以上就是使用VBA获取工作日和法定假期的方法，希望对你有用。