CONVERTION DE HH:MM EN SECONDE ET INVERSE
mediahouse
Messages postés
2
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
5 août 2005
-
5 août 2005 à 17:17
cs_ahmedahmed Messages postés 5 Date d'inscription vendredi 11 juin 2004 Statut Membre Dernière intervention 19 mai 2008 - 19 mai 2008 à 14:32
cs_ahmedahmed Messages postés 5 Date d'inscription vendredi 11 juin 2004 Statut Membre Dernière intervention 19 mai 2008 - 19 mai 2008 à 14:32
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/21860-convertion-de-hh-mm-en-seconde-et-inverse
https://codes-sources.commentcamarche.net/source/21860-convertion-de-hh-mm-en-seconde-et-inverse
19 mai 2008 à 14:32
'
Private Function Diff(ByVal H1 As String, ByVal H2 As String) As String
Dim he1 As Integer : Dim mn1 As Integer
Dim he2 As Integer : Dim mn2 As Integer
Dim DF As Integer
Dim s
he1 Mid(H1, 1, 2) : mn1 Mid(H1, 4, 2)
he2 Mid(H2, 1, 2) : mn2 Mid(H2, 4, 2)
'-diff en min----------
DF = ((he1 * 60) + mn1) - ((he2 * 60) + mn2)
AP2.Text = DF
s = Format((DF \ 60), "00") & Format((DF Mod 60), "00")
Return s
End Function
19 mai 2008 à 14:01
A+
18 oct. 2006 à 00:07
5 août 2005 à 17:17