Forum - Υπολογισμός της ημέρας του Άγιου Πάσχα και άλλων κινητών εορτών.

Εργασία:
Εύρεση της ημερομηνίας της Κυριακής του Πάσχα αλλά και των υπόλοιπων κινητών εορτών.

Για τα έτη 1900 - 2099:

Στο κελί A1 βρίσκεται το έτος βάσει του οποίου αναζητείται η ημερομηνία του Πάσχα.

<table style="font-family: Calibri,Arial; font-size: 11pt; background-color: rgb(255, 255, 255);" border="1" cellpadding="0" cellspacing="0"><colgroup><col style="width: 30px;"><col style="width: 64px;"><col style="width: 180px;"></colgroup><tbody><tr style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"><td>
</td><td>A</td><td>B</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 1</td><td style="text-align: right;">2011</td><td style="text-align: right;">Κυριακή, 24 Απρίλιος 2011</td></tr></tbody></table>
<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td>Κελί</td><td>Τύπος</td></tr><tr><td>B1</td><td>=DATE(A1;4;MOD(19*MOD(A1;19)+16;30)+MOD(2*M OD(A1;4)+4*MOD(A1;7) +6*MOD(19*MOD(A1;19)+16;30);7)+3)
</td></tr></tbody></table></td></tr></tbody></table>

Για τα έτη: 1600 - 6333

Θα χρειαστούν βοηθητικά κελιά.

<table style="font-family: Calibri,Arial; font-size: 11pt; background-color: rgb(255, 255, 255);" border="1" cellpadding="0" cellspacing="0"><colgroup><col style="width: 30px;"><col style="width: 72px;"><col style="width: 180px;"></colgroup><tbody><tr style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"><td>
</td><td>A</td><td>B</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 1</td><td style="text-align: right;">2011</td><td style="text-align: right; background-color: orange;">Κυριακή, 24 Απρίλιος 2011</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 2</td><td style="text-align: right; color: rgb(128, 128, 128);">13</td><td>
</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 3</td><td style="text-align: right; color: rgb(128, 128, 128);">19</td><td>
</td></tr><tr style="height: 18px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 4</td><td style="text-align: right; color: rgb(128, 128, 128);">27</td><td>
</td></tr></tbody></table>
<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td>Κελί</td><td>Τύπος</td></tr><tr><td style="background-color: orange;">B1</td><td>=IF(A1>1899;DATE(A1;3+INT((A4+26)/30);1+MOD((A4+27+INT((A4+6)/40));31));1+MOD((A4+27+INT((A4+6)/40));31)&"/"&3+INT((A4+26)/30)&"/"&A1)</td></tr><tr><td>A2</td><td>=(INT(A1/100)-16)-INT((INT(A1/100)-16)/4)+10</td></tr><tr><td>A3</td><td>=MOD(19*INT(MOD(A1;19)+15);30)</td></tr><tr><td>A4</td><td>=A3-MOD(INT((A1 + INT(A1 /4))+A3);7)+A2</td></tr></tbody></table></td></tr></tbody></table>

H Excel μπορεί να επεξεργαστεί ημερομηνίες από την 01/01/1900 μέχρι 31/12/9999.

Έτσι, οι ημερομηνίες του Πάσχα για έτη πριν από το 1900
επειδή δεν μπορούν να επεξεργαστούν από την Excel (Windows),
η συνάρτηση τις μετατρέπει σε κείμενο προκειμένου να υπάρξει (οπτικό) αποτέλεσμα.

Όσοι δεν θελήσουν να χρησιμοποιήσουν βοηθητικά κελιά, μπορούν να χρησιμοποιήσουν τον παρακάτω κώδικα VBA:

Κώδικας:

Function GreekEaster(iYear As Integer)

    Dim tA%, tB%, tC%, iDay%, iMonth%

    If iYear > 1599 And iYear < 6334 Then

        tA = (iYear \ 100) - 16 - (((iYear \ 100) - 16) \ 4) + 10

        tB = (19 * Int(iYear Mod 19) + 15) Mod 30

        tC = tB - Int((iYear + (iYear \ 4) + tB) Mod 7) + tA

        iDay = 1 + (tC + 27 + ((tC + 6) \ 40)) Mod 31

        iMonth = 3 + (tC + 26) \ 30

        GreekEaster = IIf(iYear > 1899, DateSerial(iYear, iMonth, iDay), iDay & "/" & iMonth & "/" & iYear)

    End If

End Function

Γνωρίζοντας λοιπόν την ημερομηνία του Άγιου Πάσχα είναι πολύ εύκολο να υπολογίσει κανείς και τις υπόλοιπες κινητές εορτές.

Παράδειγμα για επίσημες αργίες που είναι κινητές εορτές όπου Πάσχα = η ημερομηνία της Κυριακής του Πάσχα:

Μ. Παρασκευή: =Πάσχα - 2
Μ. Σάββατο: =Πάσχα - 1
Δευτέρα του Πάσχα =Πάσχα +1
Αγίου Πνεύματος: =Πάσχα - 50

Τάσος