[求助]如何判定校验日期是否到期了?

truckee

请各位高手帮忙,我想实现这样的功能,

If 今天的日期>上次校验日期+校验周期 Then

me.text1.text="未校"

Else

me.text1.text="已校"

比如上次校验日期是2004-4-12,校验周期是12月,那么这句语句如何写?先谢谢大家的帮忙!

truckee

大家帮我看看这句，为什么当校验日期字段或校验周期为空时，校验状态字段的值不为空呢？而总是显示“未检”，还有一个问题，我想在打开“校验设备form"的时候，用msgbox("设备未检验!!!")来提示，怎么实现打开form时才提示，我在form_load和current中当第一个设备未检时总是先显示警告，再打开from.

If Not IsNull(Me![校验日期]) And 校验周期.Value <> "" Then If DateDiff("d", Me![校验日期], Date) < 校验周期.Value * 365 Then 校验状态.Value = "已检!" Else 校验状态.Value = "未检!!!" End If Else 校验状态.Value = "" End If