Delphi/Lazarus: Split DateTime into Day, Month, Year, Hour, Minute and Second

It is not necessary to write your own function for this purpose, because Delphi as well as Lazarus do have their own function for that. It is the function DecodeDateTime coming from the unit DateUtils, that of course, have to be added to the the USES-Section to make it work.

Alternatively, we can also use the functions DecodeDate and DecodeTime for the same purpose, here is an example for each function.

uses DateUtils;

var
  ADateTime: TDateTime;
  AYear, AMonth, ADay: integer;
  AHour, AMinute, ASecond: integer;
begin
  ADate  := now;	
 
  // version using DecodeDateTime
  DecodeDateTime(ADate, AYear, AMonth, ADay, AHour, AMinute, ASecond);

  // or alternative using DecodeDate and DecodeTime
  DecodeDate(ADate, AYear, AMonth, ADate);
  DecodeTime(ADate, AHour, AMinute, ASecond);

  ShowMessage('Year: '   + IntToStr(AYear));
  ShowMessage('Month: '  + IntToStr(AMonth));
  ShowMessage('Day: '    + IntToStr(ADay));
  ShowMessage('Hour: '   + IntToStr(AHour));
  ShowMessage('Minute: ' + IntToStr(AMinute));
  ShowMessage('Second: ' + IntToStr(ASecond));

end;

First of all, we are setting the variable ADate to the current time in order to have a value we can work with. After that, we want to extract the individual parts from this variable (year, month, day, hour, minute and second), for which we have declared some individual integer variables before.

Either, we are using the function DecodeDateTime, to which we can pass all variables at once or we can use the functions DecodeDate and DecodeTime after each other. Both functions are fitting the passed values with the new information.

Subsequently, we have stored the time in the variables AYear, AMonth, ADay, AHour, AMinute and ASecond and we are outputting then after each other with the function ShowMessage() in order to show the result.
2015-10-22 at 14:11