以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]到期日期提醒设计，限工作日，如何设计？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148582)
--  作者：hrw68529
--  发布时间：2020/4/10 15:09:00
--  [求助]到期日期提醒设计，限工作日，如何设计？

下述代码是在申请日期之后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
--  作者：有点蓝
--  发布时间：2020/4/10 15:34:00
--  

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