Berechnen wann Schaltjahr und Wochenende ist

[TeronG]

Zitat von Delphi:

Delphi-Quellcode:

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;