Calendar Calculator

Contributed by: Dean Liming

This program calculates the day of the week for a particular date in the Gregorian calendar. It also displays the corresponding Jewish and Islam dates. Other outputs include the date for days are added to the original date,  and the Easter, Greek Easter, and Jewish New Year dates for the given year. You can also specify a second date, and the program will display the days between the two dates.

<<Calendar`
Manipulate[{
DayOfWeekIs == DayOfWeek[{y1,m1, d1}],
JewishDateIs == CalendarChange[{y1,m1,d1},Gregorian, Jewish],
IslamicDateIs == CalendarChange[{y1,m1,d1},Gregorian,Islamic],
JulianDateIs == CalendarChange[{y1,m1,d1},Gregorian, Julian],
DaysAdded == DaysPlus[{y1,m1,d1},dp],
EasterDay == EasterSunday[y1],
GreekEaster == EasterSundayGreekOrthodox[y1],
NewYearJewish == JewishNewYear[y1],
DaysBetweenIs == DaysBetween [{y1,m1,d1}, {y2,m2,d2}]},

{{m1,1,"MonthOne"},1,12,1,ImageSize->Tiny,Appearance->"Labeled"},{{d1,21,"DayOne"},1,31,1,ImageSize->Tiny,Appearance->"Labeled"},{{y1,1945,"YearOne"},1400,2050,1,ImageSize->Large,Appearance->"Labeled"},
{{dp,30, "DaysAdded"},1, 2000,1,ImageSize -> Large,Appearance -> "Labeled"},
{{m2,9,"MonthTwo"},1,12,1,ImageSize->Tiny,Appearance->"Labeled"},{{d2,18,"DayTwo"},1,31,1,ImageSize->Tiny,Appearance->"Labeled"},{{y2,1948,"YearTwo"},1400,2050,1,ImageSize->Large,Appearance->"Labeled"}]