/* JTOG.H (Jewish to Gregorian calender conversion header) Programmed by Shlomi Fish Programming Start - 24th of June 1993 - " ' Programming End - 8th of July 1993 - " ' MCMXCIII */ #include #ifndef __STRING_H #include #endif #define parts_val(x) (((unsigned long)x.days*24+x.hours)*1080+x.parts) struct JewDay { unsigned long days,hours; unsigned long parts; /*JewDay() {;} JewDay(unsigned newd, unsigned newh, unsigned newp); void optimize(); unsigned long parts_val() {return (((unsigned long)days*24+hours)*1080+parts);} void operator =(JewDay);*/ }; void optimizejd(JewDay *jd) { (*jd).hours += ((*jd).parts/1080) % 65535; (*jd).parts %= 1080; (*jd).days += (*jd).hours / 24; (*jd).hours %= 24; (*jd).days %= 7; } // operators redeclarations for JewDay void assignjd(JewDay *jd,JewDay rval) { (*jd).days = rval.days; (*jd).hours = rval.hours; (*jd).parts = rval.parts; optimizejd(jd); } JewDay addjd(JewDay one, JewDay two) { static JewDay sum; optimizejd(&one);optimizejd(&two); sum.days = one.days + two.days; sum.hours = one.hours + two.hours; sum.parts = one.parts + two.parts; optimizejd(&sum); return sum; } JewDay multijd(JewDay JD, unsigned num) { optimizejd(&JD); unsigned long total_parts = (parts_val(JD) * num) % (24*7*1080); JD.parts = total_parts; JD.hours = JD.days = 0; optimizejd(&JD); return JD; } cmpjd(JewDay l, JewDay r) {return parts_val(l) >= parts_val(r);} JewDay MoladToho, MakhzorModul, RegYModul, LeapYModul, GT_RD, TO_TKPT; void initJDval(void) { assignjd(&MoladToho,2,5,204); assignjd(&MakhzorModul,2,16,595); assignjd(&RegYModul,4,8,876); assignjd(&LeapYModul,5,21,589); assignjd(>_RD,3,9,204); assignjd(&TO_TKPT,2,15,589); } int PONE = 1; int leap[19] = {0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,0,1}; enum year_type {Khasera = 0, Kesidra = 1, Shlema = 2 }; unsigned getLeapYnum(unsigned YSM) { unsigned a, b=0; for (a=0;a= 18) stday++; else {// GT_RD - in Tuesday between three o'clock and 204 parts to midday in a regular year if ((Precise.days==3) && cmpjd(Precise,GT_RD) && !leap[y]) stday++; // TO_TKPT - in Monday, after a leap year if ((Precise.days==2) && cmpjd(Precise,TO_TKPT) && leap[y-1+(y==0)*19]) stday++; } // Regular - not in Sunday, Wednesday or Friday if ((stday == 1) || (stday == 4) || (stday == 6)) stday++; return stday%7; } unsigned getYlength (unsigned year) { unsigned length=0; int day_delta = (FindRoshHashana(year+1) - FindRoshHashana(year)); day_delta += 7 * (day_delta<0); if (leap[(year-PONE)%19] == 0) // a regular year { switch (day_delta) { case 5 : length++; case 4 : length++; case 3 : length += 353; }; } else // a leap year { switch (day_delta) { case 0 : length++; case 6 : length++; case 5 : length += 383; }; } return length; } int findMonthDay(unsigned day, unsigned year, unsigned * jday, unsigned * jmonth, unsigned * jyear, unsigned * wday) { int month_L[13] = {30,29,29,29,30,29,29,30,29,30,29,30,29}, year_L = getYlength(year),m=0, return_=1; *jday = day; // if Kesidra or Shlema if (day ((year_L<360) ? 353 : 383)) month_L[2]++; if (year_L > ((year_L<360) ? 354 : 384)) month_L[1]++; if (year_L>360) month_L[5]++; while ((signed int)*jday-month_L[m] >= 0) { *jday-= month_L[m]; m+= 1 + ((year_L<360) && (m==5)); } *jmonth = m+(m==6)*6-(m>6); // stuff with Adar Alef and Adar Beit... *jyear = year; *wday = (FindRoshHashana(year)+day)%7; } else return_ = 0; return return_; } const unsigned long ML = 765433l; int TotalFindDay(unsigned long days /* since 1 Tishrey 5739*/,unsigned * jday, unsigned * jmonth, unsigned * jyear, unsigned * wday) { // 235M in a makhzur unsigned year=0; unsigned long temp_parts= 11*1080+614,temp_days; int td; while (temp_parts/(24*1080) <= days) { year += 19; temp_parts += ML*235; } year+= 5720; temp_parts -= ML*235; temp_days = temp_parts/(24*1080); td = FindRoshHashana(year)-(addjd(MoladToho,multijd(MakhzorModul,((year-PONE)/19))).days); temp_days += td + (td<0) * 7; if (temp_days > days) { year-= 19;temp_parts -= ML*235; temp_days = temp_parts/(24*1080); td = FindRoshHashana(year)-(addjd(MoladToho,multijd(MakhzorModul,((year-PONE)/19))).days); temp_days += td + (td<0) * 7; } while (temp_days <= days) { temp_days += getYlength(year); year++; } year--; temp_days -= getYlength(year); return findMonthDay(days-temp_days,year, jday,jmonth,jyear,wday); } unsigned long FindTotalDays(unsigned year, unsigned month, unsigned day) //since 1.1.1978; { unsigned long return_; return_ = (year - 1978) * 365; return_ += (year - 1977)/4-1; return_ +=((month>1)+(month>3)+(month>5)+(month>7)+(month>8)+(month>10)) * 31; return_ += ((month>4)+(month>6)+(month>9)+(month>11)) * 30; return_ += (month>2) * ((year%4 == 0) ? 29 : 28); // February return_ += day-1; return return_; } int g2j(unsigned day, unsigned month, unsigned year, unsigned * jday, unsigned * jmonth, unsigned * jyear, unsigned * wday, char * occasion) { *occasion = 0; int return_ = TotalFindDay(FindTotalDays(year,month,day)-273,jday,jmonth,jyear,wday); unsigned yl = getYlength(*jyear); if (((*jmonth == 0) && (*jday < 2)) || ((*jmonth==11) && (*jday == 28))) strcpy(occasion , " "); else if ((*jmonth == 0) && (*jday >7) && (*jday <10)) strcpy(occasion , "-"); else if ((*jmonth == 0) && (*jday > 12) && (*jday < 23)) strcpy(occasion , ""); else if (((*jmonth == 2) && (*jday > 24)) || ((*jmonth == 3) && (*jday < ((yl > ((yl<360) ? 353 : 383)) ? 2 : 3)))) strcpy(occasion , ""); else if ((*jmonth == 4) && (*jday == 14)) strcpy(occasion , " "); else if ((*jmonth == ((yl<360) ? 5 : 12)) && (*jday > 12) && (*jday < 16)) strcpy(occasion , ""); else if ((*jmonth == 6) && (*jday > 4) && (*jday < 22)) strcpy(occasion , ""); else if ((*jmonth == 7) && (*jday == 4)) strcpy(occasion , ""); else if ((*jmonth == 7) && (*jday == 17)) strcpy(occasion , " "); else if ((*jmonth == 8) && (*jday > 3) && (*jday < 7)) strcpy(occasion , ""); else if (*occasion != 0) return_ = 2; return return_; } /* int g2j(uint gday, uint gmonth, uint gyear, uint & jday, uint & jmonth, uint & jyear, uint & wday, char * occasion); // 0 - error // 1 - regular // 2 - holiday */ int main() { initJDval(); int r; unsigned gday=5577, gmonth, gyear, jday, jmonth, jyear, wday; char o[50]; while (gday) { cout << "Please enter the day, month, and year of the gregorian year-\n"; cin >> gday >> gmonth >> gyear; r = g2j(gday,gmonth,gyear,&jday,&jmonth,&jyear,&wday,o); cout << "It's day " << jday+1 << " in month " << jmonth+1 << " in year " << jyear << ", day " << wday << " of the week.\n"; if (r==2) cout << "It's " << o << "!"; } return 0; }