Bonjour,
La fonction que j'ai écrite fonctionne qu'a moitie, elle ne prend pas en compte les conditions d'intervalle de temps que je lui ai donné.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
<p><% Dim tem_8,tem_9,tem_10,tem_11,heure
tem_8 = TimeValue("06:00:00")
tem_9 = TimeValue("18:00:00")
tem_10= timeValue("18:00:01")
tem_11 = TimeValue("22:00:00")
heure = Time
Select Case heure
Case "(tem_8 to tem_9)":Response.Write" bonjour "
Case "(tem_10 to tem_11)":Response.Write" bonsoir "
Case Else:Response.Write" bonne nuit "
End Select
%></p>
J'aimerai que vous m'aidiez à comprendre pourquoi il ne me donne pas le bon résultat merci d'avance