εορτολογιο (κινητες εορτες ) σε delphi

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
hlias51173
Δημοσιεύσεις: 1
Εγγραφή: 22 Νοέμ 2005 13:51
Τοποθεσία: ΑΘΗΝΑ

εορτολογιο (κινητες εορτες ) σε delphi

Δημοσίευση από hlias51173 » 22 Νοέμ 2005 14:01

Βασικά θέλω να φτιάξω ένα πρόγραμμα εορτολογίου σε Delphi.
Το πρόβλημα είναι οι κινητές εορτές.
Κώδικες διαθέσιμοι και σε άλλες γλώσες προγραμματισμού θα ήταν χρήσιμες

Άβαταρ μέλους
cordis
Administrator, [F|H]ounder, [C|S]EO
Δημοσιεύσεις: 27616
Εγγραφή: 09 Οκτ 1999 03:00
Τοποθεσία: Greece
Επικοινωνία:

εορτολογιο (κινητες εορτες ) σε delphi

Δημοσίευση από cordis » 22 Νοέμ 2005 17:21

Catholic Easter

century = year/100
G = year % 19
K = (century - 17)/25
I = (century - century/4 - (century - K)/3 + 19*G + 15) % 30
I = I - (I/28)*(1 - (I/28)*(29/(I + 1))*((21 - G)/11))
J = (year + year/4 + I + 2 - century + century/4) % 7
L = I - J
EasterMonth = 3 + (L + 40)/44
EasterDay = L + 28 - 31*(EasterMonth/4)
----------------------------------------------------------------

Days Before Easter
Septuagesima 63
Quinquagesima 49
Ash Wednesday 46
Palm Sunday 7
Good Friday 2


Days after Easter
Rogation Sunday 35
Ascension 39
Pentecost 49
Trinity Sunday 56
Corpus Christi 60

Orthodox Easter

G = year % 19
I = (19*G + 15) % 30
J = (year + year/4 + I) % 7
L = I - J
EasterMonth = 3 + (L + 40)/44
EasterDay = L + 28 - 31*(EasterMonth/4)
----------------------------------------------------------------------
Days before Easter
Triodon 70
Sat. of Souls 57
Meat Fare 56
2nd Sat. of Souls 50
Lent Begins 48
St. Theodore 43
Sun. of Orthodoxy 42
Sat. of Lazarus 8
Palm Sunday 7
Good Friday 2

Days after Easter
Ascension 39
Sat. of Souls 48
Pentecost 49
All Saints 56

[Note: Orthodox Easter is then EasterDay of EasterMonth in the Julian
Calendar. You will need to add the correct offset to obtain the
date in the Gregorian Calendar. From Julian Mar 1, 1900, to Julian
Feb 29, 2100, the correction is to add 13 days to the Julian date to
obtain the Gregorian date.]

This algorithm is based in part on the algorithm of Oudin (1940) and
quoted in "Explanatory Supplement to the Astronomical Almanac",
P. Kenneth Seidelmann, editor.

People who want to dig into the workings of this algorithm, may be
interested to know that
G is the Golden Number-1
I is the number of days from 21 March to the Paschal full moon
J is the weekday for the Paschal full moon (0=Sunday, 1=Monday,
etc.)
L is the number of days from 21 March to the Sunday on or before
the Pascal full moon (a number between -6 and 28)
Δεν απαντάω σε προσωπικά μηνύματα με ερωτήσεις που καλύπτονται από τις ενότητες του forum. Για ο,τι άλλο είμαι εδώ για εσάς.
- follow me @twitter


Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες