主题：请假时间

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

点击浏览该文件:请假.zip

各位老师：

    我想做个请假表，比如早上7：20上班至下午16：50下班，法定节假日（比如：清明、端午、五一、十一、元旦、春节、周六周日）除外。

比如我要：

请假1天

2013-06-07 07：20 --- 2013-06-07 16：50 系统算出 1天

 

2013-06-07 07：20 --- 2013-06-07 12：05 系统算出 0.5天

请假3天

2013-06-07 07：20 --- 2013-06-11 16：50系统算出 4天 因为08日周六、09日周日，减去08日周六、09日周日，实际是2天

这样复杂计算如何能做出？

2013-06-07 07：20 --- 2013-06-07 16：50 系统算出 1天

 

2013-06-07 07：20 --- 2013-06-07 12：05 系统算出 0.5天

也可以小数，比如：2013-06-07 14:34--2013-06-07 16:50系统算出0.23天

没有上网，太谢谢了！

请问师傅：n2+ = (d5-d3).TotalDays*24/9.5+0.09这个加0.09什么意思

明白了，谢谢

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

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

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

谢谢

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

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