1、- 1 - BBBB LC j LC j LC j LC j $ $济南济南济南济南 朱思荣朱思荣朱思荣朱思荣 一一一一概述概述概述概述 公历是全世界通用的历法以地球绕太阳的一周为一年一年365天分为12个月1 3 5 7 8 10 12月为31天2月为28天其余月份为30天事实上地球绕太阳一周共365天5小时48分46秒比公历一年多出5小时48分46秒为使年误差不累积公历年用闰年法来消除年误差 由于每年多出5小时48分46秒每4年累计多出23小时15分4秒接近1天天文学家就规定每4 年有一个闰年把2月由28天改为29天凡是公历年代能被4整除的那一年就是闰年但是这样一来每4年又少了44分56秒
2、为了更准确地计时天文学家又规定凡能被100整除的年份只有能被400整除才是闰年即每400年要减掉3个闰年经过这样处理后实际上每400年的误差只有2小时53分20秒已相当准确了 农历与公历不同农历把月亮绕地球一周作为一月因为月亮绕地球一周不是一整天所以农历把月分为大月和小月大月30天小月29天通过设置大小月使农历日始终与月亮与地球的位置相对应为了使农历的年份与公历年相对应农历通过设置闰月的办法使它的平均年长度与公历年相等农历是中国传统文化的代表之一并与农业生产联系密切中国人民特别是广大农民十分熟悉并喜爱农历 公历与农历是我国目前并存的两种历法各有其固有的规律农历与月球的运行相对应其影响因素多它的
3、大小月和闰月与天体运行有关计算十分复杂且每年都不一致因此要用单片机实现公历与农历的转换用查表法是最方便实用的办法 51系列单片机因其在功能上能满足大部份对速度要求不高的应用场合的要求且价格低廉开发工具普及程度高是目前应用最多的单片机之一本文介绍一种用51单片机实现从1901年到2099年199年公历日到农历日及星期的转换方法并向读者提供完整的51汇编程序 二二二二 基本原理基本原理基本原理基本原理 实现公历与农历的转换一般采用查表法按日查表是速度最快的方法但51单片机寻址能力有限不可能采用按日查表的方法除按日查外我们可以通过按月查表和按年查表的方法再通过适当的计算来确定公历日所对应的农历日期本
4、文采用的是按年查表法最大限度地减少表格所占的程序空间 对于农历月来说大月为30天小月为29天这是固定不变的这样我们就可用1个BIT位来表示大小月信息农历一年如有闰月为13个月否则是12个月所以一年需要用13个BIT闰月在农历年中所在的月份并不固定大部分闰月分布在农历2 8月但也有少量年份在9月以后所以要表示闰月的信息至少要4BIT在这里我们用4BIT的值来表示闰月的月份值为0表示本年没有闰月有了以上信息还不足以判断公历日对应的农历日因为还需要一个参照日我们选用农历正月初一所对应的公历日期作参照日公历日最大为31日需要5BIT来表示而春节所在的月份不是1月就是2月用1BIT就够了考虑到表达方便我
5、们用2BIT来表示春节月2BIT的值直接表示月份这样一年的农历信息只用3个字节就全部包括了 计算公历日对应的农历日期的方法先计算出公历日离当年元旦的天数然后查表取得当年的春节日期计算出春节离元旦的天数二者相减即可算出公历日离春节的天数以后只要根据大小月和闰月信息减一月天数调整一月农历月份即可推算出公历日所对应的农历日期如公历日不到春节日期农历年要比公历年小一年农历大小月取前一年的信息农历月从12月向前推算 公历日是非常有规律的所以公历日所对应的星期天可以通过计算直接得到理论上公元0年1月1日为星期日只要求得公历日离公元0年1月1日的日子数除7后的余数就是星期天为了简化计算采用月校正法根据公历的
6、年月日可直接计算出星期天其算法是日期年份所过闰年数月校正数之和除7的余数就是星期天但如果是在闰年又不到3月份上述之和要减一天再除7其1 12月的校正数据为6 2 2 5 0 3 5 1 4 6 2 4在本程序中采用1个字节表示年份闰年数也只计算1900年以后的闰年数所以实际校正数据也和上述数据不同 - 2 - 三三三三 程序流程程序流程程序流程程序流程 由于星期的计算很简单这里只提供公历日转农历日的程序流程图 否 是 否 是 否 子程序入口 转换数据到HEX格式方便运算 根据公历年定位数据表的地址 从数据表中取得春节的公历日期,并通过计算公历日和春节离元旦的天数算出公历日离春节的天数记为X 农
7、历年=公历年减1数据表地址减3定位到前一年取农历月信息 农历月12闰月标志F0 0非闰月X Y 否 公历日在春节以后码? 取农历月天数Y 是 X X Y F0 1是 否 是 农历月减1 农历月闰月 F0取反 是 否 农历日Y X 1 农历年=公历年取农历月信息 农历月1闰月标志F0 0非闰月取农历月天数Y X Y X X Y 农历月闰月 农历月加1 F0 1F0取反 是 农历日X 1 否 农历年月日数据标准化 子程序出口 - 3 - 四程序使用说明 本文提供的子程序在设计时应用了PCF8563作时钟芯片所以其入口格式与PCF8563芯片的时钟信号存储格式完全一致年月日均为BCD码其中月的BIT
8、7表示世纪为1表示19世纪为0表示20世纪采用PCF8563时钟芯片只要把它的年月日寄存器内容读出到time_yeAr time_month 和time_date 三个单元内即可直接调用本程序转换采用其它时钟芯片调用前要把时钟格式稍作调整或修改一下程序公历日转农历日程序在12M晶振下执行时间最长约0.48毫秒实际使用时只需在复位和日期变化时才需要调用一次对于公历日转星期天的子程序则只在设置时钟时才有用在设置时钟年月日后调用子程序得到对应的星期天直接写入时钟即可 子程序附带了1901-2100年的农历数据表全部编译要占600字节空间如不需这么多可把不需要的数据删除然后修改stArt_yeAr值即
9、可stArt_yeAr定义了查询表的起始年份 五子程序清单 start_year EQU 01; 定义查询表起始年份,01-199表示1901-2099年 ;以下三单元为需转换的公历日期是子程序的入口数据 time_year DATA 30h time_month DATA 31h ;BIT7表示世纪,为1表示19世纪,为0表示20世纪 time_date DATA 32h ;以下三单元存转换后农历日期与入口单元重叠,如要保留入口信息,请重定义出口地址 CONvert_yeAr DATA 30h CONvert_mONth DATA 31h ;BIT7为1表示闰月 CONvert_dAte D
10、ATA 32h temp_Byte1 DATA 37h temp_Byte2 DATA 38h temp_Byte3 DATA 39h temp_Byte4 DATA 3Ah temp_Byte5 DATA 3Bh time_week DATA 40h ;星期天出口 ;以下为公历转农历子程序 CONvert: MOV A,time_year ;将年月日转化为HEX格式 MOV B,#16 DIV AB MOV CONvert_yeAr,B MOV B,#10 MUL AB ADD A,CONvert_yeAr MOV CONvert_yeAr,A MOV A,time_month MOV C,
11、ACC.7 MOV f0,C ;f0暂存世纪标志,仅用于数据表定位 CLR ACC.7 JNB ACC.4,CON_02 - 4 - CLR ACC.4 ;ACC.4为1表示大于10月 ADD A,#10 CON_02: MOV CONvert_mONth,A MOV A,time_date MOV B,#16 DIV AB MOV CONvert_dAte,B MOV B,#10 MUL AB ADD A,CONvert_dAte MOV CONvert_dAte,A MOV dptr,#mONth_dAtA ;以下定位本年数据在表格中的位置 MOV A,CONvert_yeAr JB f0
12、,CON_06 ;当前为19世纪年跳转 ADD A,#100 ;从19世纪起定义表格起始年,20世纪要加100年 CON_06: CLR C SUBB A,#stArt_yeAr MOV B,#3 ;表格每年3字节 MUL AB ADD A,dpl MOV dpl,A MOV A,B ADDC A,dph MOV dph,A MOV A,#2 MOVC A,A+dptr ;读本年表格最后一字节(春节日期) CLR ACC.7 ;ACC.7是闰年第13个月大小,在此不用 MOV B,#32 DIV AB MOV temp_Byte1,A ;春节月份 MOV temp_Byte2,B ;春节日 ;
13、 以下计算当前日期距元旦天数 MOV temp_Byte3,#0 ;设距元旦天数高位为0 MOV A,CONvert_mONth CJNE A,#10,CON_08 CON_08: JC CON_09 ;9月以前日子数小于256天,高字节为0(9月份过去的整月为8个月) MOV temp_Byte3,#1 CON_09: MOV A,CONvert_yeAr ANL A,#03h ;ACC为除4的余数 JNZ CON_10 ;转常年处理 ; 年除4余数为0是闰年 MOV A,CONvert_mONth - 5 - LCALL get_ruN_dAys_lOw ;取得闰年过去月的天数的低字节 S
14、JMP CON_12 CON_10: MOV A,CONvert_mONth LCALL get_dAys_lOw ;取得常年过去月的天数的低字节 CON_12: MOV B,CONvert_dAte DEC B ;因为日期从1日起,而不是0日起 AD A,B ;过去的整月天数加当月天数 MOV temp_Byte4,A JNC CON_14 INC temp_Byte3 ;temp_Byte3,temp_Byte4分别为公历年过去的天数的高低字节 ; 以下求春节距元旦天数,因肯定小于256天所以只用一字节表示 CON_14: MOV A,temp_Byte1 LCALL get_dAys_l
15、Ow ;春节不会在3月份,不用考虑闰年 DEC A ;因为日期从1日起 ADD A,temp_Byte2 MOV temp_Byte5,A ;temp_Byte5,为春节距元旦天数 MOV A,CONvert_mONth CJNE A,temp_Byte1,CON_20 ;转换月与春节月比较 MOV A,CONvert_dAte CJNE A,temp_Byte2,CON_20 ;转换日与春节日比较 CON_20: JC CON_22 LJMP CON_60 ;当前日大于等于春节日期,公历年与农历年同年份 CON_22: MOV A,CONvert_yeAr ;不到春节,农历年比公历年低一年
16、JNZ CON_24 MOV A,#100 ;年有效数0-99 CON_24: DEC A MOV CONvert_yeAr,A MOV A,dpl CLR C SUBB A,#3 MOV dpl,A JNC CON_26 DEC dph ;表格指针指向上一年 CON_26: MOV A,temp_Byte5 CLR C SUBB A,temp_Byte4 MOV temp_Byte3,A ;temp_Byte3中为当前日离春节的天数 MOV CONvert_mONth,#12 ;农历月为12月 CLR f0 ;1901-2099年没有闰12月,清闰月标志 CLR A MOVC A,A+dpt
17、r - 6 - ANL A,#0f0h SWAP A; MOV temp_Byte4,A ;temp_Byte4中为闰月 JZ CON_30 ;没有闰月转移 MOV A,#2 ;有闰月,取第13个月天数 MOVC A,A+dptr MOV C,ACC.7 MOV A,#1 MOVC A,A+dptr RLC A ;ACC中为最后6个月的大小值 SJMP CON_34 CON_30: MOV A,#1 MOVC A,A+dptr ;ACC中为最后6个月的大小值 CON_34: MOV temp_Byte5,A CON_40: MOV A,temp_Byte5 RRC A MOV temp_Byt
18、e5,A JC CON_42 MOV B,#29 ;小月29天 SJMP CON_44 CON_42: MOV B,#30 ;大月30天 CON_44: MOV A,temp_Byte3 CLR C SUBB A,B JZ CON_46 ;正好够减,就是农历日1日 JNC CON_50 ;不够减一月天数,结束农历月调整 CPL A ;求补取绝对值 INC A CON_46: INC A ;加1即为农历日 MOV B,#10 ;转换并保存农历日,月,年 DIV AB SWAP A ORL A,B MOV CONvert_dAte,A MOV A,CONvert_mONth MOV B,#10 D
19、IV AB SWAP A ORL A,B MOV C,f0 MOV ACC.7,C MOV CONvert_mONth,A - 7 - MOV A,CONvert_yeAr MOV B,#10 DIV AB SWAP A ORL A,B MOV CONvert_yeAr,A RET ;结束转换 CON_50: MOV temp_Byte3,A ;temp_Byte3存减去一月后的天数 JB f0,CON_52 ;是闰月,前推一月,月份不减 DEC CONvert_mONth; CON_52: MOV A,CONvert_mONth CJNE A,temp_Byte4,CON_54 CPL f0
20、 ;当前月与闰月相同,更改闰月标志 CON_54: SJMP CON_40 CON_60: MOV A,temp_Byte4 ;春节日小于当前日,农历年同公历年 CLR C SUBB A,temp_Byte5 MOV temp_Byte4,A JNC CON_62 DEC temp_Byte3 ;temp_Byte3 temp_Byte4中为公历日离春节的天数 CON_62: MOV CONvert_mONth,#1 ;农历月为1月 CLR A MOVC A,A+dptr MOV temp_Byte5,A ANL A,#0f0h SWAP A; XCH A,temp_Byte5 ;temp_B
21、yte5中为闰月,ACC为当年农历表第一字节 CLR f0 ;第一个月肯定不是闰月 ANL A,#0fh MOV temp_Byte1,A MOV A,#1 MOVC A,A+dptr MOV temp_Byte2,A ANL A,#0f0h ORL A,temp_Byte1 SWAP A MOV temp_Byte1,A MOV A,#2 MOVC A,A+dptr MOV C,ACC.7 MOV A,temp_Byte2 ANL A,#0fh - 8 - SWAP A MOV ACC.3,C; MOV temp_Byte2,A ;以上temp_Byte1,temp_Byte2各BIT存农历
22、年大小 CON_70: MOV A,temp_Byte2 RLC A MOV temp_Byte2,A MOV A,temp_Byte1 RLC A MOV temp_Byte1,A JC CON_72 MOV B,#29 ;小月29天处理 SJMP CON_74 CON_72: MOV B,#30 ;大月30天 CON_74: MOV A,temp_Byte4 CLR C SUBB A,B JNC CON_78 ;低字节够减跳转 MOV B,A ;低字节不够减, B暂存减后结果, MOV A,temp_Byte3 JZ CON_76 ;高字节为0,不够减 DEC temp_Byte3 MOV
23、 temp_Byte4,B SJMP CON_80 CON_76: MOV A,temp_Byte4 ;不够减结束月调整 LJMP CON_46 ;转日期加1后,处理并保存转换后农历年月日 CON_78: MOV temp_Byte4,A ;temp_Byte3 temp_Byte4天数为减去一月后天数 CON_80: MOV A,CONvert_mONth CJNE A,temp_Byte5,CON_82 CPL f0 ;当前月与闰月相同,更改闰月标志 JNB f0,CON_82 ;更改标志后是非闰月,月份加1 SJMP CON_70 CON_82: INC CONvert_mONth; S
24、JMP CON_70 get_dAys_lOw: MOVC A,A+PC ;取得常年过去月的天数的低字节 RET DB 0,31,59,90,120,151,181,212,243,17,48,78 get_ruN_dAys_lOw: MOVC A,A+PC ;取得闰年过去月的天数的低字节 RET DB 0,31,60,91,121,152,182,213,244,18,49,79 mONth_dAtA: ;公历年对应的农历数据,每年三字节, - 9 - ;格式第一字节BIT7-4位表示闰月月份,值为0为无闰月,BIT3-0对应农历第1-4月的大小 ;第二字节BIT7-0对应农历第5-12月大
25、小,第三字节BIT7表示农历第13个月大小 ;月份对应的位为1表示本农历月大(30天),为0表示小(29天). ;第三字节BIT6-5表示春节的公历月份,BIT4-0表示春节的公历日期 DB 004h,0Aeh,053h; 1901; DB 00Ah,057h,048h; 1902 DB 055h,026h,0Bdh; 1903 DB 00dh,026h,050h; 1904 DB 00dh,095h,044h; 1905 DB 046h,0AAh,0B9h; 1906 DB 005h,06Ah,04dh; 1907 DB 009h,0Adh,042h; 1908 DB 024h,0Aeh,0
26、B6h; 1909 DB 004h,0Aeh,04Ah; 1910 DB 06Ah,04dh,0Beh; 1911 DB 00Ah,04dh,052h; 1912 DB 00dh,025h,046h; 1913 DB 05dh,052h,0BAh; 1914 DB 00Bh,054h,04eh; 1915 DB 00dh,06Ah,043h; 1916 DB 029h,06dh,037h; 1917 DB 009h,05Bh,04Bh; 1918 DB 074h,09Bh,0C1h; 1919 DB 004h,097h,054h; 1920 DB 00Ah,04Bh,048h; 1921 DB
27、 05Bh,025h,0BCh; 1922 DB 006h,0A5h,050h; 1923 DB 006h,0d4h,045h; 1924 DB 04Ah,0dAh,0B8h; 1925 DB 002h,0B6h,04dh; 1926 DB 009h,057h,042h; 1927 DB 024h,097h,0B7h; 1928 DB 004h,097h,04Ah; 1929 DB 066h,04Bh,03eh; 1930 DB 00dh,04Ah,051h; 1931 DB 00eh,0A5h,046h; 1932 DB 056h,0d4h,0BAh; 1933 DB 005h,0Adh,0
28、4eh; 1934 DB 002h,0B6h,044h; 1935 DB 039h,037h,038h; 1936 DB 009h,02eh,04Bh; 1937 DB 07Ch,096h,0Bfh; 1938 DB 00Ch,095h,053h; 1939 DB 00dh,04Ah,048h; 1940 - 10 - DB 06dh,0A5h,03Bh; 1941 DB 00Bh,055h,04fh; 1942 DB 005h,06Ah,045h; 1943 DB 04Ah,0Adh,0B9h; 1944 DB 002h,05dh,04dh; 1945 DB 009h,02dh,042h;
29、1946 DB 02Ch,095h,0B6h; 1947 DB 00Ah,095h,04Ah; 1948 DB 07Bh,04Ah,0Bdh; 1949 DB 006h,0CAh,051h; 1950 DB 00Bh,055h,046h; 1951 DB 055h,05Ah,0BBh; 1952 DB 004h,0dAh,04eh; 1953 DB 00Ah,05Bh,043h; 1954 DB 035h,02Bh,0B8h; 1955 DB 005h,02Bh,04Ch; 1956 DB 08Ah,095h,03fh; 1957 DB 00eh,095h,052h; 1958 DB 006h
30、,0AAh,048h; 1959 DB 07Ah,0d5h,03Ch; 1960 DB 00Ah,0B5h,04fh; 1961 DB 004h,0B6h,045h; 1962 DB 04Ah,057h,039h; 1963 DB 00Ah,057h,04dh; 1964 DB 005h,026h,042h; 1965 DB 03eh,093h,035h; 1966 DB 00dh,095h,049h; 1967 DB 075h,0AAh,0Beh; 1968 DB 005h,06Ah,051h; 1969 DB 009h,06dh,046h; 1970 DB 054h,0Aeh,0BBh;
31、1971 DB 004h,0Adh,04fh; 1972 DB 00Ah,04dh,043h; 1973 DB 04dh,026h,0B7h; 1974 DB 00dh,025h,04Bh; 1975 DB 08dh,052h,0Bfh; 1976 DB 00Bh,054h,052h; 1977 DB 00Bh,06Ah,047h; 1978 DB 069h,06dh,03Ch; 1979 DB 009h,05Bh,050h; 1980 DB 004h,09Bh,045h; 1981 DB 04Ah,04Bh,0B9h; 1982 DB 00Ah,04Bh,04dh; 1983 DB 0ABh
32、,025h,0C2h; 1984 - 11 - DB 006h,0A5h,054h; 1985 DB 006h,0d4h,049h; 1986 DB 06Ah,0dAh,03dh; 1987 DB 00Ah,0B6h,051h; 1988 DB 009h,037h,046h; 1989 DB 054h,097h,0BBh; 1990 DB 004h,097h,04fh; 1991 DB 006h,04Bh,044h; 1992 DB 036h,0A5h,037h; 1993 DB 00eh,0A5h,04Ah; 1994 DB 086h,0B2h,0Bfh; 1995 DB 005h,0ACh
33、,053h; 1996 DB 00Ah,0B6h,047h; 1997 DB 059h,036h,0BCh; 1998 DB 009h,02eh,050h; 1999 DB 00Ch,096h,045h; 2000 DB 04dh,04Ah,0B8h; 2001 DB 00dh,04Ah,04Ch; 2002 DB 00dh,0A5h,041h; 2003 DB 025h,0AAh,0B6h; 2004 DB 005h,06Ah,049h; 2005 DB 07Ah,0Adh,0Bdh; 2006 DB 002h,05dh,052h; 2007 DB 009h,02dh,047h; 2008
34、DB 05Ch,095h,0BAh; 2009 DB 00Ah,095h,04eh; 2010 DB 00Bh,04Ah,043h; 2011 DB 04Bh,055h,037h; 2012 DB 00Ah,0d5h,04Ah; 2013 DB 095h,05Ah,0Bfh; 2014 DB 004h,0BAh,053h; 2015 DB 00Ah,05Bh,048h; 2016 DB 065h,02Bh,0BCh; 2017 DB 005h,02Bh,050h; 2018 DB 00Ah,093h,045h; 2019 DB 047h,04Ah,0B9h; 2020 DB 006h,0AAh
35、,04Ch; 2021 DB 00Ah,0d5h,041h; 2022 DB 024h,0dAh,0B6h; 2023 DB 004h,0B6h,04Ah; 2024 DB 069h,057h,03dh; 2025 DB 00Ah,04eh,051h; 2026 DB 00dh,026h,046h; 2027 DB 05eh,093h,03Ah; 2028 - 12 - DB 00dh,053h,04dh; 2029 DB 005h,0AAh,043h; 2030 DB 036h,0B5h,037h; 2031 DB 009h,06dh,04Bh; 2032 DB 0B4h,0Aeh,0Bfh
36、; 2033 DB 004h,0Adh,053h; 2034 DB 00Ah,04dh,048h; 2035 DB 06dh,025h,0BCh; 2036 DB 00dh,025h,04fh; 2037 DB 00dh,052h,044h; 2038 DB 05dh,0AAh,038h; 2039 DB 00Bh,05Ah,04Ch; 2040 DB 005h,06dh,041h; 2041 DB 024h,0Adh,0B6h; 2042 DB 004h,09Bh,04Ah; 2043 DB 07Ah,04Bh,0Beh; 2044 DB 00Ah,04Bh,051h; 2045 DB 00
37、Ah,0A5h,046h; 2046 DB 05Bh,052h,0BAh; 2047 DB 006h,0d2h,04eh; 2048 DB 00Ah,0dAh,042h; 2049 DB 035h,05Bh,037h; 2050 DB 009h,037h,04Bh; 2051 DB 084h,097h,0C1h; 2052 DB 004h,097h,053h; 2053 DB 006h,04Bh,048h; 2054 DB 066h,0A5h,03Ch; 2055 DB 00eh,0A5h,04fh; 2056 DB 006h,0B2h,044h; 2057 DB 04Ah,0B6h,038h
38、; 2058 DB 00Ah,0Aeh,04Ch; 2059 DB 009h,02eh,042h; 2060 DB 03Ch,097h,035h; 2061 DB 00Ch,096h,049h; 2062 DB 07dh,04Ah,0Bdh; 2063 DB 00dh,04Ah,051h; 2064 DB 00dh,0A5h,045h; 2065 DB 055h,0AAh,0BAh; 2066 DB 005h,06Ah,04eh; 2067 DB 00Ah,06dh,043h; 2068 DB 045h,02eh,0B7h; 2069 DB 005h,02dh,04Bh; 2070 DB 08
39、Ah,095h,0Bfh; 2071 DB 00Ah,095h,053h; 2072 - 13 - DB 00Bh,04Ah,047h; 2073 DB 06Bh,055h,03Bh; 2074 DB 00Ah,0d5h,04fh; 2075 DB 005h,05Ah,045h; 2076 DB 04Ah,05dh,038h; 2077 DB 00Ah,05Bh,04Ch; 2078 DB 005h,02Bh,042h; 2079 DB 03Ah,093h,0B6h; 2080 DB 006h,093h,049h; 2081 DB 077h,029h,0Bdh; 2082 DB 006h,0A
40、Ah,051h; 2083 DB 00Ah,0d5h,046h; 2084 DB 054h,0dAh,0BAh; 2085 DB 004h,0B6h,04eh; 2086 DB 00Ah,057h,043h; 2087 DB 045h,027h,038h; 2088 DB 00dh,026h,04Ah; 2089 DB 08eh,093h,03eh; 2090 DB 00dh,052h,052h; 2091 DB 00dh,0AAh,047h; 2092 DB 066h,0B5h,03Bh; 2093 DB 005h,06dh,04fh; 2094 DB 004h,0Aeh,045h; 209
41、5 DB 04Ah,04eh,0B9h; 2096 DB 00Ah,04dh,04Ch; 2097 DB 00dh,015h,041h; 2098 DB 02dh,092h,0B5h; 2099 DB 00dh,053h,049h; 2100 ;以下子程序用于从当前公历日期,推算星期, ;入口:time_yeAr,time_month ,time_date ,定义公历年月日,BCD码,其中月的 ;BIT7表示世纪,0表示20世纪,1表示19世纪,与PCF8563一致 ;出口 time_week, 0-6表示星期日-星期六,与PCF8563一致,程序不改变入口数据 ;使用资源:ACC,B,psw
42、,temp_Byte1,temp_Byte2,temp_Byte3 GetWeek: MOV A,time_yeAr MOV B,#16 DIV AB MOV temp_Byte1,B MOV B,#10 MUL AB ADD A,temp_Byte1 MOV temp_Byte1,A ;temp_Byte1=年 MOV A,time_month JB ACC.7,getw02 - 14 - MOV A,#100 ADD A,temp_Byte1 MOV temp_Byte1,A ;20世纪年+100 MOV A,time_month CLR ACC.7 getw02: JNB ACC.4,g
43、etw04 ADD A,#10 CLR ACC.4 getw04: MOV temp_Byte2,A ;temp_Byte2=月 MOV A,time_date MOV B,#16 DIV AB MOV temp_Byte3,B MOV B,#10 MUL AB ADD A,temp_Byte3 MOV temp_Byte3,A ;temp_Byte3=日 MOV A,temp_Byte1; ANL A,#03h JNZ getw10 ;非闰年转移 MOV A,temp_Byte2 CJNE A,#3,getw06 getw06: JNC getw10 ;月大于2转移 DEC temp_Byt
44、e3 ;份小于等于2,又是闰年,日减1 getw10: MOV A,temp_Byte2; LCALL get_CorreCt ;取月校正表数据 ADD A,temp_Byte1 MOV B,#7 DIV AB ;B放年加校正日数之和后除7的余数不先做这一步 ;有可能数据溢出 MOV A,temp_Byte1 ANL A,#0fCh RR A R A ;以上年除4即闰年数 ADD A,B ADD A,temp_Byte3 MOV B,#7 DIV AB MOV time_week,B RET get_COrreCt: MOVC A,A+PC RET DB 0,3,3,6,1,4,6,2,5,0,3,5
