黄历算法_万年历算法_农历万年历算法(30)

write_com(0x80+0x0b); for(a=0;a

if(S1num==5)//调整日 { ri--;if(yue==2) { if(nian%400==0) { if(ri==0) {ri=29; } } if(nian%400!=0) { if(ri==0) {ri=28; } } } else if(yue

} else if(yue>=8) {if(yue%2==0){if(ri==0){ri=31;}}else if(yue%2!=0){if(ri==0){ri=30;}} } write_yr(8,ri);} if(S1num==6){ yue--; if(yue==0)yue=12; write_yr(5,yue); } if(S1num==7){ nian--; if(nian==2013)nian=2018; write_nian(0,nian); } } }

if(S4==0){ delay(5); if(S4==0) { S1num=0; TR0=1; write_com(0x0c);

//调整月

//调整年

//退出设置、开启中断

} } } }

/************************************************** 定时器0

*************************************************/ void timer0() interrupt 1//定时器0中断服务程序 { TH0=(65535-50000)/256;//重装定时器初始值 TL0=(65535-50000)%256; count++;//中断次数累加 if(count==20)//20次50毫秒即一秒 { count=0; miao++; if(miao==60)//秒加到60时分进位 { miao=0; fen++; if(fen==60)//分加到60时时进位 {fen=0;shi++;if(shi==24)//时加到24时清0{shi=0;xqnum++;ri++;if(yue==2)//如果是二月{if(nian%400==0) //闰年判断{if(ri==30){ri=1;yue++;write_yr(5,yue);}}if(nian%400!=0)//平年判断{

if(ri==29){ri=1;yue++;write_yr(5,yue);}}}else if(yue=8)//八月到12月{if(yue%2==0) //偶数月（除二月）{if(ri==32){ri=1;yue++;if(yue==13)//如果判断月份为12月，则加一后重新定义月份为1{yue=1;nian++;write_nian(0,nian);}write_yr(5,yue);

}}else if(yue%2!=0) //奇数月{if(ri==31){ri=1;yue++;write_yr(5,yue);}}}write_yr(8,ri);if(xqnum==7)//星期写入xqnum=0;write_com(0x80+0x0b);for(a=0;a

/************************************************* 主函数

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-26593-30.html