如何在 Access 的查询计算两个日期之间的工作日？

计算两个日期间的工作日
本示例的功能是如何计算给定的两个日期之间的工作日，你可以选择是否将星期六或星期日也包括进去。同时本程序还允许你可入一些假期，从而在计算时将这些假期排除在外。

函数：

Public Function BusinessDateDiff(ByVal dDate1 As Date, ByVal dDate2 As
Date) As Long

该函数的功能是计算两个日期（dDate1和dDate2）之间的工作日。下面的这些属性允许你对计算实施控制，告诉程序如何进行计算。

属性

Public IncludeSaturdays As Boolean

当值为真，计算时将包括星期六，否则将星期六排除在外。

Public IncludeSundays As Boolean

当值为真，计算时将包括星期日，否则将星期日排除在外。

Public Property Let IncludeFirstDate(bInc As Boolean) Public Property
Get IncludeFirstDate() As Boolean

在默认情况下，BusinessDateDiff函数会将你输入的起始日包括在计算中，但不包括你输入的终止日。将该属性值设为假，计算时就不包括你输入的起始日。

Public Property Let IncludeLastDate(bInc As Boolean) Public Property Get
IncludeLastDate() As Boolean

在默认情况下，BusinessDateDiff函数不包括你输入的最后一天。将该属性值设为真，程序把你输入的最后一天包括在计算中。

方法

Public Sub HolidayAdd(dHoliday As Date)

添加一个假期列表，以便在计算时排除这些假期。在默认情况下，没有添加任何假期。

Public Sub HolidayRemove(dHoliday As Date)

从假期列表移除假期

Public Sub HolidayClear()

清除全部假期列表

代码清单

首先建立一个新的类模块，名为cBusinessDates，将下面的代码粘贴进去。

Option Explicit

Public IncludeSaturdays As Boolean
Public IncludeSundays As Boolean

Private mbIncludeFirstDate As Boolean
Private mbIncludeLastDate As Boolean

Private Holidays As New Collection

Public Sub HolidayAdd(dHoliday As Date)

On Error Resume Next

Holidays.Add dHoliday, "D" & dHoliday

If Err Then
Err.Clear
End If

End Sub

Public Sub HolidayRemove(dHoliday As Date)

On Error Resume Next

Holidays.Remove "D" & dHoliday

If Err Then
Err.Clear
End If

End Sub

Public Sub HolidayClear()

Dim x As Long

For x = 1 To Holidays.Count
Holidays.Remove 1
Next

End Sub