[VB6]Comparaison de dates

Bonjour

Pourquoi exactement le code suivant fonctionne correctement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et celui-ci non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If varJourHeure >= Deb05 And Fin05 > varJourHeure Then

Merci.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.