1、公历和农历转换算法详解/C51写的公历转农历和星期#defineucharunsignedchar#defineuintunsignedint#include
2、IT4-0表示春节的公历日期*/codeucharyear_code597=0x04,0xAe,0x53,/190100x0A,0x57,0x48,/190230x55,0x26,0xBd,/190360x0d,0x26,0x50,/190490x0d,0x95,0x44,/1905120x46,0xAA,0xB9,/1906150x05,0x6A,0x4d,/1907180x09,0xAd,0x42,/1908210x24,0xAe,0xB6,/19090x04,0xAe,0x4A,/19100x6A,0x4d,0xBe,/19110x0A,0x4d,0x52,/1
3、9120x0d,0x25,0x46,/19130x5d,0x52,0xBA,/19140x0B,0x54,0x4e,/19150x0d,0x6A,0x43,/19160x29,0x6d,0x37,/19170x09,0x5B,0x4B,/19180x74,0x9B,0xC1,/19190x04,0x97,0x54,/19200x0A,0x4B,0x48,/19210x5B,0x25,0xBC,/19220x06,0xA5,0x50,/19230x06,0xd4,0x45,/19240x4A,0xdA,0xB8,/19250x02,0xB6,0x4d,/19260x09,0x57,0x42,/1
4、9270x24,0x97,0xB7,/19280x04,0x97,0x4A,/19290x66,0x4B,0x3e,/19300x0d,0x4A,0x51,/19310x0e,0xA5,0x46,/19320x56,0xd4,0xBA,/19330x05,0xAd,0x4e,/19340x02,0xB6,0x44,/19350x39,0x37,0x38,/19360x09,0x2e,0x4B,/19370x7C,0x96,0xBf,/19380x0C,0x95,0x53,/19390x0d,0x4A,0x48,/19400x6d,0xA5,0x3B,/19410x0B,0x55,0x4f,/1
5、9420x05,0x6A,0x45,/19430x4A,0xAd,0xB9,/19440x02,0x5d,0x4d,/19450x09,0x2d,0x42,/19460x2C,0x95,0xB6,/19470x0A,0x95,0x4A,/19480x7B,0x4A,0xBd,/19490x06,0xCA,0x51,/19500x0B,0x55,0x46,/19510x55,0x5A,0xBB,/19520x04,0xdA,0x4e,/19530x0A,0x5B,0x43,/19540x35,0x2B,0xB8,/19550x05,0x2B,0x4C,/19560x8A,0x95,0x3f,/1
6、9570x0e,0x95,0x52,/19580x06,0xAA,0x48,/19590x7A,0xd5,0x3C,/19600x0A,0xB5,0x4f,/19610x04,0xB6,0x45,/19620x4A,0x57,0x39,/19630x0A,0x57,0x4d,/19640x05,0x26,0x42,/19650x3e,0x93,0x35,/19660x0d,0x95,0x49,/19670x75,0xAA,0xBe,/19680x05,0x6A,0x51,/19690x09,0x6d,0x46,/19700x54,0xAe,0xBB,/19710x04,0xAd,0x4f,/1
7、9722/1973/1974/1975/1976/1977/1978/1979/1980/1981/1982/1983/1984/1985/1986/1987/1988/1989/1990/1991/1992/1993/1994/1995/1996/1997/1998/1999294/2000297/2001/2002/2003/2004/2005/2006/2007/2008/2009/2010/2011/2012/2013/2014/2015/20160x0A,0x4d,0x43,0x4d,0x26,0xB7,0x0d,0x25,0x4B,0x8d,0x52,0xBf,0x0B
8、,0x54,0x52,0x0B,0x6A,0x47,0x69,0x6d,0x3C,0x09,0x5B,0x50,0x04,0x9B,0x45,0x4A,0x4B,0xB9,0x0A,0x4B,0x4d,0xAB,0x25,0xC2,0x06,0xA5,0x54,0x06,0xd4,0x49,0x6A,0xdA,0x3d,0x0A,0xB6,0x51,0x09,0x37,0x46,0x54,0x97,0xBB,0x04,0x97,0x4f,0x06,0x4B,0x44,0x36,0xA5,0x37,0x0e,0xA5,0x4A,0x86,0xB2,0xBf,
9、0x05,0xAC,0x53,0x0A,0xB6,0x47,0x59,0x36,0xBC,0x09,0x2e,0x50,0x0C,0x96,0x45,0x4d,0x4A,0xB8,0x0d,0x4A,0x4C,0x0d,0xA5,0x41,0x25,0xAA,0xB6,0x05,0x6A,0x49,0x7A,0xAd,0xBd,0x02,0x5d,0x52,0x09,0x2d,0x47,0x5C,0x95,0xBA,0x0A,0x95,0x4e,0x0B,0x4A,0x43,0x4B,0x55,0x37,0x0A,0xd5,0x4A,0x95,0x5A,0x
10、Bf,0x04,0xBA,0x53,0x0A,0x5B,0x48,0x65,0x2B,0xBC,/20170x05,0x2B,0x50,/20180x0A,0x93,0x45,/20190x47,0x4A,0xB9,/20200x06,0xAA,0x4C,/20210x0A,0xd5,0x41,/20220x24,0xdA,0xB6,/20230x04,0xB6,0x4A,/20240x69,0x57,0x3d,/20250x0A,0x4e,0x51,/20260x0d,0x26,0x46,/20270x5e,0x93,0x3A,/20280x0d,0x53,0x4d,/20290x05,
11、0xAA,0x43,/20300x36,0xB5,0x37,/20310x09,0x6d,0x4B,/20320xB4,0xAe,0xBf,/20330x04,0xAd,0x53,/20340x0A,0x4d,0x48,/20350x6d,0x25,0xBC,/20360x0d,0x25,0x4f,/20370x0d,0x52,0x44,/20380x5d,0xAA,0x38,/20390x0B,0x5A,0x4C,/20400x05,0x6d,0x41,/20410x24,0xAd,0xB6,/20420x04,0x9B,0x4A,/20430x7A,0x4B,0xBe,/20440x0A,
12、0x4B,0x51,/20450x0A,0xA5,0x46,/20460x5B,0x52,0xBA,/20470x06,0xd2,0x4e,/20480x0A,0xdA,0x42,/20490x35,0x5B,0x37,/20500x09,0x37,0x4B,/20510x84,0x97,0xC1,/20520x04,0x97,0x53,/20530x06,0x4B,0x48,/20540x66,0xA5,0x3C,/20550x0e,0xA5,0x4f,/20560x06,0xB2,0x44,/20570x4A,0xB6,0x38,/20580x0A,0xAe,0x4C,/20590x09,
13、0x2e,0x42,/206050x3C,0x97,0x35,/20610x0C,0x96,0x49,/20620x7d,0x4A,0xBd,/20630x0d,0x4A,0x51,/20640x0d,0xA5,0x45,/20650x55,0xAA,0xBA,/20660x05,0x6A,0x4e,/20670x0A,0x6d,0x43,/20680x45,0x2e,0xB7,/20690x05,0x2d,0x4B,/20700x8A,0x95,0xBf,/20710x0A,0x95,0x53,/20720x0B,0x4A,0x47,/20730x6B,0x55,0x3B,/20740x0A
14、,0xd5,0x4f,/20750x05,0x5A,0x45,/20760x4A,0x5d,0x38,/20770x0A,0x5B,0x4C,/20780x05,0x2B,0x42,/20790x3A,0x93,0xB6,/20800x06,0x93,0x49,/20810x77,0x29,0xBd,/20820x06,0xAA,0x51,/20830x0A,0xd5,0x46,/20840x54,0xdA,0xBA,/20850x04,0xB6,0x4e,/20860x0A,0x57,0x43,/20870x45,0x27,0x38,/20880x0d,0x26,0x4A,/20890x8e
15、,0x93,0x3e,/20900x0d,0x52,0x52,/20910x0d,0xAA,0x47,/20920x66,0xB5,0x3B,/20930x05,0x6d,0x4f,/20940x04,0xAe,0x45,/20950x4A,0x4e,0xB9,/20960x0A,0x4d,0x4C,/20970x0d,0x15,0x41,/20980x2d,0x92,0xB5,/2099;/月份数据表codeucharday_code19=0x0,0x1f,0x3b,0x5a,0x78,0x97,0xb5,0xd4,0xf3;codeuintday_code23=0x111,0x13
16、0,0x14e;/*函数功能:输入BCD阳历数据,输出BCD阴历数据(只允许1901-2099年)调用函数示例:Conversion(c_sun,year_sun,month_sun,day_sun)如:计算2004年10月16日Conversion(0,0x4,0x10,0x16);c_sun,year_sun,month_sun,day_sun均为BCD数据,c_sun为世纪标志位,c_sun=0为21世纪,c_sun=1为19世纪调用函数后,原有数据不变,读c_moon,year_moon,month_moon
17、,day_moon得出阴历BCD数据*/bitc_moon;dataucharyear_moon,month_moon,day_moon,week;/*子函数,用于读取数据表中农历月的大月或小月,如果该月为大返回1,为小返回0*/bitget_moon_day(ucharmonth_p,uinttable_addr)uchartemp;switch(month_p)case1:temp=year_codetable_addr&0x08;if(temp=0)return(0);elsereturn(1);case2:temp=year_codet
18、able_addr&0x04;if(temp=0)return(0);elsereturn(1);case3:temp=year_codetable_addr&0x02;if(temp=0)return(0);elsereturn(1);case4:temp=year_codetable_addr&0x01;if(temp=0)return(0);elsereturn(1);case5:temp=year_codetable_addr+1&0x80;if(temp=0)return(0);elsereturn(1);case6:te
19、mp=year_codetable_addr+1&0x40;if(temp=0)return(0);elsereturn(1);case7:temp=year_codetable_addr+1&0x20;if(temp=0)return(0);elsereturn(1);case8:temp=year_codetable_addr+1&0x10;if(temp=0)return(0);elsereturn(1);case9:temp=year_codetable_addr+1&0x08;if(temp=0)return(0);else
20、return(1);case10:temp=year_codetable_addr+1&0x04;if(temp=0)return(0);elsereturn(1);case11:temp=year_codetable_addr+1&0x02;if(temp=0)return(0);elsereturn(1);case12:temp=year_codetable_addr+1&0x01;if(temp=0)return(0);elsereturn(1);case13:temp=year_codetable_addr+2&0x80;if
21、(temp=0)return(0);elsereturn(1);/*函数功能:输入BCD阳历数据,输出BCD阴历数据(只允许1901-2099年)调用函数示例:Conversion(c_sun,year_sun,month_sun,day_sun)如:计算2004年10月16日Conversion(0,0x4,0x10,0x16);c_sun,year_sun,month_sun,day_sun均为BCD数据,c_sun为世纪标志位,c_sun=0为21世纪,c_sun=1为19世纪调用函数后,原有数据不变,读c
22、_moon,year_moon,month_moon,day_moon得出阴历BCD数据*/voidConversion(bitc,ucharyear,ucharmonth,ucharday)/c=0为21世纪,c=1为19世纪输入输出数据均为BCD数据uchartemp1,temp2,temp3,month_p;uinttemp4,table_addr;bitflag2,flag_y;temp1=year/16;/BCD->hex先把数据转换为十六进制temp2=year%16;year=temp1*10+temp2;temp1
23、=month/16;temp2=month%16;month=temp1*10+temp2;temp1=day/16;temp2=day%16;day=temp1*10+temp2;/定位数据表地址if(c=0)table_addr=(year+0x64-1)*0x3;elsetable_addr=(year-1)*0x3;/定位数据表地址完成/取当年春节所在的公历月份temp1=year_codetable_addr+2&0x60;temp1=_cror_(temp1,5);/取当年春节所在的公历月份完成/取当年春节所在的公历日temp2=year_codeta
24、ble_addr+2&0x1f;/取当年春节所在的公历日完成/计算当年春年离当年元旦的天数,春节只会在公历1月或2月if(temp1=0x1)temp3=temp2-1;elsetemp3=temp2+0x1f-1;/计算当年春年离当年元旦的天数完成/计算公历日离当年元旦的天数,为了减少运算,用了两个表/day_code19,day_code23/如果公历月在九月或前,天数会少于0xff,用表day_code19,/在九月后,天数大于0xff,用表day_code23/如输入公历日为8月10日,则公历日离元旦天数为day_code18-1+
25、10-1/如输入公历日为11月10日,则公历日离元旦天数为day_code211-10+10-1if(month<10)temp4=day_code1month-1+day-1;elsetemp4=day_code2month-10+day-1;if(month>0x2)&&(year%0x4=0)/如果公历月大于2月并且该年的2月为闰月,天数加1temp4+=1;/计算公历日离当年元旦的天数完成/判断公历日在春节前还是春节后if(temp4>=temp3)/公历日在春节后或就是春节当日使用下面代码进行运算temp4-=temp3;m
26、onth=0x1;month_p=0x1;/month_p为月份指向,公历日在春节前或就是春节当日month_p指向首月flag2=get_moon_day(month_p,table_addr);/检查该农历月为大小还是小月,大月返回1,小月返回0flag_y=0;if(flag2=0)temp1=0x1d;/小月29天elsetemp1=0x1e;/大小30天temp2=year_codetable_addr&0xf0;temp2=_cror_(temp2,4);/从数据表中取该年的闰月月份,如为0则该年无闰月while(temp4>
27、;=temp1)temp4-=temp1;month_p+=1;if(month=temp2)flag_y=flag_y;if(flag_y=0)month+=1;elsemonth+=1;flag2=get_moon_day(month_p,table_addr);if(flag2=0)temp1=0x1d;elsetemp1=0x1e;day=temp4+1;else/公历日在春节前使用下面代码进行运算temp3-=temp4;if(year=0x0)year=0x63;c=1;elseyear-=1;table_addr-=0x3;month=0xc;temp2
28、=year_codetable_addr&0xf0;temp2=_cror_(temp2,4);if(temp2=0)month_p=0xc;elsemonth_p=0xd;/*month_p为月份指向,如果当年有闰月,一年有十三个月,月指向13,无闰月指向12*/flag_y=0;flag2=get_moon_day(month_p,table_addr);if(flag2=0)temp1=0x1d;elsetemp1=0x1e;while(temp3>temp1)temp3-=temp1;month_p-=1;if(flag_y=0)mont
29、h-=1;if(month=temp2)flag_y=flag_y;flag2=get_moon_day(month_p,table_addr);if(flag2=0)temp1=0x1d;elsetemp1=0x1e;day=temp1-temp3+1;c_moon=c;/HEX->BCD,运算结束后,把数据转换为BCD数据temp1=year/10;temp1=_crol_(temp1,4);temp2=year%10;year_moon=temp1|temp2;temp1=month/10;temp1=_crol_(temp1,4);temp2=mon
30、th%10;month_moon=temp1|temp2;temp1=day/10;temp1=_crol_(temp1,4);temp2=day%10;day_moon=temp1|temp2;/*函数功能：输入BCD阳历数据，输出BCD星期数据(只允许1901-2099年)调用函数示例:Conver_week(c_sun,year_sun,month_sun,day_sun)如:计算2004年10月16日Conversion(0,0x4,0x10,0x16);c_sun，year_sun，month_sun，day_sun均为BCD数据，c_sun为世纪
31、标志位，c_sun=0为21世纪,c_sun=1为19世纪调用函数后，原有数据不变，读week得出阴历BCD数据*/codeuchartable_week12=0,3,3,6,1,4,6,2,5,0,3,5;/月修正数据表/*算法:日期+年份+所过闰年数+月较正数之和除7的余数就是星期但如果是在闰年又不到3月份上述之和要减一天再除7星期数为0*/voidConver_week(bitc,ucharyear,ucharmonth,ucharday)/c=0为21世纪,c=1为19世纪输入输出数据均为BCD数据uchartemp1,temp2;te
32、mp1=year/16;/BCD->hex先把数据转换为十六进制temp2=year%16;year=temp1*10+temp2;temp1=month/16;temp2=month%16;month=temp1*10+temp2;temp1=day/16;temp2=day%16;day=temp1*10+temp2;if(c=0)year+=0x64;/如果为21世纪,年份数加100temp1=year/0x4;/所过闰年数只算1900年之后的temp2=year+temp1;temp2=temp2%0x7;/为节省资源，先进行一次取余，避免数大于0xf
33、f,避免使用整型数据temp2=temp2+day+table_weekmonth-1;if(year%0x4=0&&month<3)temp2-=1;week=temp2%0x7;/testucharc_sun,year_sun,month_sun,day_sun;voidmain()c_sun=1;year_sun=0x2;month_sun=0x11;day_sun=0x3;Conver_week(c_sun,year_sun,month_sun,day_sun);Conversion(c_sun,year_sun,month_sun,day_sun);w
34、hile(1);算法一：公历转农历/*农历转换函数*/char*GetDayOf(PSYSTEMTIMEpSt)/*天干名称*/constchar*cTianGan="甲","乙","丙","丁","戊","己","庚","辛","壬","癸"/*地支名称*/constchar*cDiZhi="子","丑","
35、寅","卯","辰","巳","午","未","申","酉","戌","亥"/*属相名称*/constchar*cShuXiang="鼠","牛","虎","兔","龙","蛇","马","羊","猴",&qu
36、ot;鸡","狗","猪"/*农历日期名*/constchar*cDayName="*","初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四"
37、,"十五","十六","十","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十"/*农历月份名*/constchar*cMonName="*","正
38、","二","三","四","五","六","七","八","九","十","十一","腊"/*公历每月前面的天数*/constintwMonthAdd12=0,31,59,90,120,151,181,212,243,273,304,334;/*农历数据*/constintwNongliData100=2635,333387,1701,17
39、48,267701,694,2391,133423,1175,396438,3402,3749,331177,1453,694,201326,2350,465197,3221,3402,400202,2901,1386,267611,605,2349,137515,2709,464533,1738,2901,330421,1242,2651,199255,1323,529706,3733,1706,398762,2741,1206,267438,2647,1318,204070,3477,461653,1386,2413,330077,1197,2637,268877,3365,53
40、1109,2900,2922,398042,2395,1179,267415,2635,661067,1701,1748,398772,2742,2391,330031,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222,268949,3402,3493,133973,1386,464219,605,2349,334123,2709,2890,267946,2773,592565,1210,2651,395863,1323,2707,265877;staticintwCurYear,wCurMonth,wCurDay;stat
42、AddwCurMonth-1-38;if(!(wCurYear%4)&&(wCurMonth>2)nTheDate=nTheDate+1;/*-计算农历天干、地支、月、日-*/nIsEnd=0;m=0;while(nIsEnd!=1)if(wNongliDatam<4095)k=11;elsek=12;n=k;while(n>=0)/获取wNongliData(m)的第n个二进制位的值nBit=wNongliDatam;for(i=1;i 43、t/2;nBit=nBit%2;if(nTheDate<=(29+nBit)nIsEnd=1;break;nTheDate=nTheDate-29-nBit;n=n-1;if(nIsEnd)break;m=m+1;wCurYear=1921+m;wCurMonth=k-n+1;wCurDay=nTheDate;if(k=12)if(wCurMonth=wNongliDatam/65536+1)wCurMonth=1-wCurMonth;elseif(wCurMonth 44、>wNongliDatam/65536+1)wCurMonth=wCurMonth-1;/*-生成农历天干、地支、属相=>wNongli-*/wsprintf(szShuXiang,"%s",cShuXiang(wCurYear-4)%60)%12);wsprintf(szNongli,"%s(%s%s)年",szShuXiang,cTianGan(wCurYear-4)%60)10,cDiZhi(wCurYear-4)%60)%12);/*-生成农历月、日=> 45、wNongliDay-*/if(wCurMonth<1)wsprintf(szNongliDay,"闰%s",cMonName-1*wCurMonth);elsestrcpy(szNongliDay,cMonNamewCurMonth);strcat(szNongliDay,"月");strcat(szNongliDay,cDayNamewCurDay);returnstrcat(szNongli,szNongliDay);首先，我们要确定一个时刻，作为一天的起点(包括这个时刻)。然后我们以月亮通过朔望交界点的那 48、monthhave30days.TheDMofnextmonthisDM+ML-30.EndSelect每年中各月的月份、是否为闰月Fori=1to12ThismonthhasAdays.IfDY>=AThenThismonthisanExtraMonth.DY=DY-AElseThismonthistheiMonth.DY=DY+YL-Ai=i+1EndIfNext这就是我们的核心算法。通过它，我们可以从任何一个包含中气的月份开始向后推算各月各年的情况。由于我们所用的DM、DY、ML 49、、YL都是近似值，若干年后，我们的历法必有偏差，我们只要重新观测，更新DM、DY、ML、YL的值就可以了。事实上，诸朝气数最多不过400年，在这些值精确到万分位的时候，通行一朝是完全可以的。下面对大小月的排列和闰月的出现作一些定性分析显然OWDMv1那么DMv0.4694时，当月为小月，下月为大月DM>0.4694时，当月为大月DMv0.4694*2时，下月为小月，下下月为大月DM>0.4694*2时，下月亦为大月，下下月为小月所以，大小月一般是交替出现，有时会出现连续两个月是大月的情况，但不会出现连续三个月或更多的是大月的情况，也不会出 51、时候，必然有且仅有一个月没有中气，那个月就时闰月，这一年就称为闰年。平年的时候，根据大小月的排列规则，一年最多有8个大月，最少有6个大月，因为ML*12+1v30*8+29*(12-8)，所以不可能有8个大月，最多为7个大月，那么一年就为354或355天。闰年的时候，根据大小月的排列规则，一年最多有9个大月，最少有6个大月，因为ML*13+1v30*8+29*(13-8)，所以不可能有8个或更多的大月，最多为7个大月，那么一年就为383或384天。因为每月的天数不固定，所以闰月的出现规律也不好讨论，连续十二个月的天数也不固定，所以闰年的出现规律也不好讨论。不过可以肯定是，每年的第一个月肯定不是闰月，因为我们是以包含中气雨水的月份作为正月，也就是每年的第一个月的。所以，闰月必定出现在某个有名字的月份后面，出现在哪个后面就叫闰哪月。由于有闰月，所以函数形式：inttoSolar(intly,intlm,intld