1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Convertion de hh:mm en seconde et inverse

Convertion de hh:mm en seconde et inverse

0/5 (4 avis)

Snippet vu 9 482 fois - Téléchargée 32 fois

Commenter

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
19 mai 2008 à 14:32
'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
19 mai 2008 à 14:01
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
18 oct. 2006 à 00:07
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
5 août 2005 à 17:17
ba j'espere qu'il sera un bon programme
S'inscrire maintenant

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.

Du même auteur (michelsto)