A voir également:
- Ecart heure en VB
- Vb - Télécharger - Langages
- Changement d'heure - Guide
- Cdg heure d'arrivée a destination shein ✓ - Forum Consommation & Internet
- Heure de connexion whatsapp qui ne changé pas - Accueil - WhatsApp
- Colis shein bloqué CDG - Forum Consommation & Internet
2 réponses
1 heure = 60 minutes
(Heure 2 - Heure 1) * 60 ; en sachant que Heure 2 est plus grande que Heure 1
Essaie ca et dis moi si ca marche ;)
(Heure 2 - Heure 1) * 60 ; en sachant que Heure 2 est plus grande que Heure 1
Essaie ca et dis moi si ca marche ;)
Bonjour,
Une petite fonction qui retourne l'écart en "hh:mm:ss" entre 2 heures, au format texte:
Voilà comment s'en servir
;o)
Une petite fonction qui retourne l'écart en "hh:mm:ss" entre 2 heures, au format texte:
Public Function EcartHeure(Heure1 As Range, Heure2 As Range)
Dim Hr As Long
Dim Min As Long
Dim Sec As Long
Hr = DateDiff("h", Heure1.Value, Heure2.Value)
Min = DateDiff("n", Heure1.Value, Heure2.Value) Mod 60
Sec = DateDiff("s", Heure1.Value, Heure2.Value) Mod 60
EcartHeure = Format(Hr, "00") & ":" & _
Format(Min, "00") & ":" & _
Format(Sec, "00")
End Function
Voilà comment s'en servir
Sub test()
Dim H1 As Range
Dim H2 As Range
Set H1 = Worksheets(1).Range("A1")
Set H2 = Worksheets(1).Range("B1")
MsgBox EcartHeure(H1, H2)
End Sub
;o)