vb6 - 比较两个日期时间

Question

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

Answer 1

如果从数据库中提取的日期早于 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