Kalenderwoche ermitteln

[DeddyH]

Gerade mit Delphi 7 geschrieben:

Delphi-Quellcode:

uses DateUtils;

procedure CalculateNewWeekOfYear(WeekIn, YearIn, Offset: integer;
  out WeekOut, YearOut: integer);
var
  DateValue: TDateTime;
begin
  DateValue:= IncWeek(StartOfAWeek(YearIn, WeekIn), Offset);
  WeekOut := WeekOfTheYear(DateValue);
  YearOut := YearOf(DateValue);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OldYear, OldWeek, NewYear, NewWeek, Offset: integer;
begin
  OldWeek := StrToInt(Edit1.Text);
  OldYear := StrToInt(Edit2.Text);
  Offset := StrToInt(Edit3.Text);
  CalculateNewWeekOfYear(OldWeek, OldYear, Offset, NewWeek, NewYear);
  Edit4.Text := IntToStr(NewWeek);
  Edit5.Text := IntToStr(NewYear);
end;