cs_joflo
Messages postés156Date d'inscriptionmardi 9 juillet 2002StatutMembreDernière intervention23 septembre 2011
-
11 mai 2003 à 12:42
Arsena
Messages postés190Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention27 septembre 2005
-
11 mai 2003 à 14:35
Arsena
Messages postés190Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention27 septembre 2005 11 mai 2003 à 14:35
Essaye ça
Private Sub Form_Load()
Dim Deb As String, Arr As String, Plage As String, Ecar As Date
Form1.AutoRedraw = True
Deb = "08:30:00"
Arr = "02:45:00"
Ecar = CDate(Deb) + CDate(Arr)
Plage = Deb & " à " & Str(Ecar)
Print Plage
End Sub