Compteur de temps

bonjour tout le monde, voila mon probleme :

j'aimerai faire un prog qui incrémente le temps ttes les secondes ... facile quand on n'a que des heures, mais quand on s'attaque aux jours, mois et années, ca devient bp plus complexe :/

en gros jai par exemple la date de départ "01/01/2000 12:00:00" et je veux que ca maffiche ttes les secondes les années, mois, jours, heures, minutes et secondes écoulées. ce qui donnerait au final par exemple : 5 ans 5 mois 28 jours 6 heures 45 minutes 23 secondes

si vous avez une idée de comment faire ... :)

il te suffit d'utiliser un timer qui incrémente un variable toute les seconddes  et à chaque evenement  _timer il faut executer une serie de test pour l'heure...
Et pour la date utiliser la fonction toute cuite de VB "DateAdd"

Utilise la fonction dateAdd pour rajouter des secondes, ainsi, tu n'a pas à t'ennuyer à faire des calculs manuels, la fonction le fait tout seul.

Ensuite, pour afficher le tout, je peux te conseiller d'utiliser la fonction dateDiff pour te renvoyer les secondes, les minutes, les heures, etc. entre les 2 dates, et ainsi, pouvoir afficher le temps entre les deux dates au format que tu veux.

pour laffichage c'est pas logique ce que tu dis : si jutilise la fonction datediff jaurai la meme difference a chaque fois mais avec un format different

Ben oui justement, comme ca tu récupère : les jours, les heures, les minutes puis les secondes, et tu n'as qu'à les afficher.

Maintenant, si tu préfère faire les opérations manuellement, tu peux le faire, mais ca sera plus compliqué à mettre en oeuvre.

La fonction DateDiff te renvoie la différence entre 2 dates dans le format que tu veux, donc si tu extrait les jours, et ensuite, tu réapplique la fonction à la date moins les jours obtenus, tu obtiendras les heures, etc pour le reste de l'intervalle.

je vais essayer

tu peux me faire un petit exemple ? c'est assez brouillé dans ma tete :/

Ca donne cà :

Dim sDate1 As String
Dim sDate2 As String

Dim sJour As String
Dim sHeure As String
Dim sMinute As String
Dim sSeconde As String

sDate1 = "12/02/2005 11:10:15"
sDate2 = "15/02/2005 15:20:30"

sJour = DateDiff("d", "12/02/2005 11:10:15", "15/02/2005 15:00:30")
sDate2 = DateAdd("d", -sJour, sDate2)
sHeure = DateDiff("h", sDate1, sDate2)
sDate2 = DateAdd("h", -sHeure, sDate2)
sMinute = DateDiff("n", sDate1, sDate2)
sDate2 = DateAdd("n", -sMinute, sDate2)
sSeconde = DateDiff("s", sDate1, sDate2)


MsgBox "Différence : " & sJour & " Jours " & sHeure & " Heures " & sMinute & " Minutes et " & sSeconde & " Secondes."

Je n'ai pas autre chose a te dire que : MERCI

Bonne soirée !

RTP

On peu utiliser la commande Format aussi....