Temps écoulé en Heures/minutes/secondes
Résolu/Fermé
sormick
-
30 déc. 2016 à 13:32
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023 - 31 déc. 2016 à 09:54
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023 - 31 déc. 2016 à 09:54
A voir également:
- Temps écoulé en Heures/minutes/secondes
- Instagram erreur veuillez patienter quelques minutes avant de réessayer ✓ - Forum Instagram
- Vue satellite en temps réel gratuit ✓ - Forum Satellite
- Crontab toutes les 5 minutes ✓ - Forum Shell
- Convertir heures centièmes en heures minutes - Forum Bureautique
- Renommer plusieurs fichiers en même temps - Guide
2 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
30 déc. 2016 à 13:57
30 déc. 2016 à 13:57
Bonjour,
Pour commencer ... DateDiff("n" ..; retourne le nombre de MINUTES.
Pour avoir les secondes ... il faut utiliser "s"
Ensuite.. tu peux faire les calculs d'heures /Minutes / Secondes...
Pour commencer ... DateDiff("n" ..; retourne le nombre de MINUTES.
Pour avoir les secondes ... il faut utiliser "s"
Ensuite.. tu peux faire les calculs d'heures /Minutes / Secondes...
Sub toto()
Dim celVal As Date
Dim mnt As Date
mnt = Now()
celVal = CDate(Range("a1").Value)
Dif = DateDiff("s", celVal, mnt) ' diff en secondes
H = Int(Dif / 3600) ' nb Heures
M = Int((Dif Mod 3600) / 60) ' nb Minutes
S = (((Dif Mod 3600) / 60) Mod 60) ' Nb secondes
res = CDate(H & ":" & M & ":" & S)
Debug.Print "NOW : " & mnt & " cellule : " & celVal
Debug.Print "DIF (hh:mm:ss) : " & res
End Sub
Sormick
Messages postés
145
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 janvier 2023
31 déc. 2016 à 09:54
31 déc. 2016 à 09:54
Bonjour
Merci beaucoup pour votre soutien.
Ca fonctionne du tonerre!
Bonne année à toute l'équipe de CCM!
Merci beaucoup pour votre soutien.
Ca fonctionne du tonerre!
Bonne année à toute l'équipe de CCM!
30 déc. 2016 à 22:22
ou plus simplement