GetStartOfFirstWeekInYearISO8601

[marabu]

Guten Morgen,

Mario erinnert sich richtig - deshalb funktioniert das hier auch:

Delphi-Quellcode:

uses
  DateUtils;

function StartOfTheFirstWeek(year: Word): TDateTime;
begin
  Result := StartOfTheWeek(EncodeDate(year, 1, 4));
end;

Grüße vom marabu