Frage zu EncodeDateWeek

[angos]

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