Discussion :

[pc75]

Bonjour,

J'ai une "Erreur de syntaxe" sur la ligne 5.
J'ai essayé "Case is > 0" sans succès.
Quelqu'un pour me dire pourquoi ?

Merci.

Code :

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

1
2
3
4
5
6
7
8
9
NbJours = DateDiff("d", rstemp("CAL_DATE"), Now)
	Select Case NbJours
	Case 0 ' Aujourd'hui
		Response.Write "Aujourd'hui " & NbJours & "<br>"
	Case > 0 ' Date passée
		Response.Write "Date passée " & NbJours & "<br>"
	Case < 0 ' Date à venir
		Response.Write "Date à venir " & NbJours & "<br>"
	End Select

[pc75]

J'ai trouvé une alternative qui fonctionne, mais j'aimerai bien comprendre pourquoi la première ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
NbJours = DateDiff("d", rstemp("CAL_DATE"), Now)
Select case true
case NbJours = 0
        Response.Write "Aujourd'hui " & NbJours & "<br>"
case NbJours > 0
	Response.Write "Date passée " & NbJours & "<br>"
case NbJours < 0
	Response.Write "Date à venir " & NbJours & "<br>"
End Select

Merci.