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:

zusammenfalten · markieren

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

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.
Delphi-Referenz durchsuchen

MonthOf

Oder FormatDateTime('mmmm', myDate) .

Kalenderwochen und Monat

Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

AW: Kalenderwochen und Monat

Forumregeln

Ykcim Registriert seit: 29. Dez 2006 Ort: NRW 804 Beiträge Delphi 10.4 Sydney	#1 Kalenderwochen und Monat 4. Apr 2014, 10:24 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 Patrick
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 AW: Kalenderwochen und Monat 4. Apr 2014, 10:31 http://docwiki.embarcadero.com/Libra...stem.DateUtils <KW> := WeekOfTheYear( StartOfAMonth ( <Jahr>, <Monat>)); Markus Kinzler
	Zitat

Zoot Registriert seit: 30. Jan 2006 Ort: Hessen 110 Beiträge Delphi 11 Alexandria	#3 AW: Kalenderwochen und Monat 4. Apr 2014, 10:49 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...
	Zitat

Der schöne Günther Online Registriert seit: 6. Mär 2013 6.110 Beiträge Delphi 10 Seattle Enterprise	#4 AW: Kalenderwochen und Monat 4. Apr 2014, 10:54 Delphi hält sich an die ISO 8601, früher DIN 1355-1. Finde ich vollkommen richtig so.
	Zitat

Perlsau (Gast) n/a Beiträge	#6 AW: Kalenderwochen und Monat 4. Apr 2014, 11:44 Heftig, wenn der Anwender 52 mal hintereinander einen OK-Button klicken muß
	Zitat

Ykcim Registriert seit: 29. Dez 2006 Ort: NRW 804 Beiträge Delphi 10.4 Sydney	#7 AW: Kalenderwochen und Monat 4. Apr 2014, 12:56 War jetzt nur zum Test Im Programm passiert etwas anderes... Gruß Patrick Patrick
	Zitat