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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 990 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

Olilefou
Messages postés
29
Date d'inscription
mercredi 1 août 2001
Statut
Membre
Dernière intervention
9 décembre 2005
-
La meme chose en plus court et sans bugs :

Private Function Fomat_Heure(Temps As Long) As String
Fomat_Heure = Right("00" & ((Temps \ 3600) Mod 60), 2) & ":" & _
Right("00" & ((Temps \ 60) Mod 60), 2) & ":" & Right("00" & (Temps Mod 60), 2)
End Function

Cette fonction s'utilise comme ca :

TextSortie.Text = Fomat_Heure(val(TextEntree.Text))

Bye.
bubble44
Messages postés
200
Date d'inscription
lundi 10 mars 2003
Statut
Membre
Dernière intervention
3 août 2004
-
Ben alors ? on declare pu ses variables avec Option explicit ?

;-)

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.