主题：跨工作日方法

参考代码

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)