Convertion de hh:mm en seconde et inverse

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 978 fois - Téléchargée 30 fois

Contenu du snippet

Permet de convertir de HH:MM en seconde et l'inverse et calcul de différence de minute entre deux heure . Façile pour faire des comptage horaire.

Source / Exemple :


Public Function MinuteToHeureMinute(ByVal pMinutes As Integer) As String
        ' Formatage de MMMM (un total de minutes) en HH:MM (séparation heure et minute)
        Dim Heure, Minute As Integer
        Dim signe As String = IIf(pMinutes < 0, "-", "+")

        pMinutes = Abs(pMinutes)
        Heure = Int(pMinutes / 60)
        Minute = pMinutes Mod 60

        Return signe + Format(Heure, "00") + ":" + Format(Minute, "00")

    End Function

    Public Function HeureMinuteToMinute(ByVal pHeureMinute As String) As Integer
        ' On calcul le nombre de minute dans une heure de style HHMM
        Dim Minute As Integer
        Minute = Int(pHeureMinute.Substring(2, 2)) + (Int(pHeureMinute.Substring(0, 2)) * 60)
        Return Minute
    End Function

    Public Function DifferenceMinute(ByVal pHeureMinute1 As String, ByVal pHeureMinute2 As String) As Long
        ' On calcul la différence de minute entre deux heure de format HHMM
        Dim Minute As Long
        Minute = HeureMinuteToMinute(pHeureMinute1) - HeureMinuteToMinute(pHeureMinute2)
        Return Minute
    End Function

A voir également

Ajouter un commentaire

Commentaires

cs_ahmedahmed
Messages postés
5
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
19 mai 2008
-
'ma fonction
'
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
cs_ahmedahmed
Messages postés
5
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
19 mai 2008
-
je ne sais pas a quoi sert abs et elle marce pas avec vb.net
A+
cs_djimson
Messages postés
53
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
23 mai 2017
-
Ben il semble être un bon programme mais je vais l'essayé et on verra. Merci
mediahouse
Messages postés
2
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
5 août 2005
-
ba j'espere qu'il sera un bon programme

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.