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
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.