Discussion :

[pitipilot]

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 ?

[pc75]

Bonjour,

Regarde la fonction DateDiff()

[pitipilot]

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

[Gado2600]

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,

[pitipilot]

Bonjour Gado2600 ,

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pitipilot]

Super merci ça fonctionne ! Bonne journée !

[mercatog]

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

[Invité]

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

[Gado2600]

Et le marquage en "Résolu" ?