一概述

公历是全世界通用的历法以地球绕太阳的一周为一年一年 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 表示春节的公历日期

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