vba - 获取昨天的日期，如果星期一获取周末范围

Question

有没有办法得到昨天的日期。如果当前日期是星期一，我需要返回三个日期 - 星期日、星期六和星期五。有什么方法可以在单个查询中完成此操作。我不太了解 VBA，但如果这是解决问题的唯一方法，我愿意亲自动手。

Select * from [Purchase Order] where MyDate = 'Yesterdays date(s)'

Answer 1

该WeekDay()函数将告诉您函数返回的今天的日期是否 Date()为星期一。在表达式中使用它，IIf()以便MyDate在今天不是星期一时匹配昨天的日期，或者在星期一时匹配前 3 个日期MyDate。

SELECT *
FROM [Purchase Order] AS p
WHERE
    IIf(Weekday(Date()) = 2,
        p.MyDate BETWEEN DateAdd('d',-3,Date())
            AND DateAdd('d',-1,Date()),
        p.MyDate=DateAdd('d',-1,Date())
        );