Den letzten Donnerstag eines Monats

[blawen]

Zitat von Amateurprofi:

Naja, wenn es um Schnelligkeit geht dann so:

Delphi-Quellcode:

// WeekDay 0=Mo, 6=So
FUNCTION LastWeekDayOfMonth(Year,Month,WeekDay:Integer):TDateTime;
const DIM:Array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);

Wie sieht es mit Schaltjahren aus? Diese werden nicht berücksichtigt - oder übersehe ich etwas?