DIY编程器网

标题: 用51 单片机实现公历与农历星期的转换 [打印本页]

作者: liyf    时间: 2014-10-5 10:31
标题: 用51 单片机实现公历与农历星期的转换
用51 单片机实现公历与农历星期的转换

一概述

公历是全世界通用的历法以地球绕太阳的一周为一年一年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 秒为了更准确地计时天文学家又规定凡能被100 整除

的年份只有能被400 整除才是闰年即每400 年要减掉3 个闰年经过这样处理后实际上每400 年的误差只有2 小时

53 20 秒已相当准确了

农历与公历不同农历把月亮绕地球一周作为一月因为月亮绕地球一周不是一整天所以农历把月分为大月和小

月大月30 天小月29 天通过设置大小月使农历日始终与月亮与地球的位置相对应为了使农历的年份与公历年

相对应农历通过设置闰月的办法使它的平均年长度与公历年相等农历是中国传统文化的代表之一并与农业生产联

系密切中国人民特别是广大农民十分熟悉并喜爱农历

公历与农历是我国目前并存的两种历法各有其固有的规律农历与月球的运行相对应其影响因素多它的大小

月和闰月与天体运行有关计算十分复杂且每年都不一致因此要用单片机实现公历与农历的转换用查表法是最方

便实用的办法

51 系列单片机因其在功能上能满足大部份对速度要求不高的应用场合的要求且价格低廉开发工具普及程度高

是目前应用最多的单片机之一本文介绍一种用51 单片机实现从1901 年到2099 199 年公历日到农历日及星期的转

换方法并向读者提供完整的51 汇编程序

二基本原理

实现公历与农历的转换一般采用查表法按日查表是速度最快的方法但51 单片机寻址能力有限不可能采用

按日查表的方法除按日查外我们可以通过按月查表和按年查表的方法再通过适当的计算来确定公历日所对应的

农历日期本文采用的是按年查表法最大限度地减少表格所占的程序空间

对于农历月来说大月为30 天小月为29 天这是固定不变的这样我们就可用1 BIT 位来表示大小月信

息农历一年如有闰月为13 个月否则是12 个月所以一年需要用13 BIT 闰月在农历年中所在的月份并不固定

大部分闰月分布在农历2 8 月但也有少量年份在9 月以后所以要表示闰月的信息至少要4BIT 在这里我们用4BIT

的值来表示闰月的月份值为0 表示本年没有闰月有了以上信息还不足以判断公历日对应的农历日因为还需要一

个参照日我们选用农历正月初一所对应的公历日期作参照日公历日最大为31 日需要5BIT 来表示而春节所在的

月份不是1 月就是2 月用1BIT 就够了考虑到表达方便我们用2BIT 来表示春节月2BIT 的值直接表示月份这

样一年的农历信息只用3 个字节就全部包括了

计算公历日对应的农历日期的方法先计算出公历日离当年元旦的天数然后查表取得当年的春节日期计算出春

节离元旦的天数二者相减即可算出公历日离春节的天数以后只要根据大小月和闰月信息减一月天数调整一月农

历月份即可推算出公历日所对应的农历日期如公历日不到春节日期农历年要比公历年小一年农历大小月取前一

年的信息农历月从12 月向前推算

公历日是非常有规律的所以公历日所对应的星期天可以通过计算直接得到理论上公元0 1 1 日为星期日

只要求得公历日离公元0 1 1 日的日子数除7 后的余数就是星期天为了简化计算采用月校正法根据公历的

年月日可直接计算出星期天其算法是日期年份所过闰年数月校正数之和除7 的余数就是星期天但如果是在

闰年又不到3 月份上述之和要减一天再除7 1 12 月的校正数据为6 2 2 5 0 3 5 1 4 6 2 4

本程序中采用1 个字节表示年份闰年数也只计算1900 年以后的闰年数所以实际校正数据也和上述数据不同

- 2 -

三程序流程

由于星期的计算很简单这里只提供公历日转农历日的程序流程图




是否

子程序入口

转换数据到HEX 格式方便运算

根据公历年定位数据表的地址

从数据表中取得春节的公历日期,并通过

计算公历日和春节离元旦的天数算出公历

日离春节的天数记为X

农历年=公历年减

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 1

F0 取反


农历日X 1


农历年月日数

据标准化

子程序出口

- 3 -

四程序使用说明

本文提供的子程序在设计时应用了PCF8563 作时钟芯片所以其入口格式与PCF8563 芯片的时钟信号存储格式完

全一致年月日均为BCD 码其中月的BIT7 表示世纪为1 表示19 世纪为0 表示20 世纪采用PCF8563

钟芯片只要把它的年月日寄存器内容读出到time_yeAr time_month time_date 三个单元内即可直接调用本

程序转换采用其它时钟芯片调用前要把时钟格式稍作调整或修改一下程序公历日转农历日程序在12M 晶振下

执行时间最长约0.48 毫秒实际使用时只需在复位和日期变化时才需要调用一次对于公历日转星期天的子程序则

只在设置时钟时才有用在设置时钟年月日后调用子程序得到对应的星期天直接写入时钟即可

子程序附带了1901-2100 年的农历数据表全部编译要占600 字节空间如不需这么多可把不需要的数据删除然

后修改stArt_yeAr 值即可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 DATA 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,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,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 ;春节日

; 以下计算当前日期距元旦天数

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 ;取得闰年过去月的天数的低字节

SJMP CON_12

CON_10: MOV A,CONvert_mONth

LCALL get_dAys_lOw ;取得常年过去月的天数的低字节

CON_12: MOV B,CONvert_dAte

DEC B ;因为日期从1 日起,而不是0 日起

ADD 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_lOw ;春节不会在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 ;不到春节,农历年比公历年低一年

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+dptr

- 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_Byte5,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

DIV 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 ;当前月与闰月相同,更改闰月标志

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_Byte5 中为闰月,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 存农历年大小

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 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;

SJMP 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 月大小,第三字节BIT7 表示农历第13 个月大小

;月份对应的位为1 表示本农历月大(30 ),0 表示小(29 ).

;第三字节BIT6-5 表示春节的公历月份,BIT4-0 表示春节的公历日期

<FONT face=TimesNewRomanPSMT>
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,0B6h; 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 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,04eh; 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; 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,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; 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,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,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

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,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 -

<P align=left>
作者: 李小路    时间: 2021-6-24 09:21
谢谢分享!




欢迎光临 DIY编程器网 (http://diybcq.com/) Powered by Discuz! X3.2