分享51单片机+DS1302+LCD1602万年历程序，包括星期自动计算功能

一个基于51单片机，DS1302，LCD1602的万年历程序。
设置日期的时候，程序基于蔡勒（Zeller）公式会自动计算星期，包含了BCD码的处理转换。

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. uchar calc_week(uchar y,uchar m,uchar d)
   
2. {
   
3.     uint temp = 0,m_tmp=0;
   
4.     uchar week_temp;
   
5.     y = bcd_to_dec(y);
   
6.     m = bcd_to_dec(m);
   
7.     d = bcd_to_dec(d);
   
8.    
   
9.     if(m > 2)
   
10.     {
    
11.         m_tmp = m+1;
    
12.         temp = 26*m_tmp;
    
13.         temp /= 10;
    
14.         week_temp = (y+(y/4)+(temp&0xff)+d-36)%7;
    
15.     }
    
16.     else
    
17.     {
    
18.         m_tmp = m+13;
    
19.         temp = 26*m_tmp;
    
20.         temp /= 10;
    
21.         week_temp = (y - 1+((y - 1)/4)+(temp&0xff)+d-36)%7;
    
22.     }
    
23.     return week_temp;
    
24. }

复制代码

全部资料51hei下载地址：
Calendar.zip (125.7 KB, 下载次数: 673)

2019-5-18 16:11 上传

点击文件名下载附件
源码和仿真
下载积分: 黑币 -5

真实有效，完全是对的，从来没有遇到过这么良心的帖子，太感谢了

谢谢楼主~好资料，51黑有你更精彩!!! 完美运行了

感谢分享

非常好

代码写的真的不错

值得研究，好好的看看！

很感谢

为什么会报错呢
电子钟.c(1): error C129: missing ';' before 'calc_week'

有错误啊

谢谢，正需要

谢谢分享！

没有仿真吗

一二一二一 发表于 2020-1-12 19:51
没有仿真吗

有仿真的呀

露西亚想沙 发表于 2019-12-21 18:38
为什么会报错呢
电子钟.c(1): error C129: missing ';' before 'calc_week'

是不是不小心按到键盘了，我这里没问题。

蠢姐驾到 发表于 2019-12-27 23:56
有错误啊

哈，哪里出错了？

有用，感谢楼主

报错了： error C129: missing ';' before 'calc_week'

咋加个闹钟呢

非常好的例子  感谢楼主无私的分享

阿喀琉斯 发表于 2020-3-8 13:16
报错了： error C129: missing ';' before 'calc_week'

本来我是不想下载的，看到有错误特意下载想看看能不能找出错误提高自己的阅读水平，结果编译是0错误0警告。
错误提示的是“calc_week”之前缺少“；”  ，整个工程搜索calc_week只有两处，一处在在276行的函数上，前后的大括号都是配对的，符号也正常；另一处在327行上，也是前后都是正确的，所以出错应该是你自己那边的问题，下载的程序是没错的。

yiyuan3085377 发表于 2020-11-23 20:41
咋加个闹钟呢

同问加闹钟

楼主，
为啥源码打开keil就无响应

楼主，烧录后显示器只有第二行有黑格子，也没有数据

有错误，打不开

为什么所有的注释都是乱码

有没有带农历功能？

18年之前的星期转换都不对，比如2017-03-01显示星期日，真实是星期三