2

我需要让我的 Access 查询始终返回本周的星期一。我在 Google/StackOverflow 上看到了一些解决方案，但它们是用 SQL 编写的，而且我是创建 Access 查询的初学者（我正在使用设计视图来制作它们）。

目标：应将一周视为MTWTFS S。然后，查询应始终返回当前一周的星期一。因此，如果是星期天，它应该仍然返回前一个星期一，而不是下周的星期一。谁能解释如何使用 Access 2010 中的设计视图执行此操作？

4

2 回答 2

9

请记住，在这种情况下，我们正在处理日期，所以如果我们这样做Date() - 1，我们将在今天之前 1 天得到。

Date()~ 今天的日期

DatePart(
        "w" - Weekday
        Date() - Today's date
        2 - vBMonday (Access assumes Sunday is the first day of the week, which is why this is necessary.)
        1 - vbFirstJan1 - This gets into using the first week of the year. We could have omitted this, as 1 is the default.
)

-1 - Subtract 1 from the DatePart value.

价值观

Date() = 4/27/2015 (at time of this writing)
DatePart("w",Date(),2,1) = 1
DatePart("w",Date(),2,1)-1 = 0

所以我们有Date()-0......好吧，那有什么了不起的？好吧，让我们看一个更有用的场景，其中今天的日期不是星期一。

假设今天是 2015 年 4 月 28 日（星期二）

Date() = 4/28/2015
DatePart("w",Date(),2,1) = 2
DatePart("w",Date(),2,1)-1 = 1

所以，从外到内；给我当前的工作日值。（1 = 星期一，2 = 星期二等），然后从中减去 1 -> 这就是我们需要从当前日期减去多少天才能返回weekday1（星期一）的值。

于 2015-04-27T16:51:02.363 回答
1

这是一个可以执行此操作的函数：

Public Function DatePrevWeekday( _
  ByVal datDate As Date, _
  Optional ByVal bytWeekday As VbDayOfWeek = vbMonday) _
  As Date

' Returns the date of the previous weekday, as spelled in vbXxxxday, prior to datDate.
' 2000-09-06. Cactus Data ApS.

  ' No special error handling.
  On Error Resume Next

  DatePrevWeekday = DateAdd("d", 1 - Weekday(datDate, bytWeekday), datDate)

End Function

由于 vbMonday 是 2 并且您的日期是今天，您可以在查询中使用核心表达式：

PreviousMonday: DateAdd("d",1-Weekday(Date(),2),Date())
于 2015-04-27T16:53:33.490 回答