使用日期函数计算工作日

Question

下面是我的SQL代码，用于计算报告的工作日。我试图用VBA Excel获得相同的结果。

set @end_date = DATEADD(DD,-DATEPART(dw,GETDATE())+1,GETDATE())
set @begin_date = DATEADD(DD,-6,@end_date)

我试过了：

endDate = DateAdd("D", -DatePart("W", DateValue(Now)) + 1, "DateValue(Now)")
startDate = DateAdd("D", -6, "endDate")

但是我无法得到结果！

Answer 1

如果我在Now之后添加括号并从DateAdd函数的最后一个输入和endDate变量中删除引号，则能够获得相同的输出。引号使代码认为您传入的是字符串而不是函数或变量。

所以你的VBA看起来像是：

endDate = DateAdd("D", -DatePart("W", DateValue(Now())) + 1, DateValue(Now()))

startDate = DateAdd("D", -6, endDate)