主题：工作日期

老师按您意见，怎样把假期按放假减掉、把上班的加上，请老师指教，谢谢！

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

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

老师发现一个奇怪问题，除周六、周日外，3、6、9月都少1天，其它月份都对，9月是21天，计算是20天。

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

Select Case e.DataCol.Name
    Case "月份"
        Dim dr As DataRow
        dr = e.DataRow
        Dim str = dr("月份") & "-01"
        Dim d1 As Date
        If dr.IsNull("月份") Then
            dr("天数") = Nothing
        ElseIf Date.TryParse(str, d1) = False Then
            msgbox("月份不正确")
            dr("天数") = Nothing
        Else
            Dim d2 As Date = d1.AddMonths(1)
            Dim sp As TimeSpan = d2-d1
            Dim filter = "日期 >= #" & d1 & "# and 日期 < #" & d2 & "#"
            Dim jqs As new List(Of Date)
            Dim sbs As new List(Of Date)
            For Each r As DataRow In DataTables("假期安排").Select(filter)
                If r("安排项目") = "上班" Then
                    sbs.add(r("日期"))
                Else
                    jqs.add(r("日期"))
                End If
            Next
            Dim count As Integer = sp.TotalDays
            For i As Integer = 0 To sp.TotalDays-1
                Dim d As Date = d1.AddDays(i)
                If d.DayOfWeek = 0 OrElse d.DayOfWeek = 6 Then
                    If sbs.Contains(d) = False Then
                        count -= 1
                    End If
                ElseIf jqs.Contains(d) Then
                    count -= 1
                End If
            Next
            dr("天数") = count
        End If
End Select