Den letzten Donnerstag eines Monats

[ConstantGardener]

Delphi-Quellcode:

function TForm2.LetzterDonnerstag(AYear, AMonth: Word): TDate;
var ADate : TDate;
    ADay  : Word;
begin
 ADate:=IncMonth(EncodeDate(AYear,AMonth,1))-1;                  // letzer Tag des Monats
 ADay :=DayOfTheWeek(ADate);                                     // ist was für ein Tag ?
 if ADay<4 then                                                 
  result:=ADate+(4-ADay)-7                                       // Montag-Mittwoch ?
 else
  result:=ADate+(4-ADay)
end;

evtl. so?