Kalender, Formel

[Blup]

Auf einfachste Art:

Delphi-Quellcode:

function IsTermin(ADatum: TDateTime);
begin
  // hier z.B. mit DayOfWeek testen
end;

function LetzterTermin(AErsterTermin: TDateTime; AAnzahlTermine: Integer): TDateTime;
begin
  Result := AErsterTermin - 1;
  repeat
    Result := Result + 1;
    if IsTermin(Result) then
      Dec(AAnzahlTermine);
  until (AAnzahlTermine = 0);
end;