Différence entière entre deux dates

Bonjour

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


Merci d'avance.

Code:

---

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

Merci beaucoup de cette explication.

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

Code:

---

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;

---