1、公历和农历转换算法详解/C51写的公历转农历和星期#defineucharunsignedchar#defineuintunsignedint#include
2、597=（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,/19120x0d,0x25,0x46,/19130x5d,0x52,0xB
3、A,/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,/19270x24,0x97,0xB7,/19280x04,0x97,0x4
4、A,/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,/19380x00,0x95,0x53,/19390x0d,0x4A,0x48,/19400x6d,0xA5,0x3B,/19410x0B,0x55,0x4f,/19420x05,0x6A,0x45,/19430x4A,0xAd,0xB
5、9,/19440x02,0x5d,0x4d,/19450x09,0x2d,0x42,/19460x2O,0x95,0xB6,/19470x0A,0x95,0x4A,/19480x7B,0x4A,0xBd,/19490x06,0xOA,0x51,/19500x0B,0x55,0x46,/19510x55,0x5A,0xBB,/19520x04,0xdA,0x4e,/19530x0A,0x5B,0x43,/19540x35,0x2B,0xB8,/19550x05,0x2B,0x4O,/19560x8A,0x95,0x3f,/19570x0e,0x95,0x52,/19580x06,0xAA,0x4
6、8,/19590x7A,0xd5,0x3O,/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,/19720x0A,0x4d,0x43,/19730x4d,0x26,0xB
7、7,/19740x0d,0x25,0x4B,/19750x8d,0x52,0xBf,/19760x0B,0x54,0x52,/19770x0B,0x6A,0x47,/19780x69,0x6d,0x3C,/19790x09,0x5B,0x50,/19800x04,0x9B,0x45,/19810x4A,0x4B,0xB9,/19820x0A,0x4B,0x4d,/19830xAB,0x25,0xC2,/19840x06,0xA5,0x54,/19850x06,0xd4,0x49,/19860x6A,0xdA,0x3d,/19870x0A,0xB6,0x51,/19880x09,0x37,0x4
8、6,/19890x54,0x97,0xBB,/19900x04,0x97,0x4f,/19910x06,0x4B,0x44,/19920x36,0xA5,0x37,/19930x0e,0xA5,0x4A,/19940x86,0xB2,0xBf,/19950x05,0xAC,0x53,/19960x0A,0xB6,0x47,/19970x59,0x36,0xBC,/19980x09,0x2e,0x50,/19992940x00,0x96,0x45,/20002970x4d,0x4A,0xB8,/20010x0d,0x4A,0x40,/20020x0d,0xA5,0x41,/20030x25,
9、0xAA,0xB6,/20040x05,0x6A,0x49,/20050x7A,0xAd,0xBd,/20060x02,0x5d,0x52,/20070x09,0x2d,0x47,/20080x50,0x95,0xBA,/20090x0A,0x95,0x4e,/20100x0B,0x4A,0x43,/20110x4B,0x55,0x37,/20120x0A,0xd5,0x4A,/20130x95,0x5A,0xBf,/20140x04,0xBA,0x53,/20150x0A,0x5B,0x48,/2016160x65,0x2B,0xBC,/20170x05,0x2B,0x50,/20180x0
10、A,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,0xAA,0x43,/20300x36,0xB5,0x37,/20310x09,0x6d,0x4B,/20320xB4,0xAe,0xBf,/20330x0
11、4,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,0x4B,0x51,/20450x0A,0xA5,0x46,/20460x5B,0x52,0xBA,/20470x06,0xd2,0x4e,/20480x0
12、A,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,0x2e,0x42,/20600x3C,0x97,0x35,/20610x0C,0x96,0x49,/20620x7d,0x4A,0xBd,/20630x0
13、d,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,0xd5,0x4f,/20750x05,0x5A,0x45,/20760x4A,0x5d,0x38,/20770x0A,0x5B,0x4C,/20780x0
14、5,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,0x93,0x3e,/20900x0d,0x52,0x52,/20910x0d,0xAA,0x47,/20920x66,0xB5,0x3B,/20930x0
15、5,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,0x130,0x14e;/*函数功能：输入BCD阳历数据，输出BCD阴历数据(只允许1901-2099年)调用函数示例：Conversion(c_sun,year_
16、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,day_moon得出阴历BCD数据*/bitc_moon;dataucharyear_moon,month_moon,day_moon,week;/*子函数，用于读取数据表中农历月的大月或小月
17、，如果该月为大返回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_codetable_addr&0x04;if(temp=0)return(0);elsereturn(1);case3:(temp=year_codetable_addr&0x02;if(te
18、mp=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:(temp=year_codetable_addr+1&0x40;if(temp=0)return(0);elsereturn(1);case7:(temp=year_codetable_
19、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);elsereturn(1);case10:(temp=year_codetable_addr+1&0x04;if(temp=0)return(0);elsereturn(1);cas
20、e11:(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(temp=0)return(0);elsereturn(1);/*函数功能：输入BCD阳历数据，输出BCD阴历数据(只允许1901-2099年)调用函数示例：Conversion
21、(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,day_moon得出阴历BCD数据*/voidConversion(bitc,ucharyear,ucharmonth,ucharday)(/c=0为21世纪,c=1为
22、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=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)*0
23、x3;else(table_addr=(year-1)*0x3;定位数据表地址完成取当年春节所在的公历月份temp1=year_codetable_addr+2&0x60;temp1=_cror_(temp1,5);取当年春节所在的公历月份完成取当年春节所在的公历日temp2=year_codetable_addr+2&0x1f;取当年春节所在的公历日完成/计算当年春年离当年元旦的天数，春节只会在公历1月或2月if(temp1=0x1)(temp3=temp2-1;elsetemp3=temp2+0x1f-1;/计算当年春年离当年元旦的夭数完成计算公历日离当年元旦的天数，为
24、了减少运算，用了两个表/day_code19,day_code23如果公历月在九月或前，天数会少于0xff,用表day_code19,在九月后，天数大于0xff,用表day_code23/如输入公历日为8月10日，则公历日离元旦夭数为day_code18-1+10-1/如输入公历日为11月10日，则公历日离元旦夭数为day_code211-10+10-1if(month<10)(temp4=day_code1month-1+day-1;else(temp4=day_code2month-10+day-1;if(month>0x2)&&(year%0x4=0)
25、(如果公历月大于2月并且该年的2月为闰月，天数加1temp4+=1;/计算公历日离当年元旦的夭数完成/判断公历日在春节前还是春节后if(temp4>=temp3)(/公历日在春节后或就是春节当日使用下面代码进行运算temp4-=temp3;month=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天else
26、temp1=0x1e;/大小30天temp2=year_codetable_addr&0xf0;temp2=_cror_(temp2,4);从数据表中取该年的闰月月份，如为0则该年无闰月while(temp4>=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
27、;else公历日在春节前使用下面代码进行运算temp3-=temp4;if(year=0x0)year=0x63;c=1;elseyear-=1;table_addr-=0x3;month=0xc;temp2=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(fla
28、g2=0)temp1=0x1d;elsetemp1=0x1e;while(temp3>temp1)temp3-=temp1;month_p-=1;if(flag_y=0)month-=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);t
29、emp2=year%10;year_moon=temp1|temp2;temp1=month/10;temp1=_crol_(temp1,4);temp2=month%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日Conver
30、sion(0,0x4,0x10,0x16);c_sun,year_sun,month_sun,day_sun均为BCD数据,c_sun为世纪标志位,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
31、,ucharday)/c=0为21世纪,c=1为19世纪输入输出数据均为BCD数据uchartemp1,temp2;temp1=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年之后的
32、temp2=year+temp1;temp2=temp2%0x7;为节省资源，先进行一次取余，避免数大于0xff,避免使用整型数据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,
33、day_sun);Conversion(c_sun,year_sun,month_sun,day_sun);while(1);算法一：公历转农历/*农历转换函数*/char*GetDayOf(PSYSTEMTIMEpSt)(/*天干名称*/constchar*cTianGan=("甲","乙","丙","丁","戊"，"己","庚","辛","壬"，"癸"/*地支名称*/const
34、char*cDiZhi=("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"/*属相名称*/constchar*cShuXiang=("鼠","牛","虎","兔","龙","蛇&quo
35、t;,"马","羊","猴","鸡","狗","猪"/*农历日期名*/constchar*cDayName=("*","初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","H,"十二
36、","十三”，"十四","十五","十六","十","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十"/*农历月份名*/constchar*cMonName
37、=("*","正","二","三","四","五","六","七","八","九","十","H一","腊"/*公历每月前面的天数*/constintwMonthAdd12=0,31,59,90,120,151,181,212,243,273,304,334;/*农历数据*/constintwNongliData100
38、=2635,333387,1701,1748,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,263
39、7,268877,3365,531109,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,wCurMon
41、+wMonthAddwCurMonth-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 42、it/2;nBit=nBit%2;if(nTheDate<=(29+nBit)nIsEnd=1;break;nTheDate=nTheDate-29-nBit;n=n-1;if(nlsEnd)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> 43、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);/*-生成农历月、日=>wNongliDay-*/if(wCu 44、rMonth<1)wsprintf(szNongliDay,"闰%s",cMonName-1*wCurMonth);elsestrcpy(szNongliDay,cMonNamewCurMonth);strcat(szNongliDay,"月");strcat(szNongliDay,cDayNamewCurDay);returnstrcat(szNongli,szNongliDay);首先，我们要确定一个时刻，作为一天的起点(包括这个时刻)。然后我们以月亮通过朔望交界点的那一天作为每个月的第一天，以太阳通过雨水点的那个月作为正月，依次 47、ML-30.EndSelect每年中各月的月份、是否为闰月Fori=1to12ThismonthhasAdays.IfDY>=AThenThismonthisanExtraMonth.DY=DY-AElseThismonthistheiMonth.DY=DY+YL-Ai=i+1EndIfNext这就是我们的核心算法。通过它，我们可以从任何一个包含中气的月份开始向后推算各月各年的情况。由于我们所用的DM、DY、ML、YL都是近似值，若干年后，我们的历法必有偏差，我们只要重新观测，更新DM、DY、ML、YL的 50、年最多有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,intIm,intI