DIFFÉRENCE ENTRE DEUX HEURES DE FORMAT HH:MM:SS

Function iTempsEgalite(ByVal Temps1 As String, ByVal Temps2 As String) As Integer
    Dim hh1 As Integer, mm1 As Integer, ss1 As Integer
    Dim hh2 As Integer, mm2 As Integer, ss2 As Integer
    
    
    On Error GoTo ERROR_iTempsEgalite
    
    iTempsEgalite = 0
    
    If Len(Temps1) > 0 And Len(Temps2) > 0 Then
        ' Première durée :
        Call ExtraireHMStemps(Temps1, hh1, mm1, ss1)
        
        ' Seconde durée :
        Call ExtraireHMStemps(Temps2, hh2, mm2, ss2)
        
        If hh1 > hh2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf hh1 < hh2 Then
            Exit Function
        End If
        
        If mm1 > mm2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf mm1 < mm2 Then
            Exit Function
        End If
        
        If ss1 > ss2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf ss1 = ss2 Then
            iTempsEgalite = 1
        End If
    End If

ERROR_iTempsEgalite:
    Exit Function
End Function