如何在 Access 中使用日期功能？答案

【问题标题】：How do I use a date function in Access?如何在 Access 中使用日期功能？
【发布时间】：2017-10-16 00:29:51
【问题描述】：

我正在尝试将已过期的项目放入表中。我有列表中最后完成项目的日期，并且我知道项目需要完成的频率。

例如。我在 2017 年 4 月 7 日进行了一次清洁，需要在上次清洁后 30 天进行清洁，我在 2017 年 1 月 13 日进行了一次清洁，需要在上次清洁后 90 天进行清洁清理干净。

如何让 Access 在单独的列表中显示过期项目？如果有帮助，我会在转到此表之前单击一个按钮。问题是，并非每件物品都需要以相同的频率进行清洁。据我所知，Access 没有 Excel 之类的日期函数，您不能在单元格中键入函数。谢谢！

【问题讨论】：

标签： date ms-access vba ms-access-2010

【解决方案1】：

 dim datedue as date, lastdate as date
 datedue = Dateadd("d", 30, lastdate)

 If datedue < Date() then
      'do stuff
 End if

这是检查日期的基本语法。因为你没有自己尝试任何东西，这就是你得到的全部。

玩得开心:)

【讨论】：

【解决方案2】：

您不是“在单元格中键入函数”，而是设置文本框的 ControlSource。 Access 有几十个日期函数。

但是，您可以从查询开始：

Select 
    *,
    DateAdd("d", [CleaningFrequency], [LastCleaned]) As NextCleaning,
    IIf(DateDiff("d", [LastCleaned], Date()) > [CleaningFrequency], "Overdue", Null) As [Status],
    IIf(DateDiff("d", [LastCleaned], Date()) = [CleaningFrequency], "Yes", Null) As [Clean Today]
From
    YourTable

当然，用你的名字替换字段和表名。

【讨论】：