Newest functions Upload a function Leave a tip My account

There are 2,520 functions in this library.

Easter ( theYear ; method1J2O3G )

Returns Julian, Orthodox, or Gregorian Easter dates for years 326 to 4000 (or 4099).

  Average rating: 4.5 (30 votes) Log in to vote

Lewis Lorenz - Show more from this author Lorenz Companies http://www.LorenzCom.com

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let ( [ x = Position ( "JOG" ; Left ( method1J2O3G ; 1 ) ; 1 ; 1 ) ; //Calendar initial (Julian, Orthodox, or Gregorian), if passed. x = If ( x ; x ; GetAsNumber ( method1J2O3G ) ) ; //Calendar number (1=Julian, 2=Orthodox, or 3=Gregorian), if passed. x = If ( x > 0 and x < 4 ; x ; 3 ) ; //Julian, Julian to Gregorian (Orthodox), Gregorian (default) method. y = GetAsNumber ( theYear ) ; y = Case ( x = 1 and ( y < 326 or y > 4099 ) ; 326 ; x > 1 and ( y < 1583 or y > 4099 ) ; 1583 ; y ) ; //Validate to minimum valid year for requested calendar, if out of range. Comment this line to remove validation. d = 0 ; m = 0 ; //Initialize day and month. firstdig = Div ( y ; 100 ) ; //First 2 digits of year (century). remain19 = Mod ( y ; 19 ) ; d = If ( x < 3 ; //Method 1 or 2. Let ( [ //Calculate Paschal Full Moon (PFM) for Julian or Orthodox. tA = Mod ( 225 - 11 * remain19 ; 30 ) + 21 ; //Find the next Sunday tB = Mod ( tA - 19 ; 7 ) ; tC = Mod ( 40 - firstdig ; 7 ) ; temp = Mod ( y ; 100 ) ; tD = Mod ( temp + Div ( temp ; 4 ) ; 7 ) ; tE = Mod ( 20 - tB - tC - tD ; 7 ) + 1 ; d = tA + tE ; d = If ( x = 2 ; //If Orthodox, convert Julian to Gregorian. Let ( [ tmp = 10 ; tmp = If ( y > 1600 ; tmp + firstdig - 16 - Div ( firstdig - 16 ; 4 ) ; tmp ) ] ; d + tmp ) ; d ) //End convert Julian to Gregorian. ] ; d ) ; //End of PFM calculation for Julian or Orthodox. 'Let' returns d. //Else, method 3. Let ( [ //Calculate PFM for Gregorian. //Phil Caulkin code: temp = Div ( ( FirstDig - 15 ) ; 2 ) + 202 - 11 * Remain19 ; //Note that for all years prior to 2100, you can just use Mod ( Temp ; 30 ) in place of this case function temp2 = Case ( ValueCount ( FilterValues ( List ( 21 ; 24 ; 25 ; 27 ; 28 ; 29 ; 30 ; 31 ; 32 ; 34 ; 35 ; 38 ) ; FirstDig ) ) ; Mod ( temp - 1 ; 30 ) ; ValueCount ( FilterValues ( List ( 33 ; 36 ; 37 ; 39 ; 40 ) ; FirstDig ) ) ; Mod ( temp - 2 ; 30 ) ; Mod ( temp ; 30 ) ) ; tA = temp2 + 21 ; tA2 = Case ( temp2 = 29 ; tA - 1 ; temp2 = 28 and Remain19 > 10 ; tA - 1 ; /*else*/ tA ) ; //Find the next Sunday tB = Mod ( tA2 - 19 ; 7 ) ; tC = Mod ( 40 - FirstDig ; 4 ) ; tC2 = Case ( tC = 3 ; tC + 2 ; /*must be + 2 to match succeeding step that also increments by 1 in original algorithm*/ tC > 1 ; tC + 1 ; /*else*/ tc ) ; temp3 = Mod ( y ; 100 ) ; tD = Mod ( temp3 + Div ( temp3 ; 4 ) ; 7 ) ; tE = Mod (20 - tB - tC2 - tD ; 7 ) + 1 ; d = tA2 + tE //Day of month but not yet adjusted for values greater than 31 //End Phil Caulkin's enhanced code. ] ; d ) //End of PFM calculation for Gregorian. 'Let' returns d. ) ; //End of assigning d to Julian, Orthodox, or Gregorian Easter number. //Adjust month and day. m = Case ( d > 61 ; 5 ; d > 31 ; 4 ; 3 ) ; d = Case ( d > 61 ; d - 61 ; d > 31 ; d - 31 ; d ) ] ; //GetAsText ( m ) & "/" & GetAsText ( d ) & "/" & GetAsText ( y ) //Un-comment to get years 1 to 4099. Date ( m ; d ; y ) //FileMaker Date returns years 1 to 4000. ) /* Easter ( theYear ; method1J2O3G ) By Lewis Lorenz Updated 4/4/2018. Returns Julian, Orthodox, or Gregorian Easter dates for years 326 to 4000 (or 4099). theYear = the 4 digit year for which the date of Easter is requested. method1J2O3G = a number or initial to indicate which calendar is used to calculate the Easter date (1=Julian, 2=Orthodox, and 3=Gregorian). Defaults to 3 if blank or out of range. Year validation changes the year to the minimum year that can be calculated for the calendar method. Validation can be commented out in this code, but dates less than the minimum may not be accurate. Easter for years 4001 to 4099 can be retrieved as text by un-commenting the code at the end of the function. Comment the following FileMaker Date function line if you do this. Instrumental Gregorian calendar code enhancement by Phil Caulkin. Code based on Ronald W. Mallen's reasearch and Greg Mallen's algorithm. See http://www.gmarts.org/index.php?go=415. ====================================================== Method 1: ORIGINAL CALCULATION From 326 AD, Easter Sunday was determined as the Sunday following the Paschal Full Moon (PFM) date for the year based on the Julian Calendar. PFM dates were made up of a simple cycle of 19 Julian calendar dates. This method returns a Julian calendar date, and applies for all years from 326 (The author's last known use of the Julian calendar was in Greece in 1923). ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Method 2: ORIGINAL CALCULATION converted to GREGORIAN CALENDAR Same (original) calculation, also converts the Julian calendar date to the equivalent Gregorian calendar date. It applies for years 1583 to 4099. This method is currently used by Orthodox Churches. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Method 3: REVISED CALCULATION This method calculates Easter Sunday as the Sunday following the Paschal Full Moon (PFM) date for the year based on the Gregorian Calendar. PFM dates are calculated from the relationship between the sun, moon & earth (as understood in 1582) using many 19 Gregorian calendar date cycles. This method was adopted from 1583 in Europe, 1753 in England and is currently used by Western churches. ================================================ */ Click to copy

Returns Julian, Orthodox, or Gregorian Easter dates for years 326 to 4000 (or 4099).

theYear = the 4 digit year for which the date of Easter is requested.
method1J2O3G = a number or initial to indicate which calendar is used to calculate the Easter date (1=Julian, 2=Orthodox, and 3=Gregorian). Defaults to 3 if blank or out of range.

Year validation changes the year to the minimum year that can be calculated for the calendar method. Validation can be commented out in this code, but dates less than the minimum may not be accurate.
Easter for years 4001 to 4099 can be retrieved as text by un-commenting the code at the end of the function. Comment the following FileMaker Date function line if you do this.

Updated 4/4/2018.

Instrumental Gregorian calendar code enhancement by Phil Caulkin.
Code based on Ronald W. Mallen's reasearch and Greg Mallen's algorithm.
See http://www.gmarts.org/index.php?go=415.
======================================================
Method 1: ORIGINAL CALCULATION
From 326 AD, Easter Sunday was determined as the
Sunday following the Paschal Full Moon (PFM) date
for the year based on the Julian Calendar. PFM dates
were made up of a simple cycle of 19 Julian calendar
dates. This method returns a Julian calendar date,
and applies for all years from 326
(The author's last known use of the Julian calendar
was in Greece in 1923).
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Method 2: ORIGINAL CALCULATION converted to GREGORIAN CALENDAR
Same (original) calculation, also converts the Julian
calendar date to the equivalent Gregorian calendar date.
It applies for years 1583 to 4099. This method
is currently used by Orthodox Churches.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Method 3: REVISED CALCULATION
This method calculates Easter Sunday as the Sunday
following the Paschal Full Moon (PFM) date for the
year based on the Gregorian Calendar. PFM dates are
calculated from the relationship between the sun,
moon & earth (as understood in 1582) using many 19
Gregorian calendar date cycles. This method was
adopted from 1583 in Europe, 1753 in England and is
currently used by Western churches.
================================================

 

Comments

		Vaughan, Sydney AUstralia Oct 21, 2012
Works well, thanks.

		Johan Söderberg, Distingo Scenproduktion Mar 2, 2013
Beautiful! Thanks.

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: