[VB6]Comparaison de dates

Bonjour

Pourquoi exactement le code suivant fonctionne correctement

Code:

---

If CDec(CDate(varJourHeure)) >= CDec(CDate(Deb05)) And CDec(CDate(Fin05)) > CDec(CDate(varJourHeure)) Then

---

et celui-ci non?

Code:

---

If varJourHeure >= Deb05 And Fin05 > varJourHeure Then

---

Merci.

De quel(s) type(s) sont les variables traitées ? :)

J'en profite pour signaler que le temps d'accés devient lourd, sur chaque page.

Je suppose que Deb05 est pris ici comme un string. Si tu n'indique pas que c'est une date, CDec ne convertira pas un string en décimal
Par contre, Cvar prévu pour convertir un string ne provoque pas d'erreur.

Code:

---

1 2 3 4 5 6 7

Sub CVAR_CDEC() MaDate = "05/12/06" on error resume next MsgBox CDec(MaDate) msgbox error(err) MsgBox CVar(MaDate) End Sub

---

Peut-être...

A+

Merci de vos réponses.

Les variables sont déclarées en variant. Elles contiennent des dates obtenues avec les fonction Now et/ou Date, qui renvoient des variants.

J'avais essayé avec CVar sans succès. Mais en fait, le problème n'est pas celui-ci, je n'ai pas assez précisé.

Il n'y a pas d'erreur, c'est la comparaison qui ne se fait pas. La ligne de code est un If...Then. Le test se fait dorrectement avec CLng..., mais pas sans conversion.

Concernant l'augmentation du temps d'accès aux pages, je l'ai aussi remarqué certains jours à certaines heures.