使用vba获取当周的星期二的date？

我正在尝试获取星期二的当前周数。

因此，例如今天是星期四06.04.2017，所以本周的星期二将是04.04.2017。

我正在尝试使用以下方法来执行此操作：

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

但这是星期一的date03.04.2017

请有人告诉我我要去哪里错了吗？

Answer 1

你不需要使用Now() ， Date就足以得到当前的date（没有时间）。

试试下面的代码：

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