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

Question

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

例如。我在4/7/17进行了一次清洁，最后一次清洗后30天需要清洗，我有1/13/17的清洁，最后一次清洗后90天需要清洗。

如何才能在单独的列表中向我显示过期的物品？如果有帮助，我将点击一个按钮，然后再走到这张桌子。问题是，并不是每个项目都需要以相同的频率进行清洗。据我所知，Access没有像Excel那样的日期函数，您不能在单元格中键入函数。谢谢!

Answer 1

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

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

这是检查日期的基本语法。既然你一个人没有试过任何东西，这就是你得到的全部。

玩得开心:)

Answer 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

当然，将字段名和表名替换为您的名称。