Discussion :

[sp2308]

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 :

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

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

[Rayek]

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.

[popo]

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

[sp2308]

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....

[Rayek]

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

Code :

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

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 :

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

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

[Cl@udius]

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 :

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

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).

@+

[sp2308]

Merci à vous