未来日期的格式

Question

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

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

如果我在周五发送周一的报告，我该怎么办？

例如：
当我在星期五（星期一）发送报告时，我得到的报告日期是 - 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

未来日期的格式

Format for future date

outlook

vba