Kalenderwoche aus Datum ermitteln

**sventeq**

Hallo,
kann mir jemand sagen wie man aus einem Datum z.B. 23.04.2008 die entsprechende Kalenderwoche ermitteln kann?

Sven

**Matze**

Hallo

Kalenderwoche ->

Code-Library: Kalenderwoche ermitteln

Grüße

**SirThornberry**

In der Unit DateUtils gibt es die Funktion WeekOfTheYear

**sventeq**

Zitat von Matze:

Hallo

Kalenderwoche ->

Code-Library: Kalenderwoche ermitteln

Grüße

Danke, für deine Hilfe.
Ich habe den Code bei mir eingebaut, aber ich bekomme folgende Fehlermeldung: "Record, Qbjekt oder Klassentyp erforderlich".
Was mache ich falsch?
Gruß Sven

**fkerber**

Hi!

Wenn du uns zeigen würdest, wie du den Code bei dir eingebaut hast, könnte dir sicherlich besser geholfen werden...

Ciao, Frederic

**Jelly**

Zitat von sventeq:

Was mache ich falsch?

Du postest keinen Quellcode... Hellsehen kann hier keiner

**sventeq**

Ja stimmt, den müsstet ihr schon sehen.

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TForm1 = class(TForm)

  function GetKW(Date: TDateTime): Integer;

und die Funktion:

function GetKW(Date: TDateTime): Integer;

var

   Day: Integer;

   Y, M, D: Word;

begin

  Day := DayOfWeek(Date) - 1;

  if (Day <= 0) then

    Day := 7;

  DecodeDate(Date + 4 - Day, Y, M, D);

  result := round(((Date + 8 - Day) - EncodeDate(Y, 1, 1)) / 7);

end;

und der Funktions aufruf:

procedure TForm1.Button1Click(Sender: TObject);

begin

  neu:=23.04.2008;

  ShowMessage('Aktuelle Kalenderwoche: ' + IntToStr(GetKW(neu));

end;

**Jelly**

Zitat von sventeq:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

begin 

neu:=23.04.2008; 

ShowMessage('Aktuelle Kalenderwoche: ' + IntToStr(GetKW(neu)); 

end;

Das wird so nix... Deine Datumzuweisung geht so nicht. Du kannst z.b. die Function EncodeDate benutzen.

Und editiere bitte deinen letzten Beitrag und setze den Code zwischen die [ DELPHI] / [ /DELPHI] Tags (ohne die Leerzeichen) um deinen Code sauber zu formatieren.

**sventeq**

Ok, wusste ich nicht, dass man das so machen sollte. Hätte ich aber auch mal drauf kommen können, da ich Quellcode hier ja schon öfter so formatiert gesehen habe.
Gruß Sven

**sventeq**

Juhu, ich habs mit der der WeekOftheYear-Funktion geschafft.
Vielen Dank für eure Hilfe und einen schönen Sonntag noch.
Gruß Sven

Kalenderwoche aus Datum ermitteln

Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Re: Kalenderwoche aus Datum ermitteln

Forumregeln

sventeq Registriert seit: 15. Jul 2007 76 Beiträge	#1 Kalenderwoche aus Datum ermitteln 30. Mär 2008, 10:51 Hallo, kann mir jemand sagen wie man aus einem Datum z.B. 23.04.2008 die entsprechende Kalenderwoche ermitteln kann? Sven
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 10:56 Hallo Kalenderwoche -> Code-Library: Kalenderwoche ermitteln Grüße
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#3 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 11:00 In der Unit DateUtils gibt es die Funktion WeekOfTheYear Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

sventeq Registriert seit: 15. Jul 2007 76 Beiträge	#4 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 11:23 Zitat von Matze: Hallo Kalenderwoche -> Code-Library: Kalenderwoche ermitteln Grüße Danke, für deine Hilfe. Ich habe den Code bei mir eingebaut, aber ich bekomme folgende Fehlermeldung: "Record, Qbjekt oder Klassentyp erforderlich". Was mache ich falsch? Gruß Sven
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#5 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 11:28 Hi! Wenn du uns zeigen würdest, wie du den Code bei dir eingebaut hast, könnte dir sicherlich besser geholfen werden... Ciao, Frederic Frederic Kerber
	Zitat

Jelly Registriert seit: 11. Apr 2003 Ort: Moestroff (Luxemburg) 3.741 Beiträge Delphi 2007 Professional	#6 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 11:29 Zitat von sventeq: Was mache ich falsch? Du postest keinen Quellcode... Hellsehen kann hier keiner Tom Peiffer Rema - das Releasemanagement System für Entwickler Changelog
	Zitat

sventeq Registriert seit: 15. Jul 2007 76 Beiträge	#9 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 11:49 Ok, wusste ich nicht, dass man das so machen sollte. Hätte ich aber auch mal drauf kommen können, da ich Quellcode hier ja schon öfter so formatiert gesehen habe. Gruß Sven
	Zitat

sventeq Registriert seit: 15. Jul 2007 76 Beiträge	#10 Re: Kalenderwoche aus Datum ermitteln 30. Mär 2008, 12:01 Juhu, ich habs mit der der WeekOftheYear-Funktion geschafft. Vielen Dank für eure Hilfe und einen schönen Sonntag noch. Gruß Sven
	Zitat