Kalenderwoche aus Datum ermitteln

[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;