Ecart heure en VB

Question

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?

Configuration: Windows 7 / Safari 532.5

kouki1000 · Answer

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 ;)

Polux31 · Answer

Bonjour,

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)

Ecart heure en VB

2 réponses

Discussions similaires

Newsletters