ADDITION & SOUSTRACTION D'HEURE SUR UNE BASE DE 24H

Dim Second_Temp As Integer     'Stock temporairement la valeur des Secondes
Dim Minute_Temp As Integer     'Stock temporairement la valeur des Minutes
Dim Heure_Temp As Integer      'Stock temporairement la valeur des Heures

'Operation Doit être positif pour un addittion des heures et negatif pour la soustration.
'Time1 et Time2 sont de la forme "##:##:##"
'Operation doit être différent de 0 sinon Time_operation = Time1
'Le retour Time_Operation() est de la forme "##:##:##"
Private Function Time_operation(ByRef Time1 As String, ByRef Time2 As String, ByRef Operation As Integer)
Operation = Sgn(Operation)
Second_Temp = Val(Right(Time1, 2)) + Val(Right(Time2, 2)) * Operation
Minute_Temp = Val(Mid(Time1, 4, 2)) + Val(Mid(Time2, 4, 2)) * Operation
Heure_Temp = Val(Left(Time1, 2)) + Val(Left(Time2, 2)) * Operation

If Second_Temp > 59 Or Second_Temp < 0 Then
  Second_Temp = Second_Temp - 60 * Operation
  Minute_Temp = Minute_Temp + 1 * Operation
End If
If Minute_Temp > 59 Or Minute_Temp < 0 Then
  Minute_Temp = Minute_Temp - 60 * Operation
  Heure_Temp = Heure_Temp + 1 * Operation
End If
If Heure_Temp > 23 Or Heure_Temp < 0 Then Heure_Temp = Heure_Temp - 24 * Operation ' enlever cette ligne pour suppr. la base 24H

Time_operation = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
End Function
 

Télécharger le zip