Delphi/Lazarus: Extract Day, Month and Year from DateTime-Format

Delphi as well as Lazarus are coming with a function to do that. The function is called DecodeDate and it can be used in the following way:

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;

First of all, here, we are saving the current date in the variable ADate. However, at the same time, we have declared the variables AYear, AMonth and ADay in which our year, month and day should be written later. For that, we are calling DecodeDate and we are passing all variables to this function. Finally, we are showing the results with ShowMessage().
Last update on 2023-11-24 | Created on 2015-09-23