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

[Perlsau]

Heftig, wenn der Anwender 52 mal hintereinander einen OK-Button klicken muß

[Ykcim]

War jetzt nur zum Test

Im Programm passiert etwas anderes...

Gruß
Patrick

[himitsu]

Zitat:

DecodeDate(myDate, myYear, myMonth, myDay);

Schau mal in die DateUtils...

Da du hier eh nur einen der Werte brauchst, warum dann die Anderen auch noch auslesen.
MonthOf

Oder FormatDateTime('mmmm', myDate) .