Uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var Ecart : TDateTime; begin Ecart := Now - Yesterday; ShowMessage('Ecart en réel : ' + FloatToStr(Ecart)); ShowMessage('Au format Date seule : ' + DateToStr(Ecart)); ShowMessage('En heure seule : ' + TimeToStr(Ecart)); ShowMessage('En entier : ' + IntToStr(Trunc(Ecart))); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question