[阳历到阴历的转换.docVIP

/*************************************************************************************************** 哈尔滨市闲人无事发呆有限公司 鼓 捣 所 鼓捣总部 Q Q：958415720 Email:yiwanfuweng@126.com 说 明: 经过几天日子的鼓捣，弄出来了这个万年历阳历转换阴历的转换代码，由于网上很多的代码写的 很乱，起初也不懂关于一些天文的知识，看的迷糊，让我很是无奈就想还是自己写吧偶尔在网上 找到了一个PDF文档叫《公历与农历日期的转换》 让我明白了许多 从而就开始花了一天的时间写 出来了。希望想要做万年历的人拿去用 这是在VC++ 6.0 平台的 直接就可以移植到51,AVR,STM32等等上 的。 作 者: 崔殿川 ***************************************************************************************************/ #include stdio.h #include test.h //年份数据表包含头文件 #include mytype.h//数据类型宏定义包含头文件(UINT8 UINT16 UINT32....) UINT8 LunarYearNum=0,LunarMonNum=0,LunarDayNum=0;//转化回来的阴历数值就存在相应的变量中(全局的) UINT16 DayDataBase[12]={0,32,59,90,120,151,181,212,243,273,304,334}; /********************************************************************************** 函 数 名：获取农历的大小月份 入口参数：Mon: 当年的月份数(农历的0~13) YearOffsetAdd: 年份数据表里的偏移地址 返 回 值：0：大月份(30天) 1：小月份(29天) 说 明：大小月的获取主要是从年份数据表里三个字节的高13位当中获取 如果对应为是1则 是大月30天，小月29天 ************************************************************************************/ UINT8 GetLunBig_LitMon(UINT8 Mon,UINT16 YearOffsetAdd) { UINT8 i=0; (YearDataBase[YearOffsetAdd][(Mon=9)?(Mon/5):((Mon=12)?(Mon/10):(Mon/5))]((Mon/5)?((Mon==13)?(0x80):(0x80(Mon-5))):(0x08(Mon-1))))? (i=1):(i=0); return (i); } /********************************************************************************** 函 数 名：公历到农历的转换 入口参数：对应着公历(阳历)的年(0~99)，月(0~12)，日(0~31) 返 回 值：0 ***********************************************************************************/ UINT8 Solar2Luner(UINT8 SolarYearNum,UINT8 SolarMonNum,UINT8 SolarDayNum) { UINT8 LeapMonVal=0; //农历闰月天数值变量 UINT8 NewYearToYuanDan_Mon=0,NewYearToYuanDan_Day=0; //定义春节所在的月份数(不是1月就是2月) UINT8 YearFlag=0,MonPointer=0; //农历年的缓存标志和月份的偏移量 UINT8 temp=0; //春节距离元旦的天数 UINT16 TarGetDayT0YuanDan=0,YearOffsetAdd=0; //目标日期到元旦天数和年数据