- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请假 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35033)
-- 发布时间：2013/6/22 10:38:00
-- 请假
请师傅帮忙：
我这有三张表分别是：“教师请假申请”、“教师课程表”、“假期课程”，教师请假一天能从“教师课程表”中，把今天课添加到“假期课程”中。
比如：陈寒 请假开始日期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
-- 发布时间：2013/6/22 12:00:00
--
写完了发现狐表不支持 单纯时间段 "#7:10#" 这样的时间识别 那么只能一行行做对比查找无法使用筛选表达式了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.table |
-- 发布时间：2013/6/22 13:47:00
--
这样不能生成“假期课程”，那么只用日期（2013-06-19）
-- 发布时间：2014/1/15 14:44:00
--
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
-- 发布时间：2014/1/15 14:52:00
--
我也不懂 24.8277/9.66666 是个啥
-- 发布时间：2014/1/15 15:01:00
--
你在例子帮我写的
-- 发布时间：2014/1/15 15:10:00
--
不会的,你认错人了.我写过我怎么会不知道呢.