Delphi/Lazarus: Extraer Día, Mes y Año del Formato DateTime

Delphi así como Lazarus vienen con una función para hacer eso. La función se llama DecodeDate y se puede utilizar de la siguiente manera:

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;

En primer lugar, aquí guardamos la fecha actual en la variable ADate. Sin embargo, al mismo tiempo, hemos declarado las variables AYear, AMonth y ADay en las que nuestro año, mes y día deberían escribirse más tarde. Para eso, llamamos a DecodeDate y pasamos todas las variables a esta función. Finalmente, mostramos los resultados con ShowMessage().
09/11/2023 a las 23:11