比较两个日期时间

label1显示我通过查询从数据库获取的最后交易日期/时间。label2是系统日期/时间。我有一个执行命令按钮的计时器，之后我想检查 label1 中的日期/时间是否小于 5 分钟。如果是这样的话我想展示一下按摩。

但我不知道为什么我的代码无法执行此功能。 任何帮助都感激不尽。

Private Sub Command1_Click()
    Dim date1 As Date
    Dim date2 As Date

    date1 = Format(Now, "yyyy/mm/dd hh:mm:ss")
    date2 = Format(label1, "yyyy/mm/dd hh:mm:ss")
    If DateDiff("n", date1, date2) < 2 Then
       MsgBox ("Not Vending")
    End If
End Sub

我也尝试过：

Private Sub Command1_Click()
    Dim date1 As Date
    Dim label1 As Date

    date1 = Format(Now, "yyyy/mm/dd hh:mm:ss")
    date2 = label1
    If DateDiff("m", Now, date1) > DateDiff("m", Now, label1) Then
       MsgBox ("Not Vending")
    End If
End Sub

也：

Private Sub Command1_Click()  
    If DateDiff("n", Now, label1) > 5 Then
       MsgBox ("Not Vending")
    End If
End Sub

如果从数据库中提取的日期早于 Now，并且将 Now 作为第二个参数传递，则 DateDiff 将始终返回负数。看起来您正在检查时间的流逝，因此我假设 DB 中的日期始终在 Now 之前。您需要切换 Now 的顺序和与之比较的日期 (DateDiff("n", date1, Now)代替DateDiff("n", Now, date1).

Private Sub Command1_Click()
    Dim date1 As Date
    date1 = CDate(Label1.Caption)
    If DateDiff("n", date1, Now) < 5 Then
       MsgBox ("Not Vending")
    End If
End Sub