使用vba獲取當週的星期二的日期？

因此，比如今天是2017年4月4日星期四，所以本週的星期二將是04.04.2017。

我想這一點使用下面的事情：

Dim iWeekday As Integer 
iWeekday = Weekday(Now(), vbTuesday) 
MsgBox iWeekday

但這週一返回的日期2017年4月3日

請能有人告訴我在哪裏，我錯了？

您需要使用數字結果減去，所以如果結果是2，這意味着週三，因此將其刪除（2-1）得到的日期。 'date-Weekday（Now（），vbTuesday）' –

@Nathan_Sav謝謝，但這會產生溢出錯誤 – user7415328

我得到'？現在 - 平日（現在（），vbTuesday）'= 03/04/2017 12:48:23和？ '日期 - 平日（Now（），vbTuesday）'= 03/04/2017 –

您不需要使用Now(),Date就足以獲取當前日期（無時間）。

嘗試下面的代碼：

Dim iWeekday As Date 

iWeekday = Date - Weekday(Date, vbTuesday) + 1 
MsgBox iWeekday

2017-04-06 11:57:07

回答