CALCULER EN HEURE MINUTE SECONDE UN TEMPS JUSQU'A UNE DATE ET HEURE DONNÉE
cs_schtroumf
Messages postés
59
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
22 juillet 2008
-
16 mai 2006 à 21:12
cs_schtroumf Messages postés 59 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 22 juillet 2008 - 16 mai 2006 à 21:12
cs_schtroumf Messages postés 59 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 22 juillet 2008 - 16 mai 2006 à 21:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37626-calculer-en-heure-minute-seconde-un-temps-jusqu-a-une-date-et-heure-donnee
https://codes-sources.commentcamarche.net/source/37626-calculer-en-heure-minute-seconde-un-temps-jusqu-a-une-date-et-heure-donnee
16 mai 2006 à 21:12
Je donne juste un autre exemple de calcul de différence de temps (que j'avais fait ya quelques temps) et qui est un tout petit peu plus rapide en exécution (0,093ms contre 0,1ms testé en fesant un benchmark sur le code direct dans vb) mais surtout dont le traitement n'est pas du tout le même.
Private Sub diff_temps()
Dim madate As Date
madate = CDate(Text1.Text)
diff = DateDiff("s", Now, madate) 'renvoi la différence de temps en secondes
jours = CInt(diff / 86400)
heure = CInt((diff Mod 86400) / 3600)
minutes = CInt(((diff Mod 86400) Mod 3600) / 60)
secondes = CInt((((diff Mod 86400) Mod 3600) Mod 60))
Label1 = jours & " jours " & heure & " heures " & minutes & " minutes " & secondes & " secondes"
End Sub