如何计算日期但不包括微软访问中的周末？

Posted 2023-05-07

【中文标题】如何计算日期但不包括微软访问中的周末？

【英文标题】：How to calculate a date but exclude weekends in microsoft access?

【发布时间】：2015-01-07 16:09:30

【问题描述】：

我为一家房屋建筑商工作，我正试图帮助一位同事获得一个公式，该公式可以计算 3 天后的日期，但不包括周末。

DateAdd("d",3,[TrussOrderDate])   

这是她正在使用的当前公式，她希望以此来计算日期，但不包括周末

【问题讨论】：

使用日历表通常是个好主意。它将允许您填写所有节假日，而不仅仅是周末。

【参考方案1】：

我会创建一个表格，用于存放所有（银行/公共/特殊）假期。类似于 (tbl_BankHolidays)，

holID   |   bankDate    |   bankHoliday     |   workDay
--------+---------------+-------------------+-----------
1       |   01/01/2014  |   New years day   |   Wednesday
2       |   18/04/2014  |   Good Friday     |   Friday
3       |   21/04/2014  |   Easter Monday   |   Monday
4       |   05/05/2014  |   Early May       |   Monday
5       |   26/05/2014  |   Spring holiday  |   Monday
6       |   25/08/2014  |   Summer holiday  |   Monday
7       |   25/12/2014  |   Christmas Day   |   Thursday
8       |   26/12/2014  |   Boxing Day      |   Friday
9       |   01/01/2015  |   New Year’s Day  |   Thursday
:
:
16      |   28/12/2015  |   Boxing Day      |   Monday

然后是一个函数来计算这些日期。

Function addWorkDays(addNumber As Long, Date2 As Date) As Date
'********************'
'Code Courtesy of    '
'  Paul Eugin        '
'********************'

    Dim finalDate As Date
    Dim i As Long, tmpDate As Date
    tmpDate = Date2
    i = 1
    Do While i <= addNumber
        If Weekday(tmpDate) <> 1 And Weekday(tmpDate) <> 7 And _
            DCount("*", "tbl_BankHolidays", "bankDate = " & CDbl(tmpDate)) = 0 Then i = i + 1
        tmpDate = DateAdd("d", 1, tmpDate)
    Loop

    addWorkDays = tmpDate

End Function

当你需要将n个天添加到一个日期时，你只需使用，类似于DateAdd函数。您不指定字符串标识符，因为默认情况下仅添加天数。然后第一个参数是要添加的天数。第二个是需要添加天数的日期。

代码通过一次循环一天来工作，检查它是否是周末（1 - vbSunday，或 7 - vbSaturday），或者它是否列在特殊的休息日。如果是休息日或周末，请在不增加计数器的情况下增加一天。当计数器等于您传递的数字时，循环将终止！

【讨论】：

我认为将tmpDate = DateAdd("d", 1, tmpDate)放在if之前的do循环更准确。