Excel自定义工作日日期函数优化：整合日期调整与节假日处理

看起来你已经搭建了基础的日期增量计算逻辑，现在要把周末、特殊假日（圣诞、新年）的顺延规则全部整合到一处，彻底简化多列公式的繁琐流程。我帮你优化出了一个一站式的VBA函数，把所有校验逻辑都打包进去了：

Function IncWorkday(ByVal dtStart As Date, ByVal lngAdd As Long, ByVal strPeriod As String) As Date
    Dim dtResult As Date
    ' 第一步：计算初始增量日期
    Select Case UCase(strPeriod)
        Case "DAY"
            dtResult = DateAdd("d", lngAdd, dtStart)
        Case "MONTH"
            dtResult = DateAdd("m", lngAdd, dtStart)
        Case "YEAR"
            dtResult = DateAdd("yyyy", lngAdd, dtStart)
        Case Else
            dtResult = dtStart ' 无效周期类型直接返回原日期
    End Select
    
    ' 第二步：循环调整至合规工作日
    Do
        ' 判断是否为周末（以周日为一周起始，周日=1，周六=7）
        Dim isWeekend As Boolean
        isWeekend = (Weekday(dtResult, vbSunday) = 1) Or (Weekday(dtResult, vbSunday) = 7)
        
        ' 判断是否为特殊强制顺延假日（12月25日、1月1日，无论是否周末都要顺延）
        Dim isSpecialHoliday As Boolean
        isSpecialHoliday = (Format(dtResult, "ddmm") = "2512") Or (Format(dtResult, "ddmm") = "0101")
        
        ' 若不符合要求，日期顺延1天，继续校验
        If isWeekend Or isSpecialHoliday Then
            dtResult = DateAdd("d", 1, dtResult)
        Else
            Exit Do ' 找到合规工作日，退出循环
        End If
    Loop
    
    IncWorkday = dtResult
End Function

逻辑说明 #

1. 初始日期计算：保留了你原IncDate的核心逻辑，根据传入的周期类型（Day/Month/Year）生成基础增量日期。
2. 循环校验调整：
   • 先检查是否为周末，直接顺延
   • 再检查是否为圣诞或新年，这两个日期不管当天是不是工作日，都强制顺延
   • 只要不符合要求就自动加1天，重复校验直到找到第一个合规的工作日

使用方式 #

在Excel单元格里直接调用这个函数即可，对应你的数据集：
比如起始日期在$B$1，增量数值在C4，周期类型在D4，输入：

=IncWorkday($B$1, C4, D4)

一步就能得到最终的合规工作日，再也不用拆分E、F、G三列公式了。

扩展建议 #

如果需要支持更多银行固定假日，直接扩展isSpecialHoliday的判断条件就行：

isSpecialHoliday = (Format(dtResult, "ddmm") = "2512") _
                Or (Format(dtResult, "ddmm") = "0101") _
                Or (Format(dtResult, "ddmm") = "0201") ' 元旦次日（若需）
                Or (Format(dtResult, "ddmm") = "0105") ' 劳动节（示例）

内容的提问来源于stack exchange，提问作者Stephen