Extraction d'information sur une heure hh:mm:ss


Commenter

Contenu du snippet

Extrait les heures, minutes et secondes d'une chaine de caractères qui comprend un temps de format hh:mm:ss

Source / Exemple : 


Sub ExtraireHMStemps(ByVal chaine As String, hh As Integer, mm As Integer, ss As Integer)
    Dim pos As Integer, leTemps As String
    
    
    On Error GoTo ERROR_ExtraireHMStemps
    
    ' Initialisation :
    hh = 0
    mm = 0
    ss = 0
    leTemps = chaine
    
    pos = InStr(leTemps, c2POINTS)
    If pos Then
        hh = Val(Right(sGetLeftChamp(leTemps, c2POINTS), 2))
        leTemps = sGetRightChamp(leTemps, c2POINTS)
        
        pos = InStr(leTemps, c2POINTS)
        If pos Then
            mm = Val(Right(sGetLeftChamp(leTemps, c2POINTS), 2))
            ss = Val(Left(sGetRightChamp(leTemps, c2POINTS), 2))
        Else
            mm = hh
            hh = 0
            ss = Val(Left(leTemps, 2))
        End If
    Else
        ss = Val(leTemps)
    End If

ERROR_ExtraireHMStemps:
    Exit Sub
End Sub

Conclusion :


Cette fonction utilise d'autres fonctions :
sGetLeftChamp() et sGetRightChamp()
disponibles dans la rubrique Texte

A voir également

S'inscrire maintenant

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.

Du même auteur (blq)