自定义输入一个日期经过多少天后到达的日期,如果该日期为非工作日,顺延至下周一(不包括法定节假日)。
'指定日期经过多少天后到达工作日
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
附 件:
点击下载此示例
图 示: