主题：请假时间

明白了，谢谢

 还有个问题想请教师傅，法定假期都要调休，比如说国庆放假是：
2013-09-29、2013-09-30、2013-10-01三天，那么就把2013-09-28（周六）调来上班，这样该怎样处理？请指教

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

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

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

点击浏览该文件:請假.table

谢谢

想學習，如何open檔案。謝謝！

Select Case e.DataCol.Name
    Case "开始日期","结束日期"
        Dim dr,dr1 As DataRow
        dr = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("结束日期") Then
            dr("请假天数") = Nothing
        Else
            Dim n1,n2,n3 As Double
            Dim d1,d2,d3,d5 As Date
            d1 = dr("开始日期")
            d2 = dr("结束日期")
            n1 = (Cdate(format(d2,"yyyy/M/d")) - Cdate(format(d1,"yyyy/M/d"))).TotalDays
            If n1 <1 Then
                dr("请假天数") = Round2((d2 - d1).TotalDays*2.61818,3)
            ElseIf n1 <2 Then
                d3 = Format(d1,"HH:MM")
                d5 = #16:30#
                n2 = (d5-d3).TotalDays*26.1818/9.1666
                d3 = #07:20#
                d5 = Format(d2,"HH:MM")
                n2+ = (d5-d3).TotalDays*26.1818/9.1666
                dr("请假天数") = Round2(n2,1)
            Else  
                For n2 = 1 To n1 -1
                    d3= d1.AddDays(n2)
                    dr1=DataTables("法定假期").Find("日期=#" & format(d3,"M/d/yyyy") & "#")
                    If d3.DayOfWeek<>6 AndAlso d3.DayOfWeek<> 0  AndAlso dr1 Is Nothing Then
                        n3+= 1
                    End If
                Next
                d3 = Format(d1,"HH:MM")
                d5 = #16:30#
                n2 = (d5-d3).TotalDays*26.1818/9.1666
                d3 = #07:20#
                d5 = Format(d2,"HH:MM")
                n2+ = (d5-d3).TotalDays*26.1818/9.1666
                dr("请假天数") = Round2(n2+n3,1)
            End If
        End If
End Select

 

比如:开始日期是 2014/09/03 7:20   结束日期是 2014/09/04 16:30    请假天数是 2.2

请指点代码错在哪里?谢谢!