主题：工作日期

结束日期 = 开始日期 加上 天数（除去周六、周日）减去法定节假日， 请老师指教，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工作日期.zip

Select Case e.DataCol.Name
    Case "开始日期","天数"
        Dim dr As DataRow
        dr = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("天数") Then
            dr("结束日期") = Nothing
        Else
            Dim c As Integer = 0
            Dim d As Date
            Dim i As Integer = 0
            Dim drs = DataTables("法定假期").Select("")
            Do While True
                d = dr("开始日期").AddDays(i)
                If d.DayOfWeek >= 1 AndAlso d.DayOfWeek <= 5 Then
                    c += 1
                    For Each cdr As DataRow In drs
                        Dim sd As Date = cdr("开始日期")
                        If sd <= d AndAlso sd.AddDays(cdr("天数")) >= d Then
                            c -= 1
                            Exit For
                        End If
                    Next
                End If
                i += 1
                If c = dr("天数") Then
                    Exit Do
                End If
            Loop
            dr("结束日期") = dr("开始日期").AddDays(i)
        End If
End Select

谢谢

老师，好像不对

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工作日期.zip

Select Case e.DataCol.Name
    Case "开始日期","天数"
        Dim dr As DataRow
        dr = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("天数") Then
            dr("结束日期") = Nothing
        Else
            Dim c As Integer = 0
            Dim d As Date
            Dim i As Integer = 0
            Dim drs = DataTables("法定假期").Select("")
            Do While True
                d = dr("开始日期").AddDays(i)
                If d.DayOfWeek >= 1 AndAlso d.DayOfWeek <= 5 Then
                    c += 1
                    For Each cdr As DataRow In drs
                        Dim sd As Date = cdr("开始日期")
                        If sd <= d AndAlso sd.AddDays(cdr("天数")) >= d Then
                            c -= 1
                            Exit For
                        End If
                    Next
                End If
                If c = dr("天数") Then
                    Exit Do
                End If
                i += 1
            Loop
            dr("结束日期") = dr("开始日期").AddDays(i)
        End If
End Select

谢谢

老师，还想请教，因中国假期特殊性，有时放假前一天是周六或周日，后一天也有可能是周六或周日，我在法定假期表名称列以“上班”来区分，如图：

 

此主题相关图片如下：qq截图20171030221835.png

Select Case e.DataCol.Name
    Case "开始日期","天数"
        Dim dr,drr As DataRow
        dr = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("天数") Then
            dr("结束日期") = Nothing
        Else
            Dim c As Integer = 0
            Dim d As Date
            Dim i As Integer = 0
            Dim drs = DataTables("法定假期").Select("")
            Do While True
                d = dr("开始日期").AddDays(i)
                If d.DayOfWeek >= 1 AndAlso d.DayOfWeek <= 5 Then
                    c += 1
                    For Each cdr As DataRow In drs
                        Dim sd As Date = cdr("开始日期")
                        If sd <= d AndAlso sd.AddDays(cdr("天数")) >= d Then
                            c -= 1
                            Exit For
                        End If
                    Next
                End If
                If c = dr("天数") Then
                    Exit Do
                End If
                i += 1
            Loop
            Dim cmd As New SQLCommand
            Dim dt As DataTable
            cmd.CommandText = "Select  Sum(天数) As 天数,名称 Fr om {法定假期} WHERE 开始日期 >= #" & dr("开始日期") & "# And 开始日期 <= #" & dr("结束日期") & "# GROUP BY 名称"
            dt = cmd.ExecuteReader()
            drr = dt.Find("名称 = '上班'")
            If drr Is Nothing Then
                dr("结束日期") = dr("开始日期").AddDays(i)
            Else
                dr("结束日期") = dr("开始日期").AddDays(i-dt.DataRows(0)("天数"))
            End If
        End If
End Select

老师怎样？请指教，谢谢！

建议法定假期表直接列出具体的日期，不要使用天数。这样计算就方便多了

谢谢