Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 173 fois - Téléchargée 31 fois
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
24 juil. 2004 à 23:45
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.
23 juil. 2004 à 18:29
;-)
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.