wnl.c

与硬件无关的C语言写的万年历源程序

/****************************************************************
 *文件名：wnl.c
 *描述：用于1900-2100之间的阴历年月日、24节气、星期的计算
 *环境：任意
 *版本：v1.0
 *作者：wentsing
 *日期：2006/03/07
******************************************************************/

#include "include.h"

#define WNL_C		1

#if KEILC51
uchar code LunarCalendarMonthTable[]={
#else
const uchar LunarCalendarMonthTable[]={
#endif
0x00,0x04,0xad,0x08,0x5a,0x01,0xd5,0x54,0xb4,0x09,0x64,0x05,0x59,0x45, 
0x95,0x0a,0xa6,0x04,0x55,0x24,0xad,0x08,0x5a,0x62,0xda,0x04,0xb4,0x05, 
0xb4,0x55,0x52,0x0d,0x94,0x0a,0x4a,0x2a,0x56,0x02,0x6d,0x71,0x6d,0x01, 
0xda,0x02,0xd2,0x52,0xa9,0x05,0x49,0x0d,0x2a,0x45,0x2b,0x09,0x56,0x01, 
0xb5,0x20,0x6d,0x01,0x59,0x69,0xd4,0x0a,0xa8,0x05,0xa9,0x56,0xa5,0x04, 
0x2b,0x09,0x9e,0x38,0xb6,0x08,0xec,0x74,0x6c,0x05,0xd4,0x0a,0xe4,0x6a, 
0x52,0x05,0x95,0x0a,0x5a,0x42,0x5b,0x04,0xb6,0x04,0xb4,0x22,0x6a,0x05, 
0x52,0x75,0xc9,0x0a,0x52,0x05,0x35,0x55,0x4d,0x0a,0x5a,0x02,0x5d,0x31, 
0xb5,0x02,0x6a,0x8a,0x68,0x05,0xa9,0x0a,0x8a,0x6a,0x2a,0x05,0x2d,0x09, 
0xaa,0x48,0x5a,0x01,0xb5,0x09,0xb0,0x39,0x64,0x05,0x25,0x75,0x95,0x0a, 
0x96,0x04,0x4d,0x54,0xad,0x04,0xda,0x04,0xd4,0x44,0xb4,0x05,0x54,0x85, 
0x52,0x0d,0x92,0x0a,0x56,0x6a,0x56,0x02,0x6d,0x02,0x6a,0x41,0xda,0x02, 
0xb2,0xa1,0xa9,0x05,0x49,0x0d,0x0a,0x6d,0x2a,0x09,0x56,0x01,0xad,0x50, 
0x6d,0x01,0xd9,0x02,0xd1,0x3a,0xa8,0x05,0x29,0x85,0xa5,0x0c,0x2a,0x09, 
0x96,0x54,0xb6,0x08,0x6c,0x09,0x64,0x45,0xd4,0x0a,0xa4,0x05,0x51,0x25, 
0x95,0x0a,0x2a,0x72,0x5b,0x04,0xb6,0x04,0xac,0x52,0x6a,0x05,0xd2,0x0a, 
0xa2,0x4a,0x4a,0x05,0x55,0x94,0x2d,0x0a,0x5a,0x02,0x75,0x61,0xb5,0x02, 
0x6a,0x03,0x61,0x45,0xa9,0x0a,0x4a,0x05,0x25,0x25,0x2d,0x09,0x9a,0x68, 
0xda,0x08,0xb4,0x09,0xa8,0x59,0x54,0x03,0xa5,0x0a,0x91,0x3a,0x96,0x04, 
0xad,0xb0,0xad,0x04,0xda,0x04,0xf4,0x62,0xb4,0x05,0x54,0x0b,0x44,0x5d, 
0x52,0x0a,0x95,0x04,0x55,0x22,0x6d,0x02,0x5a,0x71,0xda,0x02,0xaa,0x05, 
0xb2,0x55,0x49,0x0b,0x4a,0x0a,0x2d,0x39,0x36,0x01,0x6d,0x80,0x6d,0x01, 
0xd9,0x02,0xe9,0x6a,0xa8,0x05,0x29,0x0b,0x9a,0x4c,0xaa,0x08,0xb6,0x08, 
0xb4,0x38,0x6c,0x09,0x54,0x75,0xd4,0x0a,0xa4,0x05,0x45,0x55,0x95,0x0a, 
0x9a,0x04,0x55,0x44,0xb5,0x04,0x6a,0x82,0x6a,0x05,0xd2,0x0a,0x92,0x6a, 
0x4a,0x05,0x55,0x0a,0x2a,0x4a,0x5a,0x02,0xb5,0x02,0xb2,0x31,0x69,0x03, 
0x31,0x73,0xa9,0x0a,0x4a,0x05,0x2d,0x55,0x2d,0x09,0x5a,0x01,0xd5,0x48, 
0xb4,0x09,0x68,0x89,0x54,0x0b,0xa4,0x0a,0xa5,0x6a,0x95,0x04,0xad,0x08, 
0x6a,0x44,0xda,0x04,0x74,0x05,0xb0,0x25,0x54,0x03,};

/****************************************************************
 *函数性质：私用（阴历计算）
 *入口：阴历年unsigned char ucLunarCalendarYear,阴历月unsigned char ucLunarCalendarMonth
 *出口：返回天数
 *功能：计算输入的公历年月的1日时阴历月的天数，供阴历计算用
 *调用方式：unsigned char CalendarCalculateLunarMonthTotalDay(unsigned char ucLunarCalendarYear,unsigned char ucLunarCalendarMonth)
*****************************************************************/
unsigned char CalendarCalculateLunarMonthTotalDay(unsigned char ucLunarCalendarYear,unsigned char ucLunarCalendarMonth)
{
	unsigned char ucTpumenusTemp01;
	unsigned char ucTpumenusTemp02;
	if(ucLunarCalendarMonth < 9)
	{
		ucTpumenusTemp01 = LunarCalendarMonthTable[2*ucLunarCalendarYear];
		ucTpumenusTemp02 = ucLunarCalendarMonth - 1;
	}
	else
	{
		ucTpumenusTemp01 = LunarCalendarMonthTable[2*ucLunarCalendarYear + 1];
		ucTpumenusTemp02 = ucLunarCalendarMonth - 9;
	}
	if((ucTpumenusTemp01>> ucTpumenusTemp02)&0x01)
		return(29);
	else 
		return(30);
}

#if KEILC51
unsigned char code aa[]={
#else
const uchar aa[] = {
#endif
6,14,19,25,33,36,38,41,44,52,55,79,117,136,147,150,155,158,185,193,};

/****************************************************************
 *函数性质：共用
 *入口：公历年unsigned char ucSolarCalendarYear,如：2006-1900= 106
 		公历月unsigned char ucSolarCalendarMonth
 		阴历输出缓冲unsigned char *pLunarBuf，为输入公历年与公历月的1日所对应的阴历0：年，1：月，2：日，3：天数，4：闰月，5：星期
 *出口：无
 *功能：计算输入的公历年月的1日时的阴历年月日，天数，闰月，星期
 *调用方式：void GetLunarDay(unsigned char ucSolarCalendarYear,unsigned char ucSolarCalendarMonth,unsigned char *pLunarBuf)
*****************************************************************/
void GetLunarDay(unsigned char ucSolarCalendarYear,unsigned char ucSolarCalendarMonth,unsigned char *pLunarBuf)
{
	unsigned char temp01;
	unsigned int uiTempTotalDay;
	unsigned char ucTempLeapMonth;
	unsigned char ucTempFlag;
	unsigned char ucCalculateTemp;
	unsigned char ucTpumenusTempLoop;
	unsigned char ucTpumenusTemp01;
	unsigned char state = 0;
	unsigned char ucLunarLeapMonth;
	unsigned char ucLunarCalendarYear;						// 计算后的输出的阴历年份
	unsigned char ucLunarCalendarMonth;						// 计算后的输出的阴历月份
	unsigned char ucLunarCalendarDate;						// 计算后的输出的阴历日期
	unsigned char ucStartDayOfWeek;							// 计算后输出的星期几
	unsigned char ucLunarMonthTotalDay;						// 计算后输出的阴历月的总天数
	ucTempLeapMonth = 0;
	ucTempFlag = 1;

	ucStartDayOfWeek = 2;
	uiTempTotalDay = 0;
	ucCalculateTemp = 1;
	if(ucSolarCalendarYear > 99)
	{
		ucStartDayOfWeek = 6;
		ucCalculateTemp = 100;
	}
	for(temp01 = ucCalculateTemp; temp01<ucSolarCalendarYear; temp01++)
	{
		if(temp01%4 == 0)
		{
			ucStartDayOfWeek +=2;
			uiTempTotalDay += 366; 
		}
		else 
		{
			ucStartDayOfWeek +=1;
			uiTempTotalDay += 365;
		}
	}
	for(temp01 = 1;temp01<ucSolarCalendarMonth;temp01++)
	{
		if(temp01==2)
		{
			if(((ucSolarCalendarYear%4) == 0)&&(ucSolarCalendarYear != 200))
				{
					ucStartDayOfWeek +=1; 
					uiTempTotalDay +=29;
				}
			else 
				{
					ucStartDayOfWeek +=0;
					uiTempTotalDay +=28;
				} 
		}
		else if((temp01==4)|(temp01==6)|(temp01==9)|(temp01==11))
			{
				ucStartDayOfWeek +=2; 
				uiTempTotalDay +=30; 
			}
			else
			{
				ucStartDayOfWeek +=3;
				uiTempTotalDay +=31;
			}
#if 0
		switch(temp01)
		{
			case 1,3,5,7,8,10,12:
		 		ucStartDayOfWeek +=3;
				uiTempTotalDay +=31;
				break;
			case 2:
				if(((ucSolarCalendarYear%4) == 0)&&(ucSolarCalendarYear != 200))
					{
						ucStartDayOfWeek +=1; 
						uiTempTotalDay +=29;
					}
				else 
					{
						ucStartDayOfWeek +=0;
						uiTempTotalDay +=28;
					} 
				break;
			case 4,6,9,11: 
				ucStartDayOfWeek +=2; 
				uiTempTotalDay +=30; 
				break;
		}
#endif
	}
	ucStartDayOfWeek %=7;

	if(ucSolarCalendarYear > 99)
	{
		ucLunarCalendarYear = 99;
		ucLunarCalendarMonth = 11;
		ucLunarCalendarDate = 25;
		uiTempTotalDay += 25;
		ucCalculateTemp = 100;
	}
	else
	{
		ucLunarCalendarYear = 0;
		ucLunarCalendarMonth = 11;
		ucLunarCalendarDate = 11;
		uiTempTotalDay += 11;
		ucCalculateTemp = 1;
	}
	if(ucSolarCalendarYear >ucCalculateTemp||ucSolarCalendarMonth>1)
	{ 
		for(ucTpumenusTempLoop = 1;ucTpumenusTempLoop>0;)
		{
			uiTempTotalDay -=CalendarCalculateLunarMonthTotalDay();
			ucTempLeapMonth = LunarCalendarMonthTable[2*ucLunarCalendarYear+ 1];
			ucTempLeapMonth = (ucTempLeapMonth>>4)&0x0F;