Kalenderwochen und Monat

[Ykcim]

Hallo Zusammen,

ich habe gerade eine Blockade...
Ich möchte für ein anzugebenes Jahr den Monat und die Kalenderwoche bestimmen:

Januar---KW1
Januar---KW2
Januar---KW3
Januar---KW4
Januar---KW5
Februar--KW6
Februar--KW7
Februar--KW8
Februar--KW9
März-----KW10
usw.

Kann mir jemand Starthilfe geben?

Vielen Dank
Patrick

[mkinzler]

http://docwiki.embarcadero.com/Libra...stem.DateUtils
<KW> := WeekOfTheYear( StartOfAMonth ( <Jahr>, <Monat>));

[Zoot]

Sehe ich das richtig, dass Delphi hier keinen Unterschied zwischen USA und Europa macht?
Nicht ganz korrekt, oder?
Ok, ist in USA ohnehin unüblich, aber trotzdem...

[Der schöne Günther]

Delphi hält sich an die ISO 8601, früher DIN 1355-1. Finde ich vollkommen richtig so.

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