📄 ymdlunar.c

📁 深圳市微逻辑电子有限公司巨果&#8226 Kingmos&reg 系统核心
💻 C
📖 第 1 页 / 共 2 页
字号:
12 下一页
/******************************************************
Copyright(c) 版权所有，1998-2003微逻辑。保留所有权利。
******************************************************/

/*****************************************************
文件说明：农历算法
版本号：  1.0.0
开发时期：2002.01.06
作者：    kingkong and 肖远钢
修改记录：
2003-06-10:  
    by 肖远钢
         1> 更改函数名  
         2> 增加 年 的最大最小数值的获取和校验函数  
         3> 增加 头文件YMDlunar.h
         4> 原来文件名是LunarCld.c，可对应比较参考
******************************************************/

#include <ewindows.h>
#include <ymdlunar.h>

/***************  全局区 定义， 声明 *****************/

//农历算法的最小 最大值
#define LUNAR_YEAR_MIN					1901
#define LUNAR_YEAR_MAX					2050

//
//数组gLunarDay存入阴历1901年到2100年每年中的月天数信息，
//阴历每月只能是29或30天，一年用12（或13）个二进制位表示，对应位为1表30天，否则为29天
//每年的月份从高位开始,即最高位是一月,次之二月 等等.......
//测试数据只有1901.1.1 --2050.12.31
//
static const WORD g_LunarMonthDay[150] = {
   0x4ae0, 0xa570, 0x5268, 0xd260, 0xd950, 0x6aa8, 0x56a0, 0x9ad0, 0x4ae8, 0x4ae0,   //1910
   0xa4d8, 0xa4d0, 0xd250, 0xd548, 0xb550, 0x56a0, 0x96d0, 0x95b0, 0x49b8, 0x49b0,   //1920
   0xa4b0, 0xb258, 0x6a50, 0x6d40, 0xada8, 0x2b60, 0x9570, 0x4978, 0x4970, 0x64b0,   //1930
   0xd4a0, 0xea50, 0x6d48, 0x5ad0, 0x2b60, 0x9370, 0x92e0, 0xc968, 0xc950, 0xd4a0,   //1940
   0xda50, 0xb550, 0x56a0, 0xaad8, 0x25d0, 0x92d0, 0xc958, 0xa950, 0xb4a8, 0x6ca0,   //1950
   0xb550, 0x55a8, 0x4da0, 0xa5b0, 0x52b8, 0x52b0, 0xa950, 0xe950, 0x6aa0, 0xad50,   //1960
   0xab50, 0x4b60, 0xa570, 0xa570, 0x5260, 0xe930, 0xd950, 0x5aa8, 0x56a0, 0x96d0,   //1970
   0x4ae8, 0x4ad0, 0xa4d0, 0xd268, 0xd250, 0xd528, 0xb540, 0xb6a0, 0x96d0, 0x95b0,   //1980
   0x49b0, 0xa4b8, 0xa4b0, 0xb258, 0x6a50, 0x6d40, 0xada0, 0xab60, 0x9370, 0x4978,   //1990
   0x4970, 0x64b0, 0x6a50, 0xea50, 0x6b28, 0x5ac0, 0xab60, 0x9368, 0x92e0, 0xc960,   //2000
   0xd4a8, 0xd4a0, 0xda50, 0x5aa8, 0x56a0, 0xaad8, 0x25d0, 0x92d0, 0xc958, 0xa950,   //2010
   0xb4a0, 0xb550, 0xb550, 0x55a8, 0x4ba0, 0xa5b0, 0x52b8, 0x52b0, 0xa930, 0x74a8,   //2020
   0x6aa0, 0xad50, 0x4da8, 0x4b60, 0x9570, 0xa4e0, 0xd260, 0xe930, 0xd530, 0x5aa0,   //2030
   0x6b50, 0x96d0, 0x4ae8, 0x4ad0, 0xa4d0, 0xd258, 0xd250, 0xd520, 0xdaa0, 0xb5a0,   //2040
   0x56d0, 0x4ad8, 0x49b0, 0xa4b8, 0xa4b0, 0xaa50, 0xb528, 0x6d20, 0xada0, 0x55b0	 //2050
};
//数组gLanarMonth存放阴历1901年到2050年闰月的月份，如没有则为0，每字节存两年
static const BYTE  g_LunarLeapMonth[75] = {
   0x00, 0x50, 0x04, 0x00, 0x20,   //1910
   0x60, 0x05, 0x00, 0x20, 0x70,   //1920
   0x05, 0x00, 0x40, 0x02, 0x06,   //1930
   0x00, 0x50, 0x03, 0x07, 0x00,   //1940
   0x60, 0x04, 0x00, 0x20, 0x70,   //1950
   0x05, 0x00, 0x30, 0x80, 0x06,   //1960
   0x00, 0x40, 0x03, 0x07, 0x00,   //1970
   0x50, 0x04, 0x08, 0x00, 0x60,   //1980
   0x04, 0x0a, 0x00, 0x60, 0x05,   //1990
   0x00, 0x30, 0x80, 0x05, 0x00,   //2000
   0x40, 0x02, 0x07, 0x00, 0x50,   //2010
   0x04, 0x09, 0x00, 0x60, 0x04,   //2020
   0x00, 0x20, 0x60, 0x05, 0x00,   //2030
   0x30, 0xb0, 0x06, 0x00, 0x50,   //2040
   0x02, 0x07, 0x00, 0x50, 0x03	   //2050 
};
static const TCHAR szDays[30][10] =
{
	"初一", "初二", "初三", "初四", "初五",
    "初六", "初七", "初八", "初九", "初十",
    "十一", "十二", "十三", "十四", "十五",
    "十六", "十七", "十八", "十九", "二十",
    "廿一", "廿二", "廿三", "廿四", "廿五",
    "廿六", "廿七", "廿八", "廿九", "三十"
};
static const TCHAR szMonths[12][10]=
{   
	"正", "二", "三", "四", "五", "六", "七", "八", "九", "十",
    "冬", "腊"
};

#define	ARR_COUNT( arr )	(sizeof(arr)/sizeof(arr[0]))

//---------------------------------------------------
static	WORD	Lunar_GetDaysOfYear( WORD wYear );
static	WORD	Lunar_GetYearByDays( WORD wDays, WORD *pwDayYear );
static	WORD	Lunar_GetMonthByDays( WORD wYear,WORD wDays, WORD *pwDays, BOOL *pbLeap );

/******************************************************/


//---------------------------------------------------
// ********************************************************************
//声明：WORD	Lunar_GetDaysOfYear( WORD wYear )
//参数：
//	IN wYear - 指定的年
//返回值：
//	成功返回指定年的所有天数
//功能描述：获取指定年的所有天数
//引用: 
// ********************************************************************
WORD	Lunar_GetDaysOfYear( WORD wYear )
{
	WORD		wMonth = 0x8000 ;	// the number is use to get month day's
	WORD		wYearData ;
	WORD		wAllDays = 0 ;
	int			i, iMonths;

	if( ( wYear > LUNAR_YEAR_MAX )||( wYear < LUNAR_YEAR_MIN ) )
		return 0 ;

	wYearData = g_LunarMonthDay[ wYear - LUNAR_YEAR_MIN ] ;
	
	if( Lunar_GetLeapMonth( wYear ) == 0 )
		iMonths = 12 ;
	else 
		iMonths = 13 ;
	
	for( i = 1 ; i <= iMonths ; i ++ )
	{
		if( wYearData&wMonth )
		{
			wAllDays += 30 ;
		}else
		{
			wAllDays += 29 ;
		}
		wMonth = wMonth >> 1 ;
	}
	return wAllDays;
}
// ********************************************************************
//声明：WORD	Lunar_GetYearByDays( WORD wDays, WORD *pwDayYear )
//参数：
//	IN wDays - 指定的天数
//	OUT pwDayYear - 保存得到的年
//返回值：
//	成功返回指定的天数所确定的年
//功能描述：根据指定的天数，获取得到的年，并返回
//引用: 
// ********************************************************************
// the wDays is all days from you want to 1901.1.1
// the return year is the lunar year
// pwDayYear is the days of more than the year
WORD	Lunar_GetYearByDays( WORD wDays, WORD *pwDayYear )
{
	WORD			iYear  = LUNAR_YEAR_MIN ;
	WORD			wAllDays = 0, wDayOfYear = 0;
	while( 1 )
	{
		wDayOfYear = Lunar_GetDaysOfYear( iYear );
		if( wAllDays + wDayOfYear >= wDays )
			break;
		iYear ++ ;
		wAllDays += wDayOfYear ;
		if( iYear > 2050 )
			return 0 ;
	}
	*pwDayYear = wDays - wAllDays ;
	return iYear  ;
}
// ********************************************************************
//声明：WORD	Lunar_GetMonthByDays( WORD wYear, WORD wDays, WORD *pwDays, BOOL *pbLeap )
//参数：
//	IN wYear - 指定的年
//	IN wDays - 指定的天数
//	OUT pwDays - 保存该年该月的天数
//	OUT pbLeap - 保存该年该月是否为第2个月（即闰月）
//返回值：
//	成功返回年和指定的天数所确定的月
//功能描述：计算确定的月、该月的天数、该月是否为第2个月
//引用: 
// ********************************************************************
/*
return the month of the year.
if the wMonth is not leap month, the *pbLeap is zero
if the wMonth is leap month, 
if the month is Second leap month,*pbLeap is TRUE, otherwise is FALSE.
*/
WORD	Lunar_GetMonthByDays( WORD wYear, WORD wDays, WORD *pwDays, BOOL *pbLeap )
{
	WORD		wMonthIndex = 0x8000 ;
	WORD		wAllDays = 0, wThisMonth ;
	WORD		wLeapMonth;
	WORD		wYearData ;
	BOOL		bFirstLeapMonth = TRUE ;
	int			i, iMonths;

	*pbLeap = FALSE ;
	wYearData = g_LunarMonthDay[ wYear - LUNAR_YEAR_MIN ] ;
	wLeapMonth = Lunar_GetLeapMonth( wYear );
	
	if( wLeapMonth == 0 )
		iMonths = 12 ;
	else 
		iMonths = 13 ;
	
	for( i = 1 ; i <= iMonths ; i ++ )
	{
		if( wYearData&wMonthIndex )
		{
			wThisMonth = 30 ;
		}else
		{
			wThisMonth = 29 ;
		}
		if( wAllDays + wThisMonth >= wDays )
		{
			if( bFirstLeapMonth == FALSE )
			{
				i -- ;
				if( i == wLeapMonth )
					*pbLeap = TRUE ;
			}
			*pwDays = wDays - wAllDays ;
			return i;
		}
		wAllDays += wThisMonth ;
		wMonthIndex = wMonthIndex >> 1 ;
		if( wLeapMonth == i )
		{
			bFirstLeapMonth = FALSE ;
		}
	}
	return 0;
}

//---------------------------------------------------
//---------------------------------------------------

// ********************************************************************
//声明：WORD	Lunar_GetLeapMonth( WORD wYear )
//参数：
//	IN wYear - 给定的农历年
//返回值：
//	得到该年的润月，如果没有就返回0
//功能描述：得到该年的润月，如果没有就返回0
//引用: 
// ********************************************************************
WORD	Lunar_GetLeapMonth( WORD wYear )
{
	BYTE			bLeap;	// Get Leap data from global array 
	BYTE			bLeapThisYear = 0; // the leap month of the year
	WORD			wYearIndex; // the global array's index
	if( ( wYear > LUNAR_YEAR_MAX )||( wYear < LUNAR_YEAR_MIN ) )
		return 0 ;
	wYearIndex = ( wYear - LUNAR_YEAR_MIN ) / 2 ;
	bLeap = g_LunarLeapMonth[ wYearIndex ] ;
	if( ( wYear % 2 ) == 0 )
	{								// may use bLeap << 4 , but something wrong!!
		bLeapThisYear = ( BYTE )( bLeap &0x0f ) ;//Get Low of bLeap
	}else
	{
		bLeapThisYear = ( BYTE )( bLeap >> 4 ) ;//Get Hight of bLeap
	}
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -