NETWORKDAYS.INTL() 函数在 VBA 中不起作用

VBA

使用NETWORKDAYS.INTL()函数在VBA中不起作用的问题是一个常见的困扰VBA开发者的难题。这个函数在excel中非常有用，可以计算两个日期之间的工作日数量，而且还可以根据自定义的工作日设置来计算。然而，在VBA中使用这个函数时，有时会遇到无法得到正确结果的情况。

在VBA中，我们通常使用NETWORKDAYS.INTL()函数来计算工作日数量。该函数的语法如下：

NETWORKDAYS.INTL(start_date, end_date, [weekend], [holidays])

其中，start_date和end_date是要计算工作日数量的起始日期和结束日期；weekend是一个可选参数，用于指定非工作日的设置，可以是一个数字或字符串，字符串可以是由数字0和1组成的7位二进制数，其中0表示工作日，1表示非工作日；holidays是一个可选参数，用于指定节假日的日期范围。

然而，尽管NETWORKDAYS.INTL()函数在excel中可以正常工作，但在VBA中却可能无法得到正确的结果。这是因为VBA中的函数库和excel中的函数库不完全一样，有些函数在VBA中不被支持或者支持程度有限。

为了解决这个问题，我们可以使用VBA中的自定义函数来替代NETWORKDAYS.INTL()函数。下面是一个使用自定义函数来计算工作日数量的示例代码：

VBA
Function CountWorkdays(startDate As Date, endDate As Date, Optional weekend As String, Optional holidays As Range) As Long
    Dim count As Long
    Dim currentDay As Date
    
    count = 0
    currentDay = startDate
    
    Do While currentDay <= endDate</p>        '判断是否为工作日
        If IsWorkday(currentDay, weekend, holidays) Then
            count = count + 1
        End If
        
        '将日期加一天
        currentDay = currentDay + 1
    Loop
    
    CountWorkdays = count
End Function
Function IsWorkday(dateValue As Date, Optional weekend As String, Optional holidays As Range) As Boolean
    Dim dayOfWeek As Integer
    Dim isHoliday As Boolean
    
    '判断是否为非工作日
    If Not IsEmpty(weekend) Then
        dayOfWeek = Weekday(dateValue, vbMonday)
        If Mid(weekend, dayOfWeek, 1) = "1" Then
            IsWorkday = False
            Exit Function
        End If
    End If
    
    '判断是否为节假日
    If Not holidays Is Nothing Then
        isHoliday = WorksheetFunction.CountIf(holidays, dateValue) > 0
        If isHoliday Then
            IsWorkday = False
            Exit Function
        End If
    End If
    
    IsWorkday = True
End Function

上述代码中，我们定义了两个自定义函数：CountWorkdays()和IsWorkday()。CountWorkdays()函数用于计算两个日期之间的工作日数量，而IsWorkday()函数用于判断一个日期是否为工作日。这样，我们就可以通过调用CountWorkdays()函数来替代NETWORKDAYS.INTL()函数，在VBA中正确计算工作日数量。

示例代码使用说明：

VBA
Sub TestCountWorkdays()
    Dim startDate As Date
    Dim endDate As Date
    Dim weekend As String
    Dim holidays As Range
    Dim workdayCount As Long
    
    '设置起始日期和结束日期
    startDate = #2021/1/1#
    endDate = #2021/1/31#
    
    '设置非工作日
    weekend = "0000011" '周六和周日为非工作日
    
    '设置节假日范围
    Set holidays = Worksheets("Sheet1").Range("A1:A10") '假设节假日日期范围为A1:A10
    
    '计算工作日数量
    workdayCount = CountWorkdays(startDate, endDate, weekend, holidays)
    
    '输出结果
    MsgBox "工作日数量为：" & workdayCount
End Sub

上述示例代码中，我们首先设置了起始日期和结束日期，然后设置了非工作日和节假日范围，最后调用CountWorkdays()函数来计算工作日数量。最终，通过消息框输出计算结果。

通过以上的示例代码和自定义函数，我们可以在VBA中正确计算工作日数量，解决了在使用NETWORKDAYS.INTL()函数时的问题。这个例子展示了如何使用自定义函数来替代excel中不可用的函数，可以在VBA开发中发挥重要作用。