Soustraction de date en vba et format de sortie

Bonjour,

J'ai un problème avec des dates, prenons par exemple deux dates :

12/04/2014 18:51 qu'on appellera DateDeb et
15/04/2014 14:15 qu'on appellera DateFin.

J'aimerai pouvoir calculer l'intervalle de temps entre ces deux dates et avoir le résultat sous cette forme :
"67:15:00". Hors actuellement, lorsque je fais la soustraction directe de ces dates, j'ai une valeur du genre : "19:24:00" donc en gros il ne cumule pas les heures et redémarre à 0 quand les heures sont > à 24.

Y a-t-il une manière de faire un peu à la manière des cellules excel de forcer le format Date à utiliser le format [hh]:mm:ss ?

Bonjour,

Regarde la fonction DateDiff()

Bonjour pc75 :),

Eh bien au départ j'utilisais DateDiff() mais le problème c'est que celle ci retourne un type entier et non une date :S.

Cf : http://msdn.microsoft.com/fr-fr/libr...=vs.90%29.aspx

Bonjour,
Je n'ai pas tout lu mais tu as l'option Format ou alors, tu convertis ton code de façon à obtenir ton résultat en format texte.
Cordialement,

Bonjour Gado2600 :),

En fait j'étais partie là dessus : Cstr(Format(Duree, "[hh]:mm:ss")) mais impossible à faire marcher :S

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() d = MyDateDiff("12/04/2014 18:51", "15/04/2014 14:15") End Sub Function MyDateDiff(Deb, Fin) d = DateDiff("s", Deb, Fin) s = d Mod 60 h = (d - s) / 60 m = h Mod 60 h = (h - m) / 60 MyDateDiff = h & ":" & Format(m, "00") & ":" & Format(s, "00") End Function

---

Super merci ça fonctionne ! :D Bonne journée !

Une simple soustraction des 2 cellules accompagnée d'un format personnalisée de type [hh]:mm:ss

Tu garderas de ce fait un résultat numérique que tu pourra exploiter

c'est vrai mais bon! il n'avait pas l'air de trouver ça réponse!

Et le marquage en "Résolu" ?