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.
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.
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
- Trouver l'heure à partir d'une valeur (integer)
- Fonction pour 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
Commentaires
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
65Function 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
1au 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.