主题：夜深人静 向高手请教个问题

比如说  开始日期  5-22   工作 10  ；根据上面算法  结束日期 应该是5-31

但是 有个日历表，日历表中  有全年的工作日安排

怎样在日历表中 找出 从 5-22 到未来 10个连续日期中，包含多少个 非工作日？？并把这非工作日补充到  结束日期里面

如 开始日期 5-22  周期 10 ，未来10天中有2个非工作日，所以 周期应该是，结束日期应该是 6-2

另外，如果  6-1 或 6-2 中，又有非工作日，那么又要补充！！

各位大师们，有何办法呢！！！

实在是思考不到方法，请教一下！非常感谢！

Select Case e.DataCol.Name

    

    Case "开始日期","工作日"

        

        Dim d1 As Date = e.DataRow("开始日期")

        Dim dr1,dr2 As DataRow

        dr1 = DataTables("日历").Find("[日期] = '" & d1 & "'")    

        If dr1("是否是工作日") = False Then

            Dim d2 As Date = e.DataRow("开始日期")

            For i As Integer=1 To e.DataRow("工作日")

                d2=d2.AddDays(1)

                dr2 = DataTables("日历").Find("[日期] = '" & d2 & "'")

                If dr2 IsNot Nothing Then

                    If dr2("是否是工作日") = False Then

                        i=i-1

                    End If

                End If

            Next

            e.DataRow("结束日期") = d2

        Else

            Dim d As Date = e.DataRow("开始日期")

            For i As Integer=1 To e.DataRow("工作日")

                d=d.AddDays(1)

                If dr1 IsNot Nothing Then

                    If dr1("是否是工作日") = False Then

                        i=i-1

                    End If

                End If

            Next

            e.DataRow("结束日期") = d

        End If

        

End Select

谢谢大家，谢谢B版。

这样就可以了