Mettre des secondes en heures (4 lignes)

Soyez le premier à donner votre avis sur cette source.

Vue 14 801 fois - Téléchargée 700 fois

Description

Transforme un Nombre de Seconde en Heure

Source / Exemple :


Dim Second_Temp As Byte
Dim Minute_Temp As Byte
Dim Heure_Temp As Long

Public Function SecondeEnHeure(ByVal Second As Long) As String
Heure_Temp = Int(Second / 3600)
Minute_Temp = Int((Second Mod 3600) / 60)
Second_Temp = Second Mod 3600 - Minute_Temp * 60
SecondeEnHeure = IIf(Heure_Temp < 10, Format(Heure_Temp, "0#"), LTrim(Str(Heure_Temp))) & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
End Function

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
oui mais ta source c'est du .Net, pas du vb6 lol

bon ok je sors rhooooo (:
Messages postés
11
Date d'inscription
jeudi 5 novembre 2009
Statut
Membre
Dernière intervention
9 juin 2012

Messages postés
21
Date d'inscription
samedi 15 février 2003
Statut
Membre
Dernière intervention
2 septembre 2008

Voici exactement la même fonction mais un peu plus propre.
J'ai testé, elle retourne strictement la même chaîne.

Public Function SecondeEnHeure(ByVal Second As Long) As String
Heure_Temp = Int(Second / 3600)
Minute_Temp = Int((Second Mod 3600) / 60)
Second_Temp = Second Mod 60
SecondeEnHeure = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
End Function
Messages postés
3
Date d'inscription
mardi 18 février 2003
Statut
Membre
Dernière intervention
17 juillet 2003

Merci,
C'est simple, pratique et ca depanne

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.