1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Trouver l'heure à partir d'une valeur (integer)

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

0/5 (2 avis)

Snippet vu 3 976 fois - Téléchargée 36 fois

Commenter

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
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
4 août 2004 à 19:57
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
cs_frop01 Messages postés 1352 Date d'inscription lundi 27 octobre 2003 Statut Membre Dernière intervention 19 novembre 2008 2
4 août 2004 à 19:19
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
S'inscrire maintenant

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.

Du même auteur (gaddoc)