Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨工作日方法


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

主题：跨工作日方法
帅哥哟，离线，有人找我吗？
lur320
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：8851 威望：0 精华：0 注册：2015/8/12 16:28:00 		跨工作日方法  发帖心情 Post By：2017/8/23 22:52:00 [只看该作者]

dr("WO_release")=podate.AddHours(DataTables("timemmg").DataRows(0)("WO_release"))
会用这个代码来计算WO_release会延期多少小时。
但是一半都是48或72小时以上，那么如果跨周末的话，这些时间有没有什么命令可以再次在周一上面加上？就是跨周末的不算这部分时间。
论坛以前的帖子是整日的加，但是我的工单安排是按照小时为最小单位的。
大家帮忙看看用什么代码处理？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/23 23:16:00 [只看该作者]

参考代码

 

Dim d As Date = "2017-08-24 08:00:00"
Dim hs As Integer = 80
Dim dhs As Integer = (6-d.DayOfWeek)*24-d.Hour
If hs > dhs Then
    d = d.AddHours(dhs).AddDays(2).AddHours(hs-dhs)
Else
    d = d.AddHours(hs)
End If
msgbox(d)
 回到顶部
帅哥哟，离线，有人找我吗？
lur320
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：8851 威望：0 精华：0 注册：2015/8/12 16:28:00 		  发帖心情 Post By：2017/8/24 12:38:00 [只看该作者]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询