Discussion :

[SandrillonC]

Bonjour,

Je souhaite arrêter une boucle à une heure spécifiée par l'utilisateur. Pour cela j'ai utilisé la fonction Timeserial comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
a = TextBox1.Text 'heure à laquelle l'utilisateur souhaite l'arret
b = TextBox2.Text 'minute à laquelle l'utilisateur souhaite l'arret
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now())
 
Do While TimeSerial(newHour, newMinute, newSecond) < TimeSerial(a, b, 0)
'mon code
Loop

Je ne comprends pas pourquoi cela ne marche pas. VB ne peut-il pas comparer 2 heures différentes ?

[babaothe]

salut

il est clair que l'heure actuelle, non modifiée dans ta boucle, restera toujours la même et sera donc toujours inférieure à l'heure d'arrêt !

[SandrillonC]

Merci beaucoup !
Je suis un peu confus de ne pas avoir pensé à cela.
Mon nouveau code

Code :

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

1
2
3
4
5
6
7
8
9
a = TextBox1.Text
b = TextBox2.Text
Tim = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()))
 
 
Do While Tim < TimeSerial(a, b, 0)
' mon code
Tim = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()))
loop

Merci beaucoup