Discussion :

[azouzmenai24]

Bonjour

Je cherche dans Delphi 7 comment obtenir la différence entre deux dates en entier.


Merci d'avance.

[ALWEBER]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses
  SysUtils, Math;
var
  D1, D2 : TDateTime ;
begin
  D1 := StrToDateTime('01/01/2015 10:10' ) ;
  D2 := Now() ;
  Writeln (Floor(d2)-Floor(d1) ) ;
  readln ;
end.

Floor tronque la partie décimale qui représente les heures, minutes, secondes,...

[azouzmenai24]

Merci beaucoup de cette explication.

[Papy214]

C'est bien aussi d'utiliser les fonctions nativement par Delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses DateUtils;
 
procedure TForm1.DifferencEntreDeuxDates;
var
  Date1, Date2: TDateTime;
begin
  Date1 := Now;
  Date2 := DateUtils.IncDay(Date1, 5);
  ShowMessage(IntToStr(DateUtils.DaysBetween(Date1, Date2)));
end;