La fonction DateAdd(intervalle, valeur, date)

Bonjour:)

J'ai un problème avec la fonction :

Code:

---

DateAdd(intervalle, valeur, date)

---

Je veux réalisé avec, une horloge qui s'affiche ds un label :
Au 'load' de la 'form' la variable t qui est string prend la valeur de time$ ; un timer avec un intervalle de 1000 (1 seconde) contient l'instruction :

Code:

---

t=DateAdd("s",1,t)

---

L'horloge fonctionne parfaitement mais à minuit ("00:00:00") t devient une date+heure, alors comment peux-je éviter ce problème?

(J'ai utilisé une variable t et non pas l'heure système directement(time$) pour que t ne soit pas modifié alors que time$ peut être modifié)

Peu-être en utilisant la fonction Format pour n'afficher que la partie heure de ton temps "t" ...

Code:

---

1 2	msgbox Format(t,"hh:nn:ss")

---

;)


[edit] tu peu aussi faire :

Code:

---

1 2	t = TimeValue(DateAdd("s", 1, t))

---

J'allais poster la même réponse que bbil, mais j'ajoute que la précision du contrôle Timer n'est pas exceptionnelle. Je pense que tu risques davoir un décalage progressif de ton heure avc cette méthode, en tout cas sur une période assez longue (à tester).