CONVERTION DE HH:MM EN SECONDE ET INVERSE

    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