以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨工作日方法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105673)
--  作者：lur320
--  发布时间：2017/8/23 22:52:00
--  跨工作日方法
dr("WO_release")=podate.AddHours(DataTables("timemmg").DataRows(0)("WO_release"))
会用这个代码来计算WO_release会延期多少小时。
但是一半都是48或72小时以上，那么如果跨周末的话，这些时间有没有什么命令可以再次在周一上面加上？就是跨周末的不算这部分时间。
论坛以前的帖子是整日的加，但是我的工单安排是按照小时为最小单位的。
大家帮忙看看用什么代码处理？
--  作者：有点甜
--  发布时间：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
--  发布时间：2017/8/24 12:38:00
--  
谢谢