Mid$(Format(TimeSerial(12, 1, 48) - TimeSerial(12, 1, 8), "hh:mm:ss"), 4)
DebCom = TimeValue("12:01:08")
FinCom = TimeValue("12:01:48")
TextBox8 = Format(FinCom - DebCom, "hh:mm:ss")
Private Sub Image1_Click() 'Fin communication
TextBox7 = Format(Time, "hh:mm:ss")
DebCom = TimeValue(TextBox6)
FinCom = TimeValue(TextBox7)
Duree = Format(FinCom - DebCom, "hh:mm:ss")
TextBox8 = Mid$(Duree, 4)
End Sub
DebCom = TimeValue("12:01:08")
FinCom = TimeValue("14:01:48")
Duree = FinCom - DebCom
TextBox8 = Format(Int(1440 * Duree), "00") & Format(Second(Duree), "\:00")