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

truckee

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

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

me.text1.text="未校"

Else

me.text1.text="已校"

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

pxbld

    If Date > #4/10/2004# + 365 Then
        MsgBox "未校"
    Else
        MsgBox "已校"
    End If

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

truckee

各位兄弟姐妹,给点意见吧!