EndOfAYear

EndOfAYear returns a TDateTime value that represents the last millisecond of the last day of the year, by returning the last expressible moment of the same year specified by AYear.

Declaration: Function EndOfAYear( const AYear : Word) : TDateTime;

An example follows and with a processing date of 2023, returns 31/12/2023 23:59:59.999.

procedure OnMapEvent(var Value:Variant);
var
  TheYear : word;
  TheDate : TDateTime;
begin
 TheYear := 2023;
 TheDate := EndOfAYear(TheYear);
 LogInfo('The end of the year date is '+FormatDateTime('dd/mm/yyyy hh:nn:ss',TheDate));
end;