Kalender, Formel

[fckHennes]

Hallo,

ich muss in einem Projekt den Datum-Endtermin nach x Wiederholungen
berechnen.

z.b. Starttag 13.10.2014
Termine in jeder Woche, immer am Montag,Dienstag,Mittwoch
und der Endtermin soll dann nach 10 Terminen erreicht sein

das wäre in dem Beispiel der 03.11.2014

oder Termine alle 2 Wochen, immer am Montag,Dienstag,Mittwoch

das wäre dann in dem Beispiel der 24.11.2014

Kennt jemand von Euch eine Formel, um sowas zu berechnen oder hat
jemand von Euch evtl. einen Codeteil für mich, der das löst ?

Danke.

Gruß
M.

[Whookie]

Vielleicht schaust du die die Hilfe zu System.DateUtils an?

[Bjoerk]

Z.B. in der DateUtils gibt's IncDay und Co.

LG
Thomas

[fckHennes]

Habe das folgendermassen probiert,

Delphi-Quellcode:

while Terminzaehler-AngeklickteTage > 0 do
  begin
    Endedatum.date:=IncWeek(Starttag,Wochenrhythmus);
    Startttag:=Endedatum.date;
    dec(Terminzaehler,AngeklickteTage);
    hv:=Terminzaehler-AngeklickteTage;
  end;
if hv < 0 then
  Endedatum.date:=endedatum.date-(hv*-1);

Das klappt, wenn die Tage hintereinander liegen, leider
aber nicht, wenn es z.b. Monatg,Mittwoch und Donnerstag
angewählt wurde

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