afficher difference entre 2 Tdatetime sous forme jj/mm/a..a hh:mm:ss

Bonjour

Je me perds dans tout ce qui est conversion de date.
j arrive à afficher la duree (en jour) entre deux dates mais apres pour la passer au format jj/mm/aaaa hh:mm:ss : Impossible !

j ai bien cherché du coté de EncodeDateTime (http://www.delphibasics.co.uk/RTL.as...EncodeDateTime) mais je ne crois pas que cela soit la bonne piste.
Je precise que j ai besoin de ce mode de calcul de difference entre les dates car je souhaite calculer une duree moyenne à la fin d un traitement.
un peu d aide serait la bienvenue.
d avance merci

mon code

Code:

---

1 2 3 4 5 6 7

date1 := strtodatetime(Ed_date_1.Text); date2 := strtodatetime(Ed_date_2.Text);   diff := date2 - date1; Ed_diff_date.Text := FloatToStr(diff); diff := round(diff * 86400); ed_diff_datetime.Text := TimeToStr(diff / 24 / 3600);

---

ici TimeToStr(diff / 24 / 3600); ne correspond pas à mes attentes de conversion de Diff

Dans l'uinité DateUtils il y a plein de fonctions qui permettent de gérer les dates et heures. genre SecondesBetween qui permet de connaitre le nombre de secondes entre deux dates.

Un simple Format sur le résultat de Date2-Date1 ne fonctionnerait-il pas ?

Citation:

---

Envoyé par popo

Un simple Format sur le résultat de Date2-Date1 ne fonctionnerait-il pas ?

---

Le pb est que je me retrouve avec un resultat du type 1.57 et que là je ne sais pas comment le formater....

Un code que j'ai fait il y a pas mal de temps qui retourne formaté heures/minutes/secondes/millisecondes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

function FormatMS(MilliSecondes: Cardinal): string; var Hour, Min, Sec: Cardinal; begin Hour := MilliSecondes div 3600000; MilliSecondes := MilliSecondes mod 3600000; Min := MilliSecondes div 60000; MilliSecondes := MilliSecondes mod 60000; Sec := MilliSecondes div 1000; MilliSecondes := MilliSecondes mod 1000; Result := Format('%.2d:%.2d:%.2d:%.3d', [Hour, Min, Sec, MilliSecondes]); end;

---

En utilisation

Code:

---

1 2 3

MilliSecondes := MiliisecondesBetWeen(Date1, DAte2); Showmessage(FormatMS(Millisecondes));

---

Salut

Essayer d'appliquer un format de Date (jj/mm/aaaa hh:mm) sur une durée n'est pas approprié, car une durée n'est pas une date.

1,57 est la différence exprimée en jours entre tes deux dates (donc une durée).
1,57 => 1 jour 13 heures et 40 minutes.

Code:

---

1 2 3 4 5 6 7 8 9 10

function FormatDuree(D: Extended): string; var j, h, m: Integer; begin j := Trunc(D); h := Trunc(Frac(D) * 24); m := Trunc(Frac(Frac(D) * 24) * 60);   result := Format('%dj %dh %dmn', [j, h, m]); end;

---

PS: Y'a peut-être plus simple pour le calcul, mais le principe est là.

[edit] Te voilà avec deux exemples: celui de Rayek qui travaille avec des millisecondes (Cardinal), ou le mien avec une différence entre deux TDateTime (Double).

@+

Merci à vous