格式以供将来约会

Question

我正在使用宏来发送周一至周五的报告。

.Subject = "Report For - " & Format(Now + 1, "Long Date")

如果我在星期五的星期一发送报告怎么办？

e.g：
当我在周五发送周一报告时，我会收到2015年4月18日星期六的报告日期

Answer 1

此代码将在周日至周四的第二天选择

星期一和星期六将选择星期一

Dim strIn As String
Select Case Weekday(Now)
Case 1 To 5
    strIn = "Report For - " & Format(Now + 1, "Long Date")
Case Else
    strIn = "Report For - " & Format(Now + (9 - Weekday(Now)), "Long Date")
End Select