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

下述代码是在申请日期之后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

Select Case e.DataCol.Name

    Case "申请时间"

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

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

        Else

Dim d As Date = e.DataRow("申请时间")

Dim i As Integer = 1

Do While i< 6

    d = d.adddays(1)

    If d.DayOfWeek = 6 Then

        d = d.AddDays(2)

    Else If d.DayOfWeek = 0 Then

        d = d.AddDays(1)

    End If

    i += 1

Loop

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

        End If

End Select