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

Commenter

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

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 (yannlevrai)