主题：请假

有三个表分别:教工请假申请、法定假期、节假日调休，

教工请假申请表，结束日期 = 开始日期 - 请假天数 - 周六、周日 - 法定假期.假日名称+节假日调休.调休名称

注:节假日调休.调休名称是周六或周日

请指教代码?谢谢!

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

点击浏览该文件:管理项目19.zip

结束日期

好的,谢谢!

谢谢!

我还想请教,如果要计算请假天数。代码？谢谢！

If e.DataRow.IsNull("开始日期") And  e.DataRow.IsNull("结束日期") Then
    e.DataRow("请假天数")=Nothing
Else
    Dim d1 As Date = e.DataRow("开始日期")
    Dim d2 As Date = e.DataRow("结束日期")
    If d1>d2
        e.DataRow("请假天数") = 0
    Else
        Dim cnt As Integer = (d2-d1).TotalDays
        For i As Integer = 1 To cnt
            Dim d3 As Date = d1.adddays(i)
            If d3.DayOfWeek = 0 OrElse d3.DayOfWeek = 6 Then '

                cnt = cnt - 1
            End If
         End If
        Next
       e.DataRow("请假天数") = cnt
    End If
End If

法定节假日,节假日调休 不知怎样写进去

谢谢甜老师