Différence entre deux heures de format hh:mm:ss

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 893 fois - Téléchargée 71 fois


Contenu du snippet

Renvoie une valeur si le temps 1 est inferieur (0), égale (1) ou supérieur (2) au temps 2

Source / Exemple :


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

Conclusion :


Utile la fonction ExtraireHMStemps() disponible dans la rubrique Date & Heure

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Renfield

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.