Comparer deux fois

label1 affiche la dernière date de l'opération/temps dont je obtenir à partir d'une base de données via une requête. label2 est la date/heure du système. J'ai un timer qui exécute une commande de bouton après avoir qui je veux vérifier si la date/heure dans label1 est plus petit que 5 minutes. Si oui, alors je veux montrer un massage.

Mais je ne sais pas pourquoi mon code ne s'est pas effectuer cette fonction.
Toute aide sera très appréciée.

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

J'ai aussi essayé:

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

Ainsi que:

Private Sub Command1_Click()  
    If DateDiff("n", Now, label1) > 5 Then
       MsgBox ("Not Vending")
    End If
End Sub
  • D'où vient label1 viennent? Pourquoi êtes-vous une date de conversion de types de cordes pour aller appeler DateDiff sur les cordes (qui la force de convertir les chaînes de caractères de retour pour les Dates)?? En nous donnant de multiples versions de Command1_Click n'est pas utile, nous montrent juste un qui est plus proche de ce que vous pensez devrait fonctionner.
InformationsquelleAutor user243732 | 2010-01-05