Hi,
ich verstehe grad nicht ganz, warum das so kompliziert über KW gerechnet wird. Mein Vorschlag, in welchem auch Jahreswechsel und 53.KW furzegal sein sollten
:
[EDIT] DU willst den Montag prüfen, daher ein wenig umgebaut^^
Delphi-Quellcode:
function GetLieferzeitpunkte(dtLetzteLieferung, dtEnde: TDateTime): String;
var
dtPruef: TDateTime;
begin
dtPruef := dtLetzteLieferung + 7 + DayOfTheWeek(dtLetzteLieferung) + 1
dtLetzteLieferung := dtLetzteLieferung + 7;
while dtPruef <= dtEnde do
begin
Result := Result + DateTimeToStr(dtLetzteLieferung);
dtLetzteLieferung := dtLetzteLieferung + 7;
dtPruef := dtPruef + 7;
end;
end;
Gruß
Ansgar