TROUVER L'HEURE À PARTIR D'UNE VALEUR (INTEGER)
cs_frop01
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
-
4 août 2004 à 19:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 4 août 2004 à 19:57
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 4 août 2004 à 19:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25164-trouver-l-heure-a-partir-d-une-valeur-integer
https://codes-sources.commentcamarche.net/source/25164-trouver-l-heure-a-partir-d-une-valeur-integer
4 août 2004 à 19:57
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
4 août 2004 à 19:19
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