Ecart heure en VB
Evans
-
kouki1000 Messages postés 117 Statut Membre -
kouki1000 Messages postés 117 Statut Membre -
Bonsoir les amis
svp j'aimerai calculer l'écart de minutes qu'il ya entre 2 heures en VB 6.0. Je pensais que c'était avec la fonction "DateDiff" mais celle ne sert qu'à la différence entre dates (à moins que je ne me trompe).
Sur ma feuille j'ai 2 champs sur lesquels on saisit l'heure de début pour l'un et de la fin pour l'autre. La question, comment calculer l'écart de minutes qu'il ya entre ces deux heures?
svp j'aimerai calculer l'écart de minutes qu'il ya entre 2 heures en VB 6.0. Je pensais que c'était avec la fonction "DateDiff" mais celle ne sert qu'à la différence entre dates (à moins que je ne me trompe).
Sur ma feuille j'ai 2 champs sur lesquels on saisit l'heure de début pour l'un et de la fin pour l'autre. La question, comment calculer l'écart de minutes qu'il ya entre ces deux heures?
A voir également:
- Ecart heure en VB
- Changement d'heure - Guide
- Heure de connexion whatsapp qui ne changé pas - Accueil - WhatsApp
- 3654 seconde en heure, minute et seconde ✓ - Forum Programmation
- Sb7+ comment changer l'heure - Forum Accessoires & objets connectés
- Freebox n'affiche plus l'heure mais fonctionne - Forum Freebox
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)
