, zeller ' s overensstemmelse er en algoritme, der beregner en dag får et år, måned og dag., bidragyder: earl dunovant, {, earl dunovant, > hvilken dato er det i dag for en bestemt måned. zeller ' s overensstemmelse er en algoritme, der beregner en dag får et år, måned og dag.oprettet i 1887 (!). jeff duntemann af pc - teknikker, berømmelse, gennemføres det i tp i 11 /90 om dr. dobbs dagbog med en (115 min venstre), (h) hjælp, mere?major skrumlet for tp ' s mod erhvervsdrivende returnerer en del i stedet for en sand matematiske elasticitetsmodul.jeg tilføjede skrumlet alarm banner, at jeg i min egen kodeks.}, funktion calcdayofweek (år, måned, dag: hele tal): heltal, var,    århundrede,    indehaver: heltal, begynder,    (første test for fejl betingelser på input værdier:},    hvis (år < 0) eller (måned < 1) eller (måned > 12) eller (dag < 1) eller (dag > 31),      calcdayofweek: = - 1 (tilbage - 1 indikere en fejl),    andet,    {gøre zeller ' s overensstemmelse beregning, som hun selv),    (beskrevet i " acta mathematica ", stockhold, 1887.},    begynder,      (første vi adskille året og århundrede tal:},      århundrede: = år div 100,      år: = år mod 100,      {næste vi justerer den måned, således at marts måned&#fortsat 3),      (men det i januar og februar er måneder og,      {*), men for det foregående år *:},      hvis måned < 3 -      begynder,        inc (måned 12),        hvis år > 0,          dec (år 1) (året før 2000},,        andet (1999, ikke 20 - 1...},        begynder,          år: = 99,          dec (århundrede),       ;,     ;,      {her ' s zeller ' s skelsættende sort magi.},      indehaver: = dag; (start med den dag i måneden),      indehaver indehaver: = + (((måned + 1) * 26) div. 10); (calcium tilvækst),      indehaver: = indehaver + år {tilføje i år},      indehaver: = indehaver + (år div. 4. {korrekt for skudår),      indehaver: = indehaver. (århundrede div. 4. {korrekt for århundrede år},      indehaver: = indehaver - århundrede - århundrede; {er ' t ved, hvorfor han gjorde det.},      {*********************** skrumlet alarm!***************************},     , mens indehaver < 0 gøre {få negative værdier i},        inc (indehaver, 7); (positive område før},                                            {under forsvarsministeriet...},      indehaver: = indehaver mod 7 (dele af 7, men holde},                                            (resterende del snarere end},                                            (kvotient},      {*********************** skrumlet alarm!***************************},      {her vi ", pak " lørdag ved at være den sidste dag:},     , hvis indehaveren = 0,        indehaver: = 7,      {zeller holdt søndag = 1 oprindelse; edb - pølser, foretrækker at},      {begynder alt med 0, så her ' er en af det 20. århundrede skrumlet:},      dec (indehaver),      calcdayofweek: = indehaver (tilbage det endelige produkt.},   ;,;,