Die Funktionen lassen sich auch etwas kompakter darstellen
Delphi-Quellcode:
function Is53weeks1(y: word): boolean;
begin
Result := (DayOfTheWeek(EncodeDate(y, 1 , 1)) = 4) or (DayOfTheWeek(EncodeDate(y, 12, 31)) = 4);
end;
function Is53weeks2(y: word): boolean;
begin
Result := (WeeksInYear(EncodeDate(y,1,1)) = 53);
end;
Vorteil besonders bei ersterem ist, dass EncodeDate im zweiten Teil des OR gar nicht erst aufgerufen wird, falls der erste schon zum Ergebnis führt
Viele Grüße