Kalenderwoche ???

[Alex_ITA01]

Folgender Code hilft dir:

Delphi-Quellcode:

function GetKW(Datum : TDatetime) : Integer;
var
   Day   : Integer;
   Y,M,D : word;
begin
  Day := DayOfWeek(Datum) - 1;
  if (day <= 0) then
    day := 7;
  DecodeDate(Datum + 4 - day,y,m,d);
  result := round(((Datum + 8 - day) - EncodeDate(y,1,1)) / 7);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := 'aktuelle Kalenderwoche: ' + IntToStr(GetKW(Now));
end;

MFG Alex