使用vba获取本周的本周日期？

Question

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

因此，例如今天是2017年4月6日星期四，所以本周的星期二将是04.04.2017。

我正在尝试使用以下内容执行此操作：

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

但这是星期一03.04.2017返回

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

Answer 1

您无需使用Now()，Date足以获得当前日期（没有时间）。

尝试以下代码：

Dim iWeekday As Date

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