Date 如何在Access中使用日期函数？

我正试着把被认为过期的物品放进一张桌子里。我有列表中项目最后一次完成的日期，我知道项目需要完成的频率

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

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

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

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

datedue=Dateadd（“d”，30，lastdate）
如果datedue

这是检查日期的基本语法。既然你没有自己尝试过任何东西，这就是你所能得到的

玩得开心：）

dim datedue as date，lastdate as date
datedue=Dateadd（“d”，30，lastdate）
如果datedue

这是检查日期的基本语法。既然你没有自己尝试过任何东西，这就是你所能得到的

玩得开心：）

您不需要“在单元格中键入函数”，而是要设置文本框的控制源。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

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

您没有“在单元格中键入函数”，而是设置文本框的控制源。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

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