[VB6] Problème de date

Bonjour à tous,

J'ai un petit souci de date, je vous montre mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With rstAvoir .ActiveConnection = connexion .CursorType = adOpenStatic .LockType = adLockOptimistic .Open "Select Code_MC From Avoir where (Code_Equipe= " & Feuille_Démarrage.Nom_Equipe.ItemData(Feuille_Démarrage.Nom_Equipe.ListIndex) & ") and (Code_Vacation=" & Feuille_Démarrage.Libellé_Vac.ItemData(Feuille_Démarrage.Libellé_Vac.ListIndex) & ") and (Numero_Agent=" & Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ItemData(Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ListIndex) & ") and (Date_Vacation=#" & Format(Feuille_Démarrage.Label9.Caption, "dd/mm/yyyy") & "#)"   If IsNull(!Code_MC) Then 'Si le Code_MC est Null alors MsgBox ("Code_MC null") Else MsgBox ("Code MC n'est pas null") End If .Close End With

---

Ce code marche pour toute les dates sauf pour celle d'aujourdhui, c'est à dire le 01/02/2006, j'ai changé la date de mon systéme je l'ai mis au 02/02/2006 et cela marche.

Pourquoi au 01/02/2006 cela ne marche pas?

Nb: le lable9 reprend la date du systéme.

Pouvez-vous m'aider?

Merci d'avance.

Citation:

---

Pourquoi au 01/02/2006 cela ne marche pas?

---

Peut-être en l'absence d'enregistrements antérieurs au 2 janvier 2006 ?

J'ai l'impression que ça ne marcherait pas non plus avec, entre autres, "03/03/2005"...
A défaut de convertir ta date (voir plusieurs sujets déjà traités sur ce forum), ta requête devra se faire sur une date anglaise.

En fait mon problème c'est pour le mois de fevrier, il y a que la date 02, le 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28 qui marche et les autres date ne marche pas.

Comment cela se fait-il?

Pouvez-vous m'aider?

Merci d'avance.

C'est bon j'ai trouvé mon erreur : il fallait que je remplace le format date :
J'avais mis dd/mm/yyy alors qu'il fallait mettre mm/dd/yyyy.

Merci à tous