夜的第七章

'日期，天数
Function GetWorksLimit(ByVal d As Date, ByVal span As Double)

    '获取本地时间
    Dim today, getday
    today = weekday(d, vbMonday)
    
    If today <> 6 And today <> 7 Then
        getday = d + span
    ElseIf today = 6 Then
        getday = d + span + 2
    ElseIf today = 7 Then
        getday = d + span + 1
        
    End If
    
    GetWorksLimit = getday
    
End Function

功能，计算某项工作N天后的时间，跳过周末