Calculer en heure minute seconde un temps jusqu'a une date et heure donnée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 38 911 fois - Téléchargée 27 fois

Contenu du snippet

D'apres un format date et heure précis jj/mm/aa hh:mm:ss

il calcul d'apres l'heure de la machine le temps jusqu'a cette date

il utilise des labels et textbox d'un form vb classique

Source / Exemple :


Sub queljour()
    Dim dateinter, date1 As Date
    Dim dateinter2 As Date
    Dim jours11 As Integer
    Dim jours112 As Integer
    On Error GoTo errorx
            date1 = CDate(Text1.Text)
            dateinter = date1 - (Date + Time)
            jours11 = date1 - (Date + Time)
            heuresX = Format(Hour(dateinter) + (jours11 * 24))
            minx = Format(Minute(dateinter), "00")
            secx = Format(Second(dateinter), "00")
            
          heuresX2 = heuresX / 2
          minx2 = minx / 2
          secx2 = secx / 2
          
            If heuresX2 <> CInt(heuresX2) Then
                heuresX2 = heuresX2 - 0.5
                minx2 = minx2 + 30
            End If
            
            If minx2 > 60 Then
                heuresX2 = heuresX2 + 1
                minx2 = minx2 - 60
            End If
            
            If minx2 <> CInt(minx2) Then
                minx2 = minx2 - 0.5
                secx2 = secx2 + 30
            End If
            
            If secx2 > 60 Then
                minx2 = minx2 + 1
                secx2 = secx2 - 60
            End If
      
        
           

Label2.Caption = (heuresX & " Heures " & minx & " min " & secx & " sec. ")

Label3.Caption = heuresX2 & " Heures " & minx2 & " min " & secx2 & " sec. "

Exit Sub
errorx:
i = MsgBox("Mauvais format pour la date", vbCritical, "..TA..")

End Sub

Conclusion :


Voila une petite production sans prétention, moche et facile.
Mais si ca peux aider quelqu'un et encourager à développer "pour de rire".
Elle existe surement déjà, s'il y a mieux sur le site n'hésitez pas a effacer mon poste...

j'aime pas trop passer pour un nul meme si c'est le cas ^^

A voir également

Ajouter un commentaire

Commentaire

cs_schtroumf
Messages postés
59
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
22 juillet 2008

Bon code :) (tu as juste oublié de dire que dans label3 on retrouve la différence de temps divisée par 2.

Je donne juste un autre exemple de calcul de différence de temps (que j'avais fait ya quelques temps) et qui est un tout petit peu plus rapide en exécution (0,093ms contre 0,1ms testé en fesant un benchmark sur le code direct dans vb) mais surtout dont le traitement n'est pas du tout le même.

Private Sub diff_temps()
Dim madate As Date
madate = CDate(Text1.Text)
diff = DateDiff("s", Now, madate) 'renvoi la différence de temps en secondes
jours = CInt(diff / 86400)
heure = CInt((diff Mod 86400) / 3600)
minutes = CInt(((diff Mod 86400) Mod 3600) / 60)
secondes = CInt((((diff Mod 86400) Mod 3600) Mod 60))
Label1 = jours & " jours " & heure & " heures " & minutes & " minutes " & secondes & " secondes"
End Sub

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.