comparer 2 dates

Le
Titeuf
j'ai un timer avec 1 interval de 1000 ms (1 sec)


dim daOut as Date 'déclarer en global

private sub timer1_timer()

if daOut = Now then
msgbox " Date identique"
end if

end sub



j'ai bien vérifié le contenu de daOut, elle est au bon format jj/mm/aaaa
hh:mm:ss
comment faire pour comparer 2 dates ?
merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-Marc
Le #14676541
"Titeuf" news:c6e5r4$u2b$
j'ai un timer avec 1 interval de 1000 ms (1 sec)


dim daOut as Date 'déclarer en global

private sub timer1_timer()

if daOut = Now then
msgbox " Date identique"
end if

end sub




Hello,

le code suivant fonctionne:

Vérifie bien que quand tu exécutes en direct:
? now
il affiche bien quelque chose comme "24/04/2004 19:30:23".
Si il affiche différemment, aligne alors le format de ta variable date en
global pour le faire coïncider avec le format de now

----------------------------------------------------
Dim date_whatever As Date ' globale

Private Sub Command1_Click()
date_whatever = "24/04/2004 19:02:32"
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim date_now As Date

date_now = Now

If date_now = date_whatever Then
MsgBox "identiques"
End If

End Sub


Jean-Marc
François Picalausa
Le #14676531
Hello,

comment faire pour comparer 2 dates ?



L'opérateur = ne fonctionne que dans le cas où les deux dates sont
*vraiment* égales.
Tu peux utiliser DateDiff pour tester si la valeur est plus ou moins proche
de la valeur souhaitée.
Tu peux aussi utiliser > avec un booléen indiquant si la vérification a déjà
été vraie:

private sub timer1_timer()
Static TestDone As Boolean

if daOut > Now And Not TestDone then
msgbox " Date identique"
TestDone = True
end if

end sub


--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"Titeuf" news:c6e5r4$u2b$
j'ai un timer avec 1 interval de 1000 ms (1 sec)


dim daOut as Date 'déclarer en global

private sub timer1_timer()

if daOut = Now then
msgbox " Date identique"
end if

end sub



j'ai bien vérifié le contenu de daOut, elle est au bon format
jj/mm/aaaa hh:mm:ss
comment faire pour comparer 2 dates ?
merci


Publicité
Poster une réponse
Anonyme