Kalender, Formel

[Bjoerk]

Wieviele Tage sind es von Montag bis Mittwoch bis Donnerstag bis Montag? Du schaffst das.

[fckHennes]

Steh irgendwie auf der Leitung oder Seh den Wald vor lauter
Bäumen nicht mehr heute

[Bjoerk]

Delphi-Quellcode:

var
  Date: TDateTime;
begin
  Date := StrToDate('13.10.2014');

  Date := IncDay(Date, 2);
  Showmessage(DateToStr(Date));

  Date := IncDay(Date, -2);
  Showmessage(DateToStr(Date));
end;

[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;

[fckHennes]

Hallo,

Klappt.

Stand wirklich auf dem Schlauch gestern.

Danke.

Gruß
M.