| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 周末不加班的计算问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130874) |
| -- 作者：sloyy -- 发布时间：2019/2/9 3:39:00 -- 周末不加班的计算问题 有一个工程从D1开始工作,计划工作N个工作日(星期六,星期天不工作), 请问:如何算出工程结束的日期D2?
|
| -- 作者：sloyy -- 发布时间：2019/2/9 13:26:00 -- 比如:从2019-01-01 开始工作,计划工作30个工作日,如何算出工程结束的日期? |
| -- 作者：sloyy -- 发布时间：2019/2/9 14:37:00 -- 一个简单的循环解决问题 Dim d As Date Dim c,i As Integer i=0 c=0 Do While c<Tables("表a").current("天数") d = Tables("表a").current("开始日期").AddDays(i) If d.DayOfWeek >= 1 AndAlso d.DayOfWeek <= 5 Then c +=1 End If i +=1 Loop Tables("表a").current("结束日期") = Tables("表a").current("开始日期").AddDays(i-1)
|
| -- 作者：有点甜 -- 发布时间：2019/2/10 11:37:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108654&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122635&skin=0
|