Kalenderwoche ermitteln

[nahpets]

Hallo,

bist Du damit zufrieden?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
         dt : TDateTime;
         dw : Integer;
begin
   dt := StrToDate('01.01.' + edYear.Text);
   dw := DayOfWeek(dt);
   if dw < 5 then dw := 7 else dw := 0;
   dt := dt + (StrToInt(edCW1.Text) + StrToInt(edWochen.Text)) * 7 - dw;
   edCW2.Text   := IntToStr(WeekOfTheYear(dt));
   edYear2.Text := IntToStr(YearOf(dt));
end;

In die Uses-Klausel DateUtils mit aufnehmen, dann dürften auch WeekOfTheYear und YearOf funktionieren.