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

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

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)