Υπολογισμός Ημερομηνίας Ορθόδοξου Πάσχα και κινητών εορτών

SValsamis — Thu, 23 Feb 2006 21:25:08 GMT

Ο παρακάτω αλγόριθμος υπολογίζει την ημερομηνία της Κυριακής του Πάσχα.
(Πρώτη Κυριακή μετά την πρώτη πανσέληνο της εαρινής ισημερίας)
Αφορά στο Γρηγοριανό ημερολόγιο και είναι το Πάσχα των ορθοδόξων και ισχύει για τα έτη από 1583 έως 4099.
Για υπολογισμό με άλλα ημερολόγια επισκεφθείτε http://users.chariot.net.au/~gmarts/eastalg.htm

'Περνάμε σαν παράμετρο το έτος που θέλουμε να υπολογίσουμε το Πάσχα
Private Function GetEasterDate(ByVal Y As Integer)
Dim FirstDig, Remain19, temp, d, m As Integer
Dim tA, tB, tC, tD, tE As Integer
'Ισχύει για έτη από 1583 έως 4099

If (Y < 1583 Or Y > 4099) Then
System.Windows.Forms.MessageBox.Show("To Γρηγοριανό ημερολόγιο εφαρμόζεται μόνο για τα έτη από 1583 έως 4099","GetEasterDate Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return nothing

End If

FirstDig = CType(Y \ 100, Integer) 'Τα δύο πρώτα ψηφία του έτους

' PFM (Paschal Full Moon )
' Αλγόριθμος υπολογισμού της πρώτης πανσελήνου της εαρινής ισημερίας
'Για λεπτομέρειες http://www.assa.org.au/edm.html#OrthCalculator
Remain19 = Y Mod 19

tA = ((225 - 11 * Remain19) Mod 30) + 21

'Εύρεση της επόμενης Κυριακής
tB = (tA - 19) Mod 7
tC = (40 - FirstDig) Mod 7
temp = Y Mod 100

tD = (temp + temp \ 4) Mod 7
tE = ((20 - tB - tC - tD) Mod 7) + 1

d = tA + tE

'Μεταφορά 10 ημερών από το Γρηγοριανό ημερολόγιο
temp = 10

If Y > 1600 Then temp = temp + FirstDig - 16 - ((FirstDig - 16) \ 4)

d = d + temp

If d > 61 Then
   d = d - 61
   m = 5 'Μάϊος
ElseIf d > 31 Then
   d = d - 31
   m = 4 'Απρίλιος
Else
   m = 3 'Μάρτιος

End If

Return New Date(Y, m, d)

End Function

Κλήση Function
GetEasterDate (2006)

Κινητές εορτές
Μπορούμε από την ημερομηνία του Πάσχα να υπολογίσουμε όλες τις κινητές εορτές
ΠΧ.

Τριώδιο 70 ημέρες πρίν
Καθαρά Δευτέρα 48 ημέρες πρίν
Σάββατος του Λαζάρου 8 ημέρες πρίν

Αγίων Πάντων 56 ημέρες μετά

Λοιπά θέματα

Υπολογισμός Ημερομηνίας Ορθόδοξου Πάσχα και κινητών εορτών