主题：请假

请师傅帮忙：

 我这有三张表分别是：“教师请假申请”、“教师课程表”、“假期课程”，教师请假一天能从“教师课程表”中，把今天课添加到“假期课程”中。

比如：陈寒 请假开始日期2013-06-19 7:10  结束日期2013-06-20 16:50（2013-06-19是星期三,2013-06-20是星期四）请2天假，那么就把陈寒“教师课程表”里星期三、星期四 07:10-16:50 这个时间段的课添加到“假期课程”里，

         陈欣欣  请假开始日期2013-03-20 09:30 结束日期2013-06-20 16:50（2013-06-20是星期四）请0.759天假，那么就把陈欣欣“教师课程表”里星期四 09:30-16:50 这个时间段的课添加到“假期课程”里，

说明:上班时间07:10-16:50,每节课40分

 

请帮忙谢谢!

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

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

结果应是这样

此主题相关图片如下：假期课程.png

            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.48277,3)
            ElseIf n1 <2 Then
                d3 = Format(d1,"HH:MM")
                d5 = #16:50#
                n2 = (d5-d3).TotalDays*24.8277/9.66666
                d3 = #07:10#
                d5 = Format(d2,"HH:MM")
                n2+ = (d5-d3).TotalDays*24.8277/9.66666
                dr("请假天数") = Round2(n2,1)
            Else

想请问这个数值怎样算出来的?  24.8277/9.66666

是这样算的吗?  9.66666=580/60,  24.8277=24/9.66666

你在例子帮我写的