Fonction pour trouver l'heure à partir d'une valeur (integer)

Commenter

Contenu du snippet

J'ai conçu ce code pour permettre de passer d'une valeur integer (par exemple : la valeur de mon timer) au format horaire c'est a dire "heure:min:sec". La fonction dénombe les heures puis les minutes et ensuite les secondes. Il vous suffit juste de mettre une textbox et rajouter une ligne de code "me.textbox.caption= heure ":" & minut & ":" &sec à la fin de la fonction. Voilà...

Source / Exemple : 


Private Sub Fomat_Heure()
Dim val As Integer

val = Temps

If val > 3600 Then
    a = val Mod 60
    b = (val - a) / 3600
    heure = Round(b, 0)
    If Len(Trim(Str(heure))) = 1 Then
        minut = "0" & minut
    End If
    c = (b - (Round(b, 0))) * 60 + a / 60
    c = c * 60
    d = c Mod 60
    e = (c - a) / 60
    minut = Round(e, 0)
    If Len(Trim(Str(minut))) = 1 Then
        minut = "0" & minut
    End If
    f = (e - (Round(e, 0))) * 60 + d / 60
    f = f * 60
    sec = f
    If Len(Trim(Str(sec))) = 1 Then
        sec = "0" & sec
    End If

Else
    If val > 60 And val < 3600 Then
        heure = "00"
        a = val Mod 60
        b = (val - a) / 60
        minut = Round(b, 0)
        If Len(Trim(Str(minut))) = 1 Then
            minut = "0" & minut
        End If
        c = (b - (Round(b, 0))) * 60 + a / 60
        c = c * 60
        sec = c
        If Len(Trim(Str(sec))) = 1 Then
            sec = "0" & sec
        End If
        
    Else
        If val < 60 Then
            heure = "00"
            minut = "00"
            sec = val
            If Len(Trim(Str(sec))) = 1 Then
                sec = "0" & sec
            End If
        End If

    End If
    
End If

End Sub

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.