Discussion :

[Jayceblaster]

Bonjour;

J'ai deux TDateTime et je souhaiterai calculer le temps écoulé entre ces deux date en nombre de jour:
j'ai:

Code :

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

1
2
3
 
    date1, date2, date3 : TDateTime;
    date3 := date2-date1;

si j'ai date1= 14/02/2007
et date2= 15/02/2007
je m'attend à avoir: date3 = 1
mais j'ai: date3=11/05/1899 -> super le retour dans le passé

Comment dois je m'y prendre

[Rayek]

Dans l'unité DateUtils tu as des fonctions pour le traitement des dates/heures et une t'interessera DaysBetween

[thewho]

Bonjour,

Erreur classique, Ô combien !

Une différence de date n'est pas une date, mais une durée.

[Eric Boisvert]

+1 thewho

Losrqu'on parle d'une durée, d'une distance où même d'une température,
on a toujours une unité qui vient avec...(Minutes, seconde, heure, jours)

Ce qu'il faut savoir, une TDatetime dans un PC est représenté par
un chiffre d'on l'entier représente les jours depuis une année de référence,
et la partie décimale représente les heures,minutes,seconde,miliseconde... autrement dit... des fractions de jours depuis cette même date.

Donc lorsqu'on soustrait 2 dates, on se retrouve avec une durée.
La partie entière de cette soustraction représente des jours
et la partie décimale représente encore des fractions de jours.

Si on veut simplement savoir le nombre de jour entre 2 date il suffit
donc de les soustraires, et extraire la partie entière du résultat.
(Attention de ne pas arrondire car 1.5 ne veux pas dire 2 jours)

Code :

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

1
2
3
4
5
 
date1, date2: TDateTime;//Date
DiffDay:integer; //date3 c'est une durée!
 
DiffDay:=trunc(Date2-Date1) //donne le nombre de jours entre les 2 dates.

Dans des cas de traitement long... ou simplement pour afficher
ca fait combien de temps une application fonctionne...
voici une petite fonction qui retourne la meilleur représentation possible
pour nous les Humains d'une durée de temps.

Je m'en sert pour toute sorte de chose...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
//==============================================================================
//==  Helper function to display elipsed time correctly for humain. 
//==============================================================================
function TimePassToStr(ElipsedTime: extended): string;
resourcestring
  strMinSize = '0 second';
  strSec = 'ss';
  strMin = 'nn:ss';
  strHrs = 'hh:nn:ss';
  strSecUnit=' sec.';
  strMinUnit=' min.';
  strHrsUnit=' hrs';
  strDayUnit= ' Day(s) ';
const
  cstIntFmt='0';
  cstDemiSec=(1/(60*60*24))/2;
  cstOneSec = (1/(60*60*24))-cstDemiSec;
  cstOneMin = (1/(60*24))-cstDemiSec;
  cstOneHour = (1/24)-cstDemiSec;
  cstOneday = (1)-cstDemiSec;
begin
  Result := strMinSize;
  if (ElipsedTime <= 0) then
    Exit;
  if (ElipsedTime < cstOneMin) then
  begin
    //Plus petit qu'une minutes, affiche des secondes
    Result := FormatDateTime(strSec,ElipsedTime)+strSecUnit;
    Exit;
  end;
  if (ElipsedTime < cstOneHour) then
  begin
    //Plus petit qu'une Heure, affiche des Minutes + secondes
    Result := FormatDateTime(strMin,ElipsedTime)+strMinUnit;
    Exit;
  end;
  if (ElipsedTime < cstOneday) then
  begin
    //Plus petit qu'une Journée, affiche des Heures+Minutes + secondes
    Result := FormatDateTime(strHrs,ElipsedTime)+strHrsUnit;
    Exit;
  end;
  //        Nbr de jour + Heures+Minutes + secondes
  Result := IntToStr(trunc(ElipsedTime))+strDayUnit+FormatDateTime(strHrs,ElipsedTime);
end;

Pour faire un test rapide de cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfrmMain.Button1Click(Sender: TObject);
var
    Start:TDateTime;
    Stop:TDateTime;
    Diff:extended;
begin
    Start:=Now();
    sleep(5000);
    Stop:=Now();
    Diff:=Stop-Start;
    Button1.Caption:=TimePassToStr(Diff);
end;

Voilà j'espère que tout est conforme.

[LadyWasky]

Belle explication Eric, chapeau

[OutOfRange]

Salut
Pour compléter les réponses de thewho et Eric Boisvert, je dirais que pour calculer le nombre de jours entre 2 dates, je ferais

Code :

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

1
2
3
4
5
6
var
  date1, date2: TDateTime;
  diffnbjours: integer;
begin
  diffnbjours :=trunc(date2-date1);
end;

Le trunc sert à éliminer la partie décimale pour ne garder que la partie entière (donc le nombre de jours), sans quoi tu aurais une erreur à la compile de types incompatibles, la différence entre 2 TDateTime étant un extended...

[Rayek]

La même chose qu'Eric mais en plus cours

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TfrmMain.Button1Click(Sender: TObject);
var
    Start:TDateTime;
    Stop:TDateTime;
    iDays,iHours,iMinutes,iSecondes : integer;
begin
    Start:=Now();
    sleep(5000);
    Stop:=Now();
    iDays := DaysBetween(Start,Stop) ;
    iHours := HoursBetWeen(Start,Stop) - (iDays * 24);
    iMinutes := MinutesBetWeen(Start,Stop) - (iDays* 24 * 60) - (iHours * 60);
    iSecondes := SecondesBetween(Start,Stop) - (iDays * 24 * 3600) - (iHours * 3600) - (iMinutes * 60);
    Button1.Caption:= Format('%2d Jours %2dH %2dMn %2ds',[iDays, iHours,iMinutes,iSecondes]);
end;

Sauf erreur de ma part avec le Format

[edit] oups grosse correction ^^[/edit]

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
var
  date1, date2: TDateTime;
 d:single;
  diffnbjours: integer;
begin
  d :=date2-date1;
  diffnbjours :=trunc(d);
  if diffnbjours>d then diffnbjours:=diffnbjours-1;
end;

sauf erreur

[Morfus]

Utilise la fonction DaysBetween qui se trouve dans l'unité DateUtils