阳历到阴历的转换
/*************************************************************************************************** 哈尔滨市闲人无事发呆有限公司 鼓 捣 所 鼓捣总部 Q Q:958415720 Email:yiwanfuweng@126.com
说 明: 经过几天日子的鼓捣,弄出来了这个万年历阳历转换阴历的转换代码,由于网上很多的代码写的
很乱,起初也不懂关于一些天文的知识,看的迷糊,让我很是无奈就想还是自己写吧偶尔在网上 找到了一个PDF文档叫《公历与农历日期的转换》 让我明白了许多 从而就开始花了一天的时间写 出来了。希望想要做万年历的人拿去用 这是在VC++ 6.0 平台的 直接就可以移植到51,AVR,STM32等等上 的。
作 者: 崔殿川
***************************************************************************************************/
#include
#include \ //年份数据表包含头文件
#include \数据类型宏定义包含头文件(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; //目标日期到元旦天数和年数据表的偏移地址
YearOffsetAdd=(SolarYearNum-1); //获取数据表地址
NewYearToYuanDan_Mon=(YearDataBase[YearOffsetAdd][2]&0x60)>>5; //计算春节所在的月份(不是1月就是2月)
NewYearToYuanDan_Day=(YearDataBase[YearOffsetAdd][2]&0x1f); //从年数据表里获取最后一个字节的第五位只要是计算春节到元旦的日期(Day的天数值) (NewYearToYuanDan_Mon==1)?(temp=NewYearToYuanDan_Day-1):(temp=NewYearToYuanDan_Day+31-1); //temp这才是通过上面得到的春节所在的月份之后最终计算出来春节距离元旦的总天数
TarGetDayT0YuanDan=DayDataBase[SolarMonNum-1]+SolarDayNum-1;//得到目标日期到元旦天数
if ((SolarMonNum>2) && !(SolarYearNum%4))//如果是闰年则加目标天数1 TarGetDayT0YuanDan+=1;
//==============================转化分两块(以春节作为转换中心) 目标日期距离春节前或者春节后=========================//
if(TarGetDayT0YuanDan>=temp) //目标日期在春节之后 {
TarGetDayT0YuanDan-=temp; //求2个天数的差值 SolarMonNum=1;
MonPointer=1; //这时目标值一定是在一月
(GetLunBig_LitMon(MonPointer,YearOffsetAdd))?(LeapMonVal=30):(LeapMonVal=29); //判断闰月的月份是大月还是小月 while(TarGetDayT0YuanDan>=LeapMonVal) //目标日期大于等于闰月(大小月)天数 { TarGetDayT0YuanDan-=LeapMonVal; MonPointer+=1; (GetLunBig_LitMon(MonPointer,YearOffsetAdd))?(LeapMonVal=30):(LeapMonVal=29); if(SolarMonNum==YearDataBase[YearOffsetAdd][0]>>4) //获取第一字节的高四位 (闰月月份的获取) { YearFlag=~YearFlag; if(!YearFlag) SolarMonNum+=1; } else SolarMonNum+=1; }
SolarDayNum=TarGetDayT0YuanDan+1; //最后农历日期天数的获取 }
else //目标日期在春节前 {
temp-=TarGetDayT0YuanDan; SolarYearNum-=1; YearOffsetAdd-=3; SolarMonNum=12;
(YearDataBase[YearOffsetAdd][0]>>4)?(MonPointer=13):(MonPointer=12);
(GetLunBig_LitMon(MonPointer,YearOffsetAdd))?(LeapMonVal=30):(LeapMonVal=29);
while(temp>LeapMonVal) {
temp-=LeapMonVal; MonPointer-=1; if(!YearFlag) SolarMonNum-=1;
if(SolarMonNum==NewYearToYuanDan_Day) YearFlag=~YearFlag;
(GetLunBig_LitMon(MonPointer,YearOffsetAdd))?(LeapMonVal=30):(LeapMonVal=29);
}
SolarDayNum=LeapMonVal-temp+1; //最后农历日期天数的获取 }
LunarYearNum=SolarYearNum; LunarMonNum =SolarMonNum; LunarDayNum =SolarDayNum;
return (0); }
/*********************************************************************************************** -函 数 名:星期修正
-入口参数:对应着公历(阳历)的年(0~99),月(0~12),日(0~31) -返 回 值:当天的星期 说 明: 公历日是非常有规律的所以公历日所对应的星期天可以通过计算直接得到理论上公元0 年1 月1 日为星期日 只要求得公历日离公元0 年1 月1 日的日子数除7 后的余数就是星期天为了简化计算采用月校正法根据公历 的年月日可直接计算出星期天其算法是日期年份所过闰年数月校正数之和除7 的余数就是星期天但如果是在 闰年又不到3 月份上述之和要减一天再除7 其1~12月的校正数据为6,2,2,5,0,3,5,1,4,6,2,4在本程序中采 用1 个字节表示年份闰年数也只计算1900 年以后的闰年数所以实际校正数据也和上述数据不同
详见PDF《公历与农历日期的转换》文档
************************************************************************************************/
#ifdef WEEKREVISE
UINT8 WeekDataBase[12]={6,2,2,5,0,3,5,1,4,6,2,4}; //月修正数据表
UINT8 WeekRevise(UINT8 SolarYearNum,UINT8 SolarMonNum,UINT8 SolarDayNum) {
return (!(SolarYearNum%4) && SolarMonNum<3)?(((SolarDayNum+SolarYearNum+(SolarYearNum/4)+WeekDataBase[SolarMonNum-1])%7)-1):((SolarDayNum+SolarYearNum+(SolarYearNum/4)+WeekDataBase[SolarMonNum-1])%7); }
#endif
int main() {
Solar2Luner(13,3,23);
printf(\ return 0; }
//***************************************************************************** 下面是数据类型宏定义.h文件
******************************************************************************* #ifndef _MYTYPE_H_ #define _MYTYPE_H_
#define UINT8 unsigned char #define UINT16 unsigned int #define UINT32 unsigned long
#define INT8 char #define INT16 int #define INT32 long
#endif
//***************************************************************************** 下面是年份数据表h文件
因为这里是在VC平台上的 就没有把数据表定义在ROM里 如果大家想要移植到51或者AVR等等处理器上 请自己更改、、、
******************************************************************************* #define WEEKREVISE //如果不使用星期修正注释掉这里
unsigned char YearDataBase[99][3]= {
{0x4d,0x4A,0xB8}, //2001 {0x0d,0x4A,0x4C}, //2002
下一篇:没有了
相关推荐:
- [高等教育]优秀教师继续教育学习心得体会
- [高等教育]阳历到阴历的转换
- [高等教育]留守儿童教育案例分析
- [高等教育]华师17春秋学期《玩教具制作与环境布置》在线作业
- [高等教育]测速传感器新型安装装置的现场应用
- [高等教育]人教版小学数学三年级下册第四单元
- [高等教育]创业个人意向书
- [高等教育]山东省潍坊市2012年高考仿真试题(三)英语试题
- [高等教育][恒心][好卷速递]四川省成都外国语学校2012届高三第六
- [高等教育]多少人错把好转反应当成了病情加重处理
- [高等教育]中外广播电视史复习资料整理
- [高等教育]江苏省扬州市江都区宜陵镇中学2014-2015学年八年级英
- [高等教育]工程造价专业毕业实习报告
- [高等教育]广西师范学院心理与教育统计
- [高等教育]aympkrq基于 - asp的博客网站设计与开发毕业论文 - 图
- [高等教育]建筑业外出经营相关流程操作(营改增后)
- [高等教育]人治 德治 法治
- [高等教育][精华篇]常识判断专项训练题库
- [高等教育]中国共产党为什么要实行民主集中
- [高等教育]小学数学第三册第一单元试卷(A、B、C卷各2份)[上学
- 最新人教部编版初中语文七年级下册口技
- 阐述高大模板施工质量管理
- 人民法院高速扫描仪方案最终(1) - 图文
- 中国工业硅金属硅行业市场运行状况及十
- 创建语言文字示范校动员讲话
- 通知公安机关撤销案件通知书
- 物理化学期末考试试题库
- 计算机图形学考试大纲-Read
- 高中数学新课标人教B版《选修二》《选
- 混凝土质量通病治理情况总结
- 七年级下期末学业水平测试数学试卷及答
- XXX同志借调工作鉴定
- 最全的全中文默写版(四级词汇词根+联
- 邓小平理论-填空,名词解释,简答和论
- Apache配置文件http.conf中文说明
- 泥水平衡机械顶管施工方案
- 《2012考研政治考点解析》海天增补本
- 房地产项目开发流程
- 2010年英语教学大纲及样题
- 过氧化氢酶动力学常数测定