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

Du même auteur (yannlevrai)