Problem mit MonthOf

[Popov]

Oder mal so:

Delphi-Quellcode:

function JahreDerKW(const AYear, AWeekOfYear: Word; var AYear1, AYear2: Word): Boolean;
var
  Dummy: Word;
begin
  DecodeDate(EncodeDateWeek(AYear, AWeekOfYear, 1), AYear1, Dummy, Dummy);
  DecodeDate(EncodeDateWeek(AYear, AWeekOfYear, 7), AYear2, Dummy, Dummy);
  Result := AYear1 = AYear2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Year1, Year2: Word;
begin
  if JahreDerKW(2013, 1, Year1, Year2) then
    ShowMessage(Format('KW ist in einem Jahr: %d', [Year1]))
  else
    ShowMessage(Format('KW ist in zwei Jahren: %d und %d', [Year1, Year2]));
end;

Ist das Ergebnis True, ist es ein Jahr, sonst zwei. Dann bleibt es an dir welcher dich interessiert.