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