Kalenderwochen und Monat

[Ykcim]

Vielen Dank!

Habe es jetzt so gelöst:

Delphi-Quellcode:

procedure Month_week(year: integer; var Cols: TCols; var Rows:TRows);
var   I: integer;
      myDate : TDateTime;
      myYear, myMonth, myDay : Word;
begin
   for I := 1 to 52 do begin
      myDate:=startofaWeek(year,I)+2;
      DecodeDate(myDate, myYear, myMonth, myDay);
      showmessage(LongMonthNames[myMonth]+' KW'+IntToStr(I));
   end;
end;

Gruß
Patrick