Foxtable(狐表)用户栏目专家坐堂 → 周末不加班的计算问题


  共有1698人关注过本帖树形打印复制链接

主题:周末不加班的计算问题

帅哥哟,离线,有人找我吗?
sloyy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1685 积分:10755 威望:0 精华:2 注册:2012/2/25 10:59:00
周末不加班的计算问题  发帖心情 Post By:2019/2/9 3:39:00 [只看该作者]

有一个工程从D1开始工作,计划工作N个工作日(星期六,星期天不工作),
请问:如何算出工程结束的日期D2?

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1685 积分:10755 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2019/2/9 13:26:00 [只看该作者]

比如:从2019-01-01 开始工作,计划工作30个工作日,如何算出工程结束的日期?

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1685 积分:10755 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By: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)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85329 积分:427820 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/10 11:37:00 [只看该作者]


 回到顶部