Trouver l'heure à partir d'une valeur (integer)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 774 fois - Téléchargée 34 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 de coller ce bout de code dans la partie "Modue" puis, à partir de n'importe quel formulaire appeler la fonction "TimeFormat(temps)". Temps étant la valaur integer à convertir au format Heure.

Source / Exemple :


Function TimeFormat(ByVal Temps As Integer) As String
Dim hh, mn, ss As Integer
hh = Temps / 3600
mm = (hh - Int(hh)) * 60 
ss = (mm - Int(mm)) * 60
Conversion = Int(hh) & "H" & Int(mm) & "mn" & ss & "s"
End Function

Conclusion :


Une autre fonction GetSec inverse de la fonction TimeFormat sera mise dans le site pour passer d'une date au format "hh:mm:ss" à la valeur en terme de secondes.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
Attention, tes variables sont mal nommées, et ni hh, ni mn ne sont des Integer (ce sont des Variant) voilà pourquoi tu as du mettre des Int( ) partout....


Function TimeFormat(ByVal Temps As Integer) As String
Dim hh As Integer, mn As Integer, ss As Integer

ss = Temps Mod 60
mn = Temps \ 60
hh = mn \ 60
mn = mn Mod 60

TimeFormat = hh & "H" & mn & "mn" & ss & "s"
End Function
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1
ya une faute dans la dernière ligne

au lieu de

Conversion = Int(hh) & "H" & Int(mm) & "mn" & ss & "s"
End Function

il faut :

TimeFormat= Int(hh) & "H" & Int(mm) & "mn" & ss & "s"
End Function

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.