Easter date/de

uses
      SysUtils, DateUtils, Dialogs;
    
      ...
    
    function funOstersonntag(wrdJahr: word): TDate;
      // Osterfunktion nach Carl Friedrich Gauß (1800). Rückgabewert
      // ist das Datum des Ostersonntags im angegebenen Jahr
      // Gültigkeitsbereich: 1583 - 8702
    var
      a: integer;
      b: integer;
      c: integer;
      d: integer;
      e: integer;
      f: integer;
      wrdTage: word;
      wrdMonat: word;
    
    begin
    
      // Prüft, ob das Jahr korrekt ist
      if wrdJahr < 1583 then
      begin
        ShowMessage('Das Jahr ist zu klein und liegt vor dem Jahr 1583.');
        Exit;
      end;
    
      if wrdJahr > 8702 then
      begin
        ShowMessage('Das Jahr ist zu groß und liegt nach dem Jahr 8702.');
        Exit;
      end;
    
      // Die Gauss-Formel
      a := wrdJahr mod 19;
      b := wrdJahr div 100;
      c := (8 * b + 13) div 25 - 2;
      d := b - (wrdJahr div 400) - 2;
      e := (19 * (wrdJahr mod 19) + ((15 - c + d) mod 30)) mod 30;
    
      if e = 28 then
        if a > 10 then
          e := 27
        else if e = 29 then
          e := 28;
    
      f := (d + 6 * e + 2 * (wrdJahr mod 4) + 4 * (wrdJahr mod 7) + 6) mod 7;
    
      if (e + f + 22) > 31 then
      begin
        wrdMonat := 4;
        wrdTage := ((e + f + 22) - 31);
      end
      else
      begin
        wrdMonat := 3;
        wrdTage := (e + f + 22);
      end;
    
      // Rückgabewert als Datum bereitstellen
      Result := EncodeDate(wrdJahr, wrdMonat, wrdTage);
    
    end;