阳历-农历[1]

年小一年，农历大小月取前一年的信息，农历月从12 月向前推算。 2.5、程序流程图： 阳历－农历子程序入口
读入标志字节之后？
Y
农历年＝阳历年－1
农历年＝阳历年
取上一年农历信息
取本年农历信息
逐月向前推算日期
逐月向后推算日期
标准化农历年月日
子程序出口
2.6、C51 程序源代码： 2.6.1、头文件<yltonl.h>定义： #define uchar unsigned char #define uint unsigned int //input: yy/mm/dd 阳历日期 uchar yangli_year; uchar yangli_month; uchar yangli_date; //output：yy/mm/dd 农历日期 uchar data nongli_year; uchar data nongli_month; uchar data nongli_date; //农历年信息标志字节
2、功能实现：
2.1、农历年信息表示： 2.1.1 农历大月 30 天，小月 29 天【用 1×12bit 表示大小月信息】 2.1.2 如有闰月一年 13 月，否则 12 月【用 4bit 表示闰月的月份，0 表示无闰月】 2.1.2 参照日：农历正月初一对应的阳历日期【日用 5bit 表示】 ； 【月用 2bit 表示】 农历一年信息共计 12＋4＋5＋2＝23bit 表示【可用 3 字节表示一农历年的信息】 2.2、农历年信息存放格式： 第一字节：bit7-bit4【闰月所在月份】bit3-bit0【农历 1-4 月的大小】 第二字节：bit7-bit0【农历 5-12 月的大小】1->30 天；0->29 天 第三字节：bit6-bit5【春节所在阳历月份】bit4-bit0【春节所在阳历日期】 2.3、下面统计(2001－2020)20年的农历年信息(共占用3×20＝60字节) 0x4D,0x4A,0x0B8, //2001 0x0B,0x4A,0x43, //2011 0x0D,0x4A,0x4C, //2002 0x4B,0x55,0x37, //2012 0x0D,0x0A5,0x41, //2003 0x0A,0x0D5,0x4A, //2013 0x25,0x0AA,0x0B6, //2004 0x95,0x5A,0x0BF, //2014 0x05,0x6A,0x49, //2005 0x04,0x0BA,0x53, //2015 0x7A,0x0AD,0x0BD, //2006 0x0A,0x5B,0x48, //2016 0x02,0x5D,0x52, //2007 0x65,0x2B,0x0BC, //2017 0x09,0x2D,0x47, //2008 0x05,0x2B,0x50, //2018 0x5C,0x95,0x0BA, //2009 0x0A,0x93,0x45, //2019 0x0A,0x95,0x4E, //2010 0x47,0x4A,0x0B9 //2020 2.4、阳历－农历转换原理： 先计算出公历日离当年元旦的天数， 然后查表取得当年的春节日期， 计算出春节离元旦的天数， 二者相减即可算出公历日离春节的天数； 以后只要根据大小月和闰月信息减一月天数， 调整一 月农历月份，即可推算出公历日所对应的农历日期，如公历日不到春节日期，农历年要比公历
基于 C51 实现阳历－农历的转换
刘波 清华东路 27 号 1022 邮编 100083 摘 要：本文提出了一种基于 Keil-C 实现阳历－农历转换的单片机实现方案，设计原理采用 查表法，程序代码空间小，基于模块化设计，可广泛应用于嵌入式系统设计。 关键字：Keil-C，阳历－农历，嵌入式系统
1、概述：
阳历是全世界通用的历法，以地球绕太阳的一周为一年，一年365 天，分为12 月：1 3 5 7 8 10 12月为31天,2月为28天(闰年29天)其余月份为30天。历法规定：闰年是能被4整除的年份 中扣除仅能被100整除而不能被400整除的年份。 农历与公历不同，农历把月亮绕地球一周作为一月。因为月亮绕地球一周不是一整天，所 以农历把月份分为大月和小月：大月30天，小月29天。通过设置大小月使农历日始终与月亮与 地球的位置相对应， 为了使农历的年份与阳历年份相对应， 农历通过设置闰月的办法使它的平 均年长度与公历年相等。农历是中国传统文化的代表之一，并与农业生产联系密切，中国人民 特别是广大农民十分熟悉并喜爱农历。 阳历与农历是我国目前并存的两种历法，各有其固有的规律。农历与月球的运行相对应， 其影响因素多，它的大小月和闰月与天体运行有关，计算十分复杂，且每年都不一致。因此要 用单片机实现公历与农历的转换，查表法是最方便实用的方法，本文即介绍一种基于Keil-C 的阳历－农历转换查表实现方案。
uchar flag_byte1; uchar flag_byte2; uchar flag_byte3; //阳历日期距元旦的天数，春节日期距元旦的天数 uint yangli_num ; uint nongli_num ; //农历月每月天数 uchar month_num[13]; #define start_year 0x01 //start 2001 //可根据你的设计进行修改 //阳历年每月之前各月的总天数 nr－非闰年 r－闰年 code uint yl_num_nr[13]={0,0,31,59,90,120,151,181,212,243,273,304,334}; code uint yl_num_r[13]={0,0,31,60,91,121,152,182,213,244,274,305,335}; //2001-2020 年的农历信息 code uchar flag_data[20][3]={ //20 年农历年信息 0x4d,0x4A,0x0B8, //2001 0x0d,0x4A,0x4C, //2002 0x0d,0x0A5,0x41, //2003 0x25,0x0AA,0x0B6, //2004 0x05,0x6A,0x49, //2005 0x7A,0x0Ad,0x0Bd, //2006 0x02,0x5d,0x52, //2007 0x09,0x2d,0x47, //2008 0x5C,0x95,0x0BA, //2009 0x0A,0x95,0x4e, //2010 0x0B,0x4A,0x43, //2011 0x4B,0x55,0x37, //2012 0x0A,0xd5,0x4A, //2013 0x95,0x5A,0x0Bf, //2014 0x04,0x0BA,0x53, //2015 0x0A,0x5B,0x48, //2016 0x65,0x2B,0x0BC, //2017 0x05,0x2B,0x50, //2018 0x0A,0x93,0x45, //2019 0x47,0x4A,0x0B9 //2020 }; 2.6.2 源程序<yltonl.c>: #include <reg51.h> #include <intrins.h> #include <yltonl.h> //***************************************************************** //name: read_data() //function: read flag_data[][] and store in flag_byte[] //return: no void read_data(void){ uchar temp_data1;
else {month_num[12-i]=29; temp_data3=temp_data3>>1;} } month_num[temp_data4]+=month_num[temp_data4]; } //****************************************************************** //name: get_nongli() //function: based on above data,get nongli_year、nongli_month、nongli_date void get_nongli(void){ uchar bdata temp_data3; // bdata 型,可位寻址, 存放农历闰月月份 uchar i; if (yangli_num>=nongli_num){ //公历日在当年春节之后 nongli_year=yangli_year; //农历年＝阳历年 yangli_num-=nongli_num; yangli_num+=1; //农历日距春节的天数 while(yangli_num>month_num[i]) { yangli_num-=month_num[i]; i++;} //已求出月份和日期 nongli_month=i; if(yangli_num>30) {yangli_num-=month_num[i]<<1;} //是闰月调整 nongli_date=yangli_num; } //阳历日在当年春节之前 else { nongli_year=yangli_year-1; nongli_num-=yangli_num; //距春节的天数，在春节之前 //取上一年信息 //此时一般是 10，11，12 月 temp_data3=flag_data[yangli_year-start_year-1][1]; //更新农历月份标志 for (i=0;i<=2;i++){ //只计算 10－12 月且不用考虑闰月 if (temp_data3 & 0x01){ month_num[12-i]=30; temp_data3=temp_data3>>1;} else {month_num[12-i]=29; temp_data3=temp_data3>>1;} } for(i=12;nongli_num>month_num[i];i--) nongli_num-=month_num[i]; //得到月份和日期 nongli_month=i; nongli_date=month_num[i]-nongli_num+1; } } //****************************************************************** //name: void yl_to_nl(void) //function: yangli to nongli //input: no //农历闰月天数调整