我正在嘗試插入未來的訪問日期，該日期將在當前日期后 20 天，但如果該日期不是星期一，我需要它是在下一個星期一。
我的代碼目前是：
.TypeText "We will visit your location the week of "
.TypeText Text:=Format(Date 20, "mmmm d, yyyy, ")
那是 5 月 14 日星期六。我希望它顯示 16 日，因為那是下周一。
uj5u.com熱心網友回復：
添加此功能
Function MondayOnOrAfter(StartDate As Date) As Date
Dim ReturnDate As Date
ReturnDate = StartDate
Do While Weekday(ReturnDate) <> vbMonday
ReturnDate = ReturnDate 1
Loop
MondayOnOrAfter = ReturnDate
End Function
并這樣稱呼它
.TypeText Text:=Format(MondayOnOrAfter(Date 20), "mmmm d, yyyy, ")
它一次增加一天，直到星期一。沒有回圈也可以解決這個問題，但是該代碼不會很漂亮。
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/453946.html