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.
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
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.