Fonction pour trouver l'heure à partir d'une valeur (integer)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 092 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
- Fonction pour trouver l'heure à partir d'une valeur (integer)
- Trouver l'heure à partir d'une valeur (integer) - Codes sources - Visual Basic / VB.NET (Date & Heure)
- échec de la conversion de la date et/ou de l'heure à partir d'une chaîne de caractères. - Guide
- Trouver une date a partir de son numero et vice versa - Codes sources - C / C++ / C++.NET (Divers)
- PHP : La boucle for() pour trouver l'heure de départ de mktime() - CodeS SourceS - Guide
- Visual Basic / VB.NET : Trouver l'heure tu (ou gmt) quand on ne connait que l'heure locale. - CodeS - Guide
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.
;-)
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.