Öröknaptár alap

 Egy korábbi érettségiben megfogalmazott pszeudo kód, amivel öröknaptárt lehet készíteni

Függvény hetnapja(ev, ho, nap : Egész) : Szöveg 

    napok: Tömb(0..6: Szöveg)= (″vasárnap″, ″hétfő″, ″kedd″, ″szerda″,″csütörtök″, ″péntek″, ″szombat″)

    honapok: Tömb(0..11: Egész)= (0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4)

    Ha ho < 3 akkor ev := ev -1

    hetnapja := napok[(ev + ev div 4 – ev div 100 +  ev div 400 + honapok[ho-1] + nap) mod 7]