Berechnen wann Schaltjahr und Wochenende ist

[toms]

Delphi-Quellcode:

Function IsWeekEnd(dData : TDateTime) : boolean;
begin
  Result := (DayOfWeek(dData) = 1) or (DayOfWeek(dData) = 7);
end;