Datum letzter Samstag?

[Zoot]

Zitat von Sir Rufo:

Kleine Verbesserung

Delphi-Quellcode:

Function LastDow (const DateToMatch : TDateTime; const DowToMatch : Byte) : TDateTime;
begin
  result := ( DateToMatch - 1 ) - ((DaysPerWeek - DowToMatch + DayOfTheWeek( DateToMatch - 1 )) mod DaysPerWeek);
end;

ok, das gefällt