自定义输入日期经过多少天后到达日期

时　间:2017-11-18 11:46:02
作　者:仙来   ID：30269  城市：池州
摘　要:自定义输入一个日期经过多少天后到达的日期，如果该日期为非工作日，顺延至下周一（不包括法定节假日）。

正　文:

 自定义输入一个日期经过多少天后到达的日期，如果该日期为非工作日，顺延至下周一（不包括法定节假日）。

'指定日期经过多少天后到达工作日
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

附   件:

点击下载此示例

图   示: