Diese Frage wurde einmal in der „Hörzu“ Feb. 1977 gestellt und vom Verlag mit einem Algorithmus beantwortet, den Ihr im Anhang findet. Vlt. hat ja jemand Lust, den zu coden und für 1900..2099 zu testen. Mein Windoof-PC will im Moment nicht. Die Quelle verdanke ich einem Leser.

Liebe Grüße
Wolfgang Mix

Nur schnell heruntergetippt, weder optimiert noch getestet:

zusammenfalten · markieren

Delphi-Quellcode:

function NextDateWithSameWeekday(const aDate: TDate): TDate;
var
  y, m ,d: word;
begin
  DecodeDate(aDate, y, m, d);
  if (m = 2) and (d = 29) then
    inc(y, 28)
  else
    begin
      case y mod 4 of
        0:
          if m in [1, 2] then
            inc(y, 5)
          else
            inc(y, 6);
        1:
          inc(y, 6);
        2:
          if m in [1, 2] then
            inc(y, 6)
          else
            inc(y, 11);
        else
          if m in [1, 2] then
            inc(y, 11)
          else
            inc(y, 5);
      end;
    end;
  Result := EncodeDate(y, m, d);
end;

Das ist erst die halbe Miete. Das ist das, was man per Hand macht. Fehlt noch der Beweis, dass die Daten für meinen gewünschten Zeitraum auch stimmen.

Die Überprüfung könnte brute force so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

var
  aDate: TDateTime;
begin
  aDate := EncodeDate(1900, 1, 1);
  while aDate < EncodeDate(2100, 1, 1) do begin
    if DayOfWeek(aDate) <> DayOfWeek(NextDateWithSameWeekday(aDate)) then begin
      raise Exception.Create('Passt nicht!');
    end;
    aDate := IncDay(aDate);
  end;
end;

Man sollte dabei beachten, daß die berechneten Werte am Ende über den betrachteten Zeitraum hinausgehen.

Alternativ kann man aber auch einen Algorithmus nehmen, der die Korrektheit garantiert:

zusammenfalten · markieren

Delphi-Quellcode:

function NextDateWithSameWeekday(const aDate: TDate): TDateTime;
var
  day: Word;
  dow: Integer;
  month: Word;
  year: Word;
begin
  dow := DayOfWeek(aDate);
  DecodeDate(aDate, year, month, day);
  repeat
    Inc(year);
    if not TryEncodeDate(year, month, day, result) then Continue
  until dow = DayOfWeek(result);
end;