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

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

阳历：每年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---1909
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,//1910---1919
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,//1920
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,//1930
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,//1940
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5b0,0x14573,0x052b0,0x0a9a8,0x0e950,0x06aa0,//1950
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,//1960
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b6a0,0x195a6,//1970
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,//1980
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,//1990
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,//2004 07552
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,//2010
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530, //2028
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,//2030
0x0b5a0,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 );
else
return (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个月
else
runyueflag=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;
}
}
}
}