Calculer la différence entre deux dates

procedure TForm1.Button1Click(Sender: TObject);
var
datum1,
datum2 :TDateTime;
d if ferenz:integer;

begin
datum1:=EncodeDate(2000,06,15); //Date 2000/06/15
datum2:=EncodeDate(2000,01,01); //Date 2000/01/01
d if ferenz:=trunc(datum1-datum2);
Label1.caption:=inttostr(d if ferenz);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour29/11/2001
VisualisationVu 1859 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur