如何比较记录日期和当前日期？

【问题标题】：How to compare a record date with current date?如何比较记录日期和当前日期？
【发布时间】：2017-08-23 11:35:00
【问题描述】：

在我的登录表单中，我试图将用户的完成日期与当前日期进行比较，以确定是否应允许他们进入系统。不幸的是，我的代码不起作用。

我的工作如下；

If Cdate(DLookup("[FInish Date]", "Employee", "Userlogin = Me.TxtUserName.Value)) >= Date() then

感谢您的帮助。

【问题讨论】：

标签： vba date ms-access login comparison

【解决方案1】：

您的方法看起来很有效，但是您的DLookUp 语句中有许多语法错误。应该是：

If CDate(DLookup("[Finish Date]", "Employee", "Userlogin = """ & Me.TxtUserName.Value & """")) >= Date() Then

假设完成日期是一个有效的日期字段。请注意，这不能正确处理 Null 和无效日期。对于更强大的方法：

Dim MyDate As Variant
MyDate = DLookup("[Finish Date]", "Employee", "Userlogin = """ & Me.TxtUserName.Value & """")
If IsDate(MyDate) Then
    If CDate(MyDate) >= Date() Then

【讨论】：