C++阳历转阴历算法及实现

来源：互联网发布：java reference 编辑：程序博客网时间：2024/05/21 22:54

关于日历的一些基本常识：

阳历：每年12个月，1、3、5、7、8、10、12月都为31天；2月份平年28天，闰年（(year%400==0)||(year%4==0&&year%100!=0)）为29天，其余月份为30天。

闰年（year）：(year%400==0)||(year%4==0&&year%100!=0)

据此可知，某一天是星期几可通过下面的函数返回值获取：

int weekOfDate(int year,int month,day){return (day+2*month+3*(month+1)/5+year+year/4-year/100+year/400)%7+1; }

阴历，却没有这些规律可循。阴历分大小月，大月30天，小月29天，但一年中哪个月为大月，哪个月为小月，却是不定的。阴历每十年有4个润年，但哪一年为润年也是不定的。而润月中，哪个润月为大月，哪个为小月也是不定的。因此，推算阴历就没有一个统一的算法。

阴历：阴历是要靠天文观测的，因此上面这些不确定的数据，是可以从天文台得到的。

自定义一个农历数据信息，用数组表示为：

unsigned long int LunarInfo[]={0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,//1900---19090x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,//1910---19190x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,//19200x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,//19300x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,//19400x06ca0,0x0b550,0x15355,0x04da0,0x0a5b0,0x14573,0x052b0,0x0a9a8,0x0e950,0x06aa0,//19500x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,//19600x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b6a0,0x195a6,//19700x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,//19800x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,//19900x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,//2004 075520x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,//20100x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530, //20280x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,//20300x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0,//2040--2049/*0x14b63*///2050};

说明：

1.以上数据是经过整理的1900到2049年的农历数据信息；

2.每个数据代表一年，从阳历1900.1.31日起，为第一个数据年的开始，即阳历1900.1.31＝阴历0.1.1。150个数据可推150年的阴历，因此目前最大只能推算到2049年，以后的推导，还需要从天文台得到新的数据后才能推导，否则将出现误差。

3.第一条数据 0x04bd8 表示代表阳历1900.1.31为始的阴历0年，0x04bd8是5个16进制数，共20bit，即二进制表示为：0000 0100 1011 1011 1000

前4位，即0在这一年是润年时才有意义，它代表这年润月的大小月，为1则润大月，为0则润小月；

中间12位，即4bd，每位代表一个月，为1则为大月，为0则为小月；

最后4位，即8，代表这一年的润月月份，为0则不润。首4位要与末4位搭配使用。

根据以上信息，

1.确定是否存在农历的闰月并返回闰月

UCHAR GetLeapMonth(UINT LunarYear){return LunarInfo[LunarYear-1900]& 0xf;}

2.回闰月的天数

UCHAR GetLeapMonthDays(UINT LunarYear){if(GetLeapMonth(LunarYear))return(  ( (LunarInfo[LunarYear-1900]) & 0x10000 ) ? 30:29 );elsereturn (0);}

3.农历当年总天数,354?355 384 383

UCHAR GetLunarCurentMonthDays(UINT LunarYear, UCHAR  LunarMonth){return( (LunarInfo[LunarYear-1900] & (0x10000>>LunarMonth) ) ? 30:29 );}

最后给出一个阳历转阴历的算法，供参考

UCHAR SolarToLunar(UINT year,UINT month,UINT day)/* 输入阳历时期 年  月  日 */{/*阳历1900.1.1在阳历为1900.1.31  时阴历为1900.1.1 即1900年正月初一*/UINT totalday=0;/*记录农历1900.1.1日到今天相隔的天数 */UCHAR   runyueflag=0;//标记是否有闰月UCHAR   LeapMonth=0;UCHAR   yearflag=0; if(year<1900 || year>2049 || month>12 || month==0 || (year==1900 && month==1) )return 0;if(day>SloarMonthDays(year,month) || day==0)return 0;    //计算1900.1.1 到  输入年月的天数totalday=GetSolarTotalDays(year, month)+day-30; /* 阳历从1900.1.31(农历1900.1.1)到今天的总天数(减30 实际少了一天)。 */m_uilunaryear=1900;while(totalday>385) //385大于一年  留出一年多的时间用于条件计算{totalday-=GetLunarYearTotalDays(m_uilunaryear); //m_uilunaryear++;}if(totalday>GetLunarYearTotalDays(m_uilunaryear))  //排除m_uilunaryear有闰月的情况{totalday-=GetLunarYearTotalDays(m_uilunaryear);m_uilunaryear++; }LeapMonth=GetLeapMonth(m_uilunaryear);  //当前闰哪个月if(LeapMonth)runyueflag=1; //有闰月则一年为13个月elserunyueflag=0;  //没闰月则一年为12个月 if(totalday==0)   //刚好一年{m_uilunarday=GetLunarCurentMonthDays(m_uilunaryear,12);m_uilunarmonth=12;}else{m_uilunarmonth=1;while(m_uilunarmonth<=12){if( runyueflag==1 && m_uilunarmonth==(LeapMonth+1) )  //闰月处理{if(totalday>GetLeapMonthDays(m_uilunaryear)){totalday-=GetLeapMonthDays(m_uilunaryear);  //该年闰月天数}//lunar_month--;runyueflag=0;continue;}if( totalday > GetLunarCurentMonthDays(m_uilunaryear,m_uilunarmonth ) ){totalday=totalday-GetLunarCurentMonthDays(m_uilunaryear,m_uilunarmonth);  //该年该月天数m_uilunarmonth++;}else{m_uilunarday=totalday;break;}}}}

0 0