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