Datum letzter Samstag?

[Der schöne Günther]

Das nenne ich mal Hardcore


Mein Stil wäre das hier gewesen:

Delphi-Quellcode:

var
   wantedMonth: TDateTime;
   dayIterator: TDateTime;
begin
   wantedMonth := Now(); // Der aktuelle Monat
   dayIterator := wantedMonth.EndOfMonth(); // Letzter Tag von wantedMonth

   while dayIterator.DayOfWeek <> DaySaturday do
      dayIterator := dayIterator.AddDays(-1);

   WriteLn(
      'Der letzte Samstag des Monats von '
      +currentMonth.ToString().QuotedString()
      +' ist '
      +dayIterator.ToString().QuotedString()
   );


  ReadLn;
end.

Mit dem TDateTimeHelper von
https://github.com/colinj/TDateTimeH...TimeHelper.pas