主题：[求助]到期日期提醒设计，限工作日，如何设计？

下述代码是在申请日期之后5天内到期，现在要求是5个工作日，如何设计到期提醒？也就是就：如果5天后遇到是节假日，就应该去掉节假日，到期日期顺延显示下个工作日，如何做，谢谢。

Select Case e.DataCol.Name

    Case "申请时间"

        If e.DataRow.IsNull("申请时间") Then

            e.DataRow("到期日期") = Nothing

        Else

            e.DataRow("到期日期") = e.DataRow("申请时间").AddDays(5)

        End If

End Select