Lone-wolf XLDnaute Barbatruc 28 Septembre 2018 #1 Bonjour à toutes et à tous D'après cet exemple: DebCom = 12:01:08 FinCom = 12: 01:48 Duree = (FinCom - DebCom) TextBox8 = Format(Duree, "mm:ss") Comment obtenir 00:40 si inférieur à 1 minute? Dernière édition: 28 Septembre 2018
Bonjour à toutes et à tous D'après cet exemple: DebCom = 12:01:08 FinCom = 12: 01:48 Duree = (FinCom - DebCom) TextBox8 = Format(Duree, "mm:ss") Comment obtenir 00:40 si inférieur à 1 minute?
Dranreb XLDnaute Barbatruc 28 Septembre 2018 #2 Bonjour. Apparemment pour que le 1er "mm" du format ne soit pas interprété comme mois on est obligé de prendre : VB: Mid$(Format(TimeSerial(12, 1, 48) - TimeSerial(12, 1, 8), "hh:mm:ss"), 4) Vote positif 0 Vote négatif
Bonjour. Apparemment pour que le 1er "mm" du format ne soit pas interprété comme mois on est obligé de prendre : VB: Mid$(Format(TimeSerial(12, 1, 48) - TimeSerial(12, 1, 8), "hh:mm:ss"), 4)
job75 XLDnaute Barbatruc 28 Septembre 2018 #3 Bonjour Lonewolf, Bernard, L'ennui avec "mm:ss" c'est qu'on ne sait plus s'il s'agit de "mm:ss" ou de "hh:mm". Avec ceci aucun problème : Code: DebCom = TimeValue("12:01:08") FinCom = TimeValue("12:01:48") TextBox8 = Format(FinCom - DebCom, "hh:mm:ss") A+ Vote positif 0 Vote négatif
Bonjour Lonewolf, Bernard, L'ennui avec "mm:ss" c'est qu'on ne sait plus s'il s'agit de "mm:ss" ou de "hh:mm". Avec ceci aucun problème : Code: DebCom = TimeValue("12:01:08") FinCom = TimeValue("12:01:48") TextBox8 = Format(FinCom - DebCom, "hh:mm:ss") A+
Lone-wolf XLDnaute Barbatruc 28 Septembre 2018 #4 Bonjour Dranreb Merci Shöne . C'est parfait. Edit : bonjour Gerard . En réalité c'est avec des textbox's. Et d'après l'exemple de Dranreb VB: 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 Et ça me donne bien 00:40 sec. Vote positif 0 Vote négatif
Bonjour Dranreb Merci Shöne . C'est parfait. Edit : bonjour Gerard . En réalité c'est avec des textbox's. Et d'après l'exemple de Dranreb VB: 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 Et ça me donne bien 00:40 sec.
job75 XLDnaute Barbatruc 28 Septembre 2018 #5 Re, Maintenant si l'on tient au format "mm:ss" il est bon de prévoir le cas des minutes >= 60 : Code: DebCom = TimeValue("12:01:08") FinCom = TimeValue("14:01:48") Duree = FinCom - DebCom TextBox8 = Format(Int(1440 * Duree), "00") & Format(Second(Duree), "\:00") A+ Vote positif 0 Vote négatif
Re, Maintenant si l'on tient au format "mm:ss" il est bon de prévoir le cas des minutes >= 60 : Code: DebCom = TimeValue("12:01:08") FinCom = TimeValue("14:01:48") Duree = FinCom - DebCom TextBox8 = Format(Int(1440 * Duree), "00") & Format(Second(Duree), "\:00") A+
Lone-wolf XLDnaute Barbatruc 28 Septembre 2018 #6 Re Gerard Merci pour ce cas de figure. Mais perso, si je passe 10 minutes au téléphone c'est déjà beaucoup. Vote positif 0 Vote négatif
Re Gerard Merci pour ce cas de figure. Mais perso, si je passe 10 minutes au téléphone c'est déjà beaucoup.