Suchergebnisse
Suchergebnisse 1-2 von insgesamt 2.
Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen
-
Zitat von "mentalVar": „Zitat von "cge": „Berechnen von Feiertagen speziell Ostern Ostern: [code:1]procedure Ostern(var otag, omon: integer; jahr: integer); {nach Gauss} var a,b,c : integer; begin a:=jahr mod 19; b:=(204-11*a) mod 30; if b in [28,29] then dec(b); c:=(jahr+jahr div 4+b-13) mod 7; otag:=28+b-c-2;omon:=3; if otag>31 then begin dec(otag,31); inc(omon); end; end;[/code:1] Das Ergebnis steht dann in den ersten zwei Parametern drin. Im dritten Parameter wird das Jahr übergeben, für das…
-
Zitat von "cge": „Berechnen von Feiertagen speziell Ostern Ostern: [code:1]procedure Ostern(var otag, omon: integer; jahr: integer); {nach Gauss} var a,b,c : integer; begin a:=jahr mod 19; b:=(204-11*a) mod 30; if b in [28,29] then dec(b); c:=(jahr+jahr div 4+b-13) mod 7; otag:=28+b-c-2;omon:=3; if otag>31 then begin dec(otag,31); inc(omon); end; end;[/code:1] Das Ergebnis steht dann in den ersten zwei Parametern drin. Im dritten Parameter wird das Jahr übergeben, für das Ostern angezeigt werden…