Den letzten Donnerstag eines Monats

[Michael II]

Zitat von Solutor:

Korrekt! Meine Funktion hat nur einen eingeschränkten Gültigkeitsbereich.

Du kannst deine Funktion sehr leicht anpassen, indem du von EndOfAMonth nur das Datum, nicht aber die Zeit verwendest:

Delphi-Quellcode:

Function GetLastWeekDayOfMonth( year, month, d : Integer) : TDatetime;
Var dow, eom : integer;
// d : 1= Sonntag 2=Montag 3=Dienstag ...
begin
   eom := trunc( DateUtils.EndOfAMonth(year,month) );
   dow := DayOfWeek(eom);

   if ( dow >= d ) then
      Result:=eom-dow+d
   else
      Result:=eom-dow+d-7;
end;

Irgendwann um das Jahr 4813 rum, werden wir sämtliche Funktionen anpassen müssen, weil voraussichtlich ein Schalttag ausfallen wird.

Spannend ist auch: "Auch nach der Einführung des gregorianischen Kalenders war es noch eine Zeit lang wie im julianischen Kalender üblich, in einem Schaltjahr den 24. Februar zu verdoppeln (siehe Missale Romanum, nebenstehendes Bild). Bei der Zählung der Kirchentage in der katholischen Kirche galt diese Praxis sogar noch bis 2001. Erst seitdem wird in den Ausgaben des Martyrologium Romanum die Durchnummerierung der Kalendertage zugrunde gelegt und folglich der 29. Februar verwendet.[2]" https://de.wikipedia.org/wiki/Schaltjahr

Der berechneten "Februar Werte" für die Jahre kurz nach 1582 sind also mit Vorsicht zu geniessen .