No.101726 作者:哈佛 邮件:jola2002@163.com ID:29699 登陆:81次 QQ:5822022 -- MSN:jola2005912@hotmail.com 文章数:185篇 最后登陆IP:218.17.158.164 最后登陆:2014/12/16 13:54:00 注册:2005/1/6 19:18:03 财富:1280 发帖时间:2007/1/12 22:22:52 发贴者IP:202.103.153.78 标题:哈佛:万年历算法 摘要:No.101726万年历算法 万年历算法 一、 阳历算法 具体算法见函数Void get_solar_day_date(void),这样阳历日历的星期排法就确定了。 表1: 月份 1 2 3 4 5 6 7 8 9 10 11 12 闰年 31 29 31 30 31 30 31 31 30 31 30 31 非闰年 31 28 31 30 31 30 31 31 30 31 30 31 变量定义: Public: Unsigned int temp_total_day; Unsigned char gc_solar_calendar_year; Unsigned char gc_solar_calendar_month; Unsigned char gc_solar_calendar_date; Unsigned char gc_lunar_calendar_year; Unsigned char gc_lunar_calendar_month; Unsigned char gc_lunar_calendar_date; Unsigned char start_day_of_week; 说明:函数get_solar_day_date(void)的输入变量:gc_solar_calendar_year和 gc_solar_calendar_month 输出变量:start_day_of_week和temp_total_day Void get_solar_day_date(void) { unsigned char temp01; /*------calculate what day is the day of the current month and year. Mon~Sun?--- */ /*条件初始化二次,减少运算数据量. temp_total_day 是int型变量*/ start_day_of_week = 2; temp_total_day = 0;calculate_temp = 1; if(gc_solar_calendar_year > 99) {start_day_of_week = 6;calculate_temp = 100;} for(temp01 = calculate_temp; temp01 <gc_solar_calendar_year; temp01++) { if(temp01%4 == 0){start_day_of_week +=2;temp_total_day += 366; } else {start_day_of_week +=1;temp_total_day += 365;}} for(temp01 = 1;temp01 <gc_solar_calendar_month;temp01++) { switch(temp01) {case 1,3,5,7,8,10,12: start_day_of_week +=3;temp_total_day +=31;break; case 2: if(((gc_solar_calendar_year%4) == 0)&&(gc_solar_calendar_year != 200)) {start_day_of_week +=1; temp_total_day +=29;} else {start_day_of_week +=0;temp_total_day +=28;} break; case 4,6,9,11: start_day_of_week +=2; temp_total_day +=30; break;}} start_day_of_week %=7; /*-end of calculate what day is the day(Mon~Sun?) and total day --*/ } 二、 阴历算法 200年需要200 × 2 = 400个字节,构成阴历压缩数据表lunar_calendar_month_table[]如 下: const char lunar_calendar_month_table[]={ //从阴历年1900年到2100年 /*the total day of each month pointer */ /* from 1901~2100*/ /* (0110)110000001001 (0110)leap month,110000001001 lunar month total day: 1:29 0:30*/ 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,}; 确定阳历日和阴历日的对应关系的算法: 对于其他任何一个阳历日和阴历日的对应关系,都可以通过以下算法求得结果。具体算法由 如下函数get_lunar_day(void)实现: 说明:函数get_lunar_day(void)的输入变量:gc_solar_calendar_year和 gc_solar_calendar_month 输出变量:gc_lunar_calendar_year、gc_lunar_calendar_month和 gc_lunar_calendar_date void get_lunar_day(void)/*计算出输入阳历年、阳历月,对应该阳历月第一天对应阴历时 间,即阴历年、月、日*/ {unsigned char temp_leap_month; unsigned char temp_flag; unsigned char calculate_temp; unsigned char mc_tpumenus_temp_loop; unsigned char mc_tpumenus_temp_01; temp_leap_month = 0;temp_flag = 1; //条件初始化二次,减少运算数据量. if(gc_solar_calendar_year > 99) {gc_lunar_calendar_year = 99;gc_lunar_calendar_month = 11; gc_lunar_calendar_date = 25;temp_total_day += 25;calculate_temp = 100;} else {gc_lunar_calendar_year = 0;gc_lunar_calendar_month = 11; gc_lunar_calendar_date = 11;temp_total_day += 11;calculate_temp = 1;} if(gc_solar_calendar_year > calculate_temp||gc_solar_calendar_month> 1) { for(mc_tpumenus_temp_loop = 1;mc_tpumenus_temp_loop> 0;){ temp_total_day -=calendar_calculate_lunar_month_total_day(); temp_leap_month = tpumenus_lunar_calendar_month_table[2*gc_lunar_calendar_year + 1]; temp_leap_month = (temp_leap_month> > 4)&0x0F; if(gc_lunar_calendar_month == temp_leap_month) {switch(gc_lunar_calendar_year) {case 6,14,19,25,33,36,38,41,44,52,55,79,117, 136,147,150,155,158,185,193: if(temp_total_day <31){gc_lunar_calendar_date = temp_total_day; mc_tpumenus_temp_loop = 0;temp_flag = 0;} else temp_total_day -= 30; break; //current month:temp_leap_month default: if(temp_total_day < 30) {gc_lunar_calendar_date = temp_total_day;mc_tpumenus_temp_loop = 0; temp_flag = 0; /*current month:temp_leap_month*/ } else temp_total_day -= 29; break;}} if(temp_fla ......
>>返回讨论的主题
|