Jahre mit 53 Wochen

[mirage228]

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