Select Case d1
Case Is > d2
MsgBox ("d1 + vieux")
Case Is = d2
MsgBox ("d1 d2 =")
Case Is < d2
MsgBox ("d2 + vieux")
End Select
jhon_smith
Messages postés40Date d'inscriptionjeudi 16 octobre 2003StatutMembreDernière intervention30 mars 2007 22 févr. 2007 à 21:42
en fait j'essai de comparer directement des dates par les opérateurs mais ça marche pas, Etes-vous sûr ? .. Au cas où le problème proviendrait de chez moi, ça pourrait toujours servir à qq un apprenant l'algorithmique.
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010 22 févr. 2007 à 20:34
Pourquoi avoir écrit cette fonction?, Vb prend en charge les comparaisons de dates.
Exemple:
Dim d1 As Date
Dim d2 As Date
d1 = "12/03/2006 12:00:00"
d2 = "12/04/2006 11:59:59"
Select Case d1
Case Is > d2
MsgBox ("d1 + vieux")
Case Is = d2
MsgBox ("d1 d2 =")
Case Is < d2
MsgBox ("d2 + vieux")
End Select
22 févr. 2007 à 23:43
Dim d1 As Date
Dim d2 As Date
d1 = "01/12/1899 12:00:00"
d2 = "01/12/1899 11:59:59"
Select Case d1
Case Is > d2
MsgBox ("d1 + vieux")
Case Is = d2
MsgBox ("d1 d2 =")
Case Is < d2
MsgBox ("d2 + vieux")
End Select
22 févr. 2007 à 21:42
22 févr. 2007 à 20:34
Exemple:
Dim d1 As Date
Dim d2 As Date
d1 = "12/03/2006 12:00:00"
d2 = "12/04/2006 11:59:59"
Select Case d1
Case Is > d2
MsgBox ("d1 + vieux")
Case Is = d2
MsgBox ("d1 d2 =")
Case Is < d2
MsgBox ("d2 + vieux")
End Select