Probleme bei SerienTerminen von einem Kalender

[DeddyH]

Ich habe den verlinkten Source mal übersetzt (hoffentlich richtig).

Delphi-Quellcode:

uses DateUtils;

type TWeekDay = DayMonday..DaySunday;

function LastDayOfWeekOfMonth(year,month: Integer;DayOfWeek: TWeekDay): TDate;
var temp: TDate;
begin
  temp := IncMonth(EncodeDateTime(year,month,1,0,0,0,0));
  Result := IncDay(temp,(DayOfWeek - DayOfTheWeek(temp) + 7) mod 7 - 7);
end;