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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 950 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

blq
Messages postés
98
Date d'inscription
vendredi 22 octobre 1999
Statut
Membre
Dernière intervention
13 juin 2016
1 -
Je vous l'accorde c'est un peu nul... J'ai du poster le code, un soir tard et fatigué ! Je met à jour le tout
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
Pas utilisable, il manque une fonction...

place la dans CE code-ci, on ne va pas faire un jeu de piste, non !

sera supprimé sans cela.

(en passant, un DateDiff et quelques fonctions du genre feraient tout aussi bien le boulot)

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.