Delphi/Lazarus: Extraire le Jour, le Mois et l'Année du Format DateTime

Delphi ainsi que Lazarus proposent une fonction pour ce faire. La fonction s'appelle DecodeDate et elle peut être utilisée de la manière suivante:

var
  ADate: TDateTime;
  AYear, AMonth, ADay: word;
begin
  ADate  := now;	
 
  DecodeDate(ADate, AYear, AMonth, ADay);

  ShowMessage(IntToStr(AYear));
  ShowMessage(IntToStr(AMonth));
  ShowMessage(IntToStr(ADay));
end;

Tout d'abord, ici, nous enregistrons la date actuelle dans la variable ADate. Cependant, en même temps, nous avons déclaré les variables AYear, AMonth et ADay dans lesquelles notre année, mois et jour doivent être écrits ultérieurement. Pour cela, nous appelons DecodeDate et nous transmettons toutes les variables à cette fonction. Enfin, nous montrons les résultats avec ShowMessage().
09/11/2023 à 23:19