|
Astuces
- Date/Heure - Obtenir
le nombre jour entre deux dates en Delphi |
Ajouter un composant TButton.
procedure
TForm1.Button1Click(Sender: TObject);
var date1,date2:TDateTime;
i:Integer;
begin
date1:=EncodeDate(2003,01,02); //Date
2003/01/02
date2:=EncodeDate(2003,01,01); //Date
2003/01/01
i:=Trunc(date1)-Trunc(date2);
ShowMessage(IntToStr(i)); //Affiche
le nombre de jours entre deux dates
end; |
|
Pour les versions
de Delphi supérieures à la version 5, il existe une unité
DateUtils qui per met de manipuler des dates.
Ajouter un composant TButton.
Uses
DateUtils;
procedure TForm1.Button1Click(Sender:
TObject);
var date1,date2:TDateTime;
begin
date1:=EncodeDate(2003,01,02); //Date
2003/01/02
date2:=EncodeDate(2003,01,01); //Date
2003/01/01
ShowMessage(IntToStr(DaysBetween(date1,date2))); //Affiche
le nombre de jours entre deux dates
end;
|
|
|