Discussion :

[vcapron]

Bonjour,

J'expose mon soucis:
- dans une feuille excel, j'ai 2 dates au format jj/mm/aaaa hh:mm:ss;
- Je calcul la différence des 2 valeurs pour connaitre la durée (tous fonctionne);
je convertis cette valeur en seconde en utilisant:

Code :

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

MsgBox Day(Cells(1, 1)) & "j " & Hour(Cells(1, 1)) & "h " & Minute(Cells(1, 1)) & "mn " & Second(Cells(1, 1)) & "s "

- Ca fonctionne si j'ai un duréé suprérieure à 24 heure, sinon la valeur jour est positionnée à 30 (?!);
Exemple:
d1=04/06/2008 12:10:08 d2=02/06/2008 08:30:00 d1-d2=51:40:08 Transformé en seconde=1j3h40mn8s ====>OK
d1=04/06/2008 12:10:08 d2=04/06/2008 10:35:26 d1-d2=1:34:42 Transformé en seconde=30j1h34mn42s ====>KO
Quelqu'un a t'il une solution de contournement de ce problème?

Cordialement.

[papimcha]

bonjour,

51:40:08 Transformé en seconde=1j3h40mn8s ====>OK

Ah bon? ca fait pas 2j3h40mn8s plutot ?

Sinon pour contourner le problème comme tu veux le faire, tu mettre des conditions (en ajoutant 1 jour lorsque c'est plus de 24h et en enlevant 30 lorsque c'est inférieur) mais je ne pense pas que cela soit la meilleure solution. (à moins que la méthode t'importe peu)
En attendant qu'une personne plus compétente t'aide.
Cordialement.

[mayekeul]

moi je serait toi, j'utiliserais une fonction super dans VBA

Code :

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

datediff("s",date1,Date2)

tu recevra la durée en secondes

[AlainTech]

La question n'étant pas d'afficher en secondes mais bien en jours, heures, minutes et secondes, j'ai fait quelques tests.
A la cellule A1, j'ai appliqué le format

Code :

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

jj\jhh\hmm\mss\s

et

Code :

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

MsgBox Cells(1, 1).Text

donne le bon résultat.

Mais...
Tout marche bien jusqu'à 31 jours.
Après, ça se gâte.
d1=4/06/2008 12:10:08 d2=3/05/2008 10:35:26 => d1-d2 donne 01j02h34m42s

Pour comprendre comment Excel gère les dates, il est toujours intéressant de faire tourner ce petit code

Code :

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

1
2
3
  MsgBox Cells(1, 1).Value
  MsgBox Cells(1, 1).Text
  MsgBox Cells(1, 1).Value2

La solution finale s'imposait donc d'elle-même:

Code :

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

MsgBox CStr(Int(Cells(1, 1).Value2)) & "j" & Format(Cells(1, 1), "hh\hmm\mss\s")