参数表所占存储空间为：30 + 4×支持年数
经在MSP430仿真测试，参数表占有154字节，代码占有622字节，执行一次的典型时间是1382个时钟周期。
// -----------------------------------------------------------------
// 农历计算：
// Copy From "西历农历转换程式 黄晓鸣 1995,7,25"
// Modify : Blove
// Date : 16:02 2005-12-1
// -----------------------------------------------------------------
typedef unsigned char INT8U;
typedef unsigned short INT16U;
typedef unsigned long INT32U;
typedef struct _SolarDate_Tag_
{
INT16U wYear;
INT8U chMonth;
INT8U chDate;
}sSolarDateTag;
typedef struct _LunarDate_Tag_
{
INT16U wYear;
INT8U chMonth;
INT8U chDate;
INT8U chKan;
INT8U chChi;
}sLunarDateTag;
// -------------------------------------------------------------------
// 农历计算参数位定义：
// 31-25 7 : ( BaseDays )到公历1月1日到农历正月初一的累积日数
// 24-20 5 : ( Intercalation)闰月月份. 0==此年没有闰月
// 19-13 7 : ( BaseKanChih )此年公历1月1日之干支序号减 1
// 12- 0 13 : ( MonthDays )此农历年每月之大小, 0==小月(29日), 1==大月(30日)
// -------------------------------------------------------------------
#define LPARA_MASK_BASE_DAYS 0xFE000000
#define LPARA_MASK_INTERCALATION 0x01F00000
#define LPARA_MASK_BASE_KANCHI 0x000FE000
#define LPARA_MASK_MONTH_DAYS 0x00001FFF
#define LPARA_SHIFT_BASE_DAYS 25
#define LPARA_SHIFT_INTERCALATION 20
#define LPARA_SHIFT_BASE_KANCHI 13
#define LPARA_SHIFT_MONTH_DAYS 0
#define LPara_GetBaseDays(i) ( (m_dwLunarParas[i]&LPARA_MASK_BASE_DAYS)>>LPARA_SHIFT_BASE_DAYS )
#define LPara_GetIntercalation(i) ( (m_dwLunarParas[i]&LPARA_MASK_INTERCALATION)>>LPARA_SHIFT_INTERCALATION )
#define LPara_GetBaseKanChi(i) ( (m_dwLunarParas[i]&LPARA_MASK_BASE_KANCHI)>>LPARA_SHIFT_BASE_KANCHI )
#define LPara_GetMonthDays(wYear,chMonth)
( (((m_dwLunarParas[wYear]&LPARA_MASK_MONTH_DAYS)>>LPARA_SHIFT_MONTH_DAYS)>>chMonth)&0x01 )
// -----------------------------------------------------------
// 农历计算参数表
// -----------------------------------------------------------
static const INT32U m_dwLunarParas[] =
{
0x2E47752B, 0x5400952B, 0x3E012A5B, 0x2A21D55A, 0x4E02956A, // 2005
0x38733B55, 0x6003DBA4, 0x4A047B49, 0x32553A93, 0x5805DA95,
0x4206752D, 0x2C470AAD, 0x50004AAD, 0x3C90F5AA, 0x620195D2, // 2015
0x4C022DA5, 0x3662FD4A, 0x5C038D4A, 0x46042C95, 0x3044D52E,
0x54059556, 0x3E062AB5, 0x2A26D5B2, 0x500776D2, 0x3860AEA5, // 2025
0x5E015725, 0x4801F64B, 0x32528C97, 0x56035CAB, 0x4203E55A,
0x2C348AD6 // 2031
};
#define FIRSTYEAR 2001 // 参数表中的第一年
#define YEAR_NUMS ( sizeof(m_dwLunarParas) / sizeof(INT32U) )
#define LASTYEAR ( FIRSTYEAR + YEAR_NUMS - 1 ) // 参数表中的最后一年
// -----------------------------------------------------------
// 公历年每月天数标记表
// 由高位到低位为12-1月：1表示31天，0表示30天，二月除外
// 月份： 12 11 10 9 8 7 6 5 4 3 2 1
// 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 28, 31
// 1 0 1 0 1 1 0 1 0 1 0 1
// -----------------------------------------------------------
static const INT16U m_wSolarMonthDaysFlag = 0x0AD5;
// -----------------------------------------------------------
// 公历年每月累积天数, 平年与闰年
// -----------------------------------------------------------
static const INT16U m_wSolarDays[14] =
{ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, 396 };
// -----------------------------------------------------------
// 求此公历年是否为闰年, 返回 0 为平年, 1 为闰年
// -----------------------------------------------------------
BOOL Lunar_IsIntercalation( INT16U wYear )
{
if ( wYear % 400 == 0 )
return 1;
else if ( wYear % 100 == 0 )
return 0;
else if ( wYear % 4 == 0 )
return 1;
else
return 0;
}
// -----------------------------------------------------------
// 农历计算
// -----------------------------------------------------------
int Lunar_Cal( sSolarDateTag *psSolarDate, sLunarDateTag *psLunarDate )
{
INT16U wSolarMonth, wDaySum, wSolarDaysSum, im, wTmp1, wTmp2, i, wKanChiSum;
BOOL bLeapFlag;
INT8U chMonthDays, chYearIndex;
// 输入参数的有效性检查
if ( psSolarDate->wYear<=FIRSTYEAR || psSolarDate->wYear>LASTYEAR )
return 1;
wSolarMonth = psSolarDate->chMonth - 1;
if ( wSolarMonth > 11 )
return 2;
bLeapFlag = Lunar_IsIntercalation( psSolarDate->wYear );
if ( wSolarMonth == 1)
// 二月
{
chMonthDays = bLeapFlag + 28;
}
else
// 其他月份
{
chMonthDays = 30 + ((m_wSolarMonthDaysFlag>>wSolarMonth)&0x01);
}
if ( psSolarDate->chDate<1 || psSolarDate->chDate>chMonthDays )
return 3;
chYearIndex = psSolarDate->wYear - FIRSTYEAR;
wSolarDaysSum = m_wSolarDays[wSolarMonth];
if ( wSolarMonth > 1 )
wSolarDaysSum += bLeapFlag;
wDaySum = wSolarDaysSum + psSolarDate->chDate;
wKanChiSum = wDaySum + LPara_GetBaseKanChi(chYearIndex);
psLunarDate->chKan = wKanChiSum % 10;
psLunarDate->chChi = wKanChiSum % 12;
if ( wDaySum <= LPara_GetBaseDays(chYearIndex) )
{
chYearIndex--;
psLunarDate->wYear = psSolarDate->wYear - 1;
bLeapFlag = Lunar_IsIntercalation( psLunarDate->wYear );
wSolarMonth += 12;
wSolarDaysSum = m_wSolarDays[wSolarMonth];
if ( wSolarMonth > 1 )
wSolarDaysSum += bLeapFlag;
wDaySum = wSolarDaysSum + psSolarDate->chDate;
}
else
{
psLunarDate->wYear = psSolarDate->wYear;
}
wTmp1 = LPara_GetBaseDays(chYearIndex);
for ( i=0; i<13; i++ )
{
wTmp2 = wTmp1 + LPara_GetMonthDays( chYearIndex, i) + 29;
if ( wDaySum <= wTmp2 )
break;
wTmp1 = wTmp2;
}
psLunarDate->chMonth = i + 1;
psLunarDate->chDate = wDaySum - wTmp1;
im = LPara_GetIntercalation(chYearIndex);
if ( im != 0 && psLunarDate->chMonth > im)
psLunarDate->chMonth--;
if ( psLunarDate->chMonth > 12)
psLunarDate->chMonth -= 12;
return 0;
}