Kuidas arvutada Lihavõtteid

Paari kuu pärast tuleb jälle hakata pühadeks mune värvima. Heal perenaisel on kokku kogutud hulk sibulakoori, aga suur osa inimesi ei mäleta, millal on Lihavõtted e Ülestõusmispüha, millal Suur Reede (siis ju töövaba päev) ja ammugi, et millal Vastlapäev (näe jäigi sel aastal liug laskmata) või Suvistepüha.

Et elu lihtsamaks teha (ja ikka Exceli abiga) õpetan täna, kui imelihtne on arvutada igaks aastaks Lihavõtteid.

Piisab, kui kirjutad kolm “lihtsat” valemit:

[@temp] =MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)

[@tA]=[@temp]+21-IF([@temp]=29;1; IF([@temp]=28;IF(MOD([@Aasta];19)>10;1;0);0))

[@tE] =MOD(20-MOD([@tA]-19;7)-MID(“0135”; MOD(40-LEFT([@Aasta];2);4)+1;1)-MOD(MOD([@Aasta];100)+INT(MOD([@Aasta];100)/4);7);7)+1

Neile kes Excelit uut moodi – tabelina – ei mõista väike seletus

    Esimese valemi (alates =-märgist) paned lahtrisse ja [@Aasta] asemele pistad aastaarvu või viite lahtrile, kus aastaarv

    Teise valemi (alates =-märgist) mõnda teise lahtrisse ja viitad eelmisele ja nii edasi

Neile, kes Excelit tabelina oskavad, lihtsam seletus

    Tee omale tabel, kus veerud Aasta, temp, tA, tE ja Lihavõtted

    Aastad pista esimesse veergu

    Näidatud valemid kirjuta (alates võrdusmärgist) vastavasse tabeliveergu

Lisavõtted saad siis arvutada sellise valemiga

[@Lihavõtted] =DATE([Aasta];3;[@tE]+[@tA])

Ja niisama lihtne see ongi. Soovi korral võid veel veerge lisada

[SuurReede] = [Lihavõtted]-2

[Vastlapäev] = [Lihavõtted]-47

[Nelipüha] = [Lihavõtted] +49

Väike hoiatus ka – see arvutus annab õige tulemuse ainult aastani 4000. Kui see mõnele probleem, siis peab parema lahenduse otsima. Aastal 4000 tuleb niiehknii midagi ette võtta, kuna rooma numbrid saavad siis otsa ja Vatikan ei saa enam oma kalendreid trükkida.

PS. Ma mõtlesin lihavõtteks ka üheainsa valemi kirjutada, aga see on juba keeruline (lihtsamat ma ei oska või ei viitsi teha):

[Lihavõtted] =DATE([@Aasta];3;MOD(20-MOD(MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)+21-IF(MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)=29;1;IF(MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)=28;IF(MOD([@Aasta];19)>10;1;0);0))-19;7)-MID(“0135”; MOD(40-LEFT([@Aasta];2);4)+1;1)-MOD(MOD([@Aasta];100)+INT(MOD([@Aasta];100)/4);7);7)+1+MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)+21-IF(MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)=29;1;IF(MOD(INT((LEFT([@Aasta];2)-15) / 2)+202-11*MOD([@Aasta];19)-MID(“111111111111222220”; (FIND(“*”&LEFT([@Aasta];2);”*21*24*25*27*28*29*30*31*32*34*35*38*33*36*37*39*40*”&LEFT([@Aasta];2))+2)/3;1);30)=28;IF(MOD([@Aasta];19)>10;1;0);0)))

This entry was posted in Excel. Bookmark the permalink.

Lisa kommentaar

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Muuda )

Twitter picture

You are commenting using your Twitter account. Log Out / Muuda )

Facebook photo

You are commenting using your Facebook account. Log Out / Muuda )

Google+ photo

You are commenting using your Google+ account. Log Out / Muuda )

Connecting to %s