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.

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:

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