自动增加一列日期（下一个工作日）

Public Function GetNextDate(d0 As Date) As Date
    Dim d1 As Date
    If Weekday(d0) < 5 Then
        d1 = DateAdd("d", 1, d0)
    Else
        d1 = DateAdd("d", 3, d0)
    End If
    If DCount("*", "非周末节假日", "日期=#" & d1 & "#") > 0 Then
        d1 = DateAdd("d", 1, d1)
    End If
    GetNextDate = d1

End Function

这个函数不是最精确的，因为不知道节假日怎么安排。