自定义输入一个日期经过多少天后到达的日期，如果该日期为非工作日，顺延至下周一（不包括法定节假日）。
代码：
'指定日期经过多少天后到达工作日
Function takedate(bookdate As Date, throwdate As Long) As String
takedate = DateAdd("d", throwdate, bookdate)
If WeekdayName(Weekday(takedate)) = "星期六" Then
MsgBox "到达日期为非工作日，顺延到下周一！"
takedate = DateAdd("d", throwdate, bookdate) 2
End If
If WeekdayName(Weekday(takedate)) = "星期日" Then
MsgBox "到达日期为非工作日，顺延到下周一！"
takedate = DateAdd("d", throwdate, bookdate) 1
End If
End Function
图 示:
示例下载 ：（在“了解更多”里下载）
