comparer 2 dates

"Titeuf" <titeuf@no-spam.org> a écrit dans le message de
news:c6e5r4$u2b$1@news-reader3.wanadoo.fr...

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

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" <titeuf@no-spam.org> a écrit dans le message de
news:c6e5r4$u2b$1@news-reader3.wanadoo.fr

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