数字万年历毕业论文设计

电子钟相关毕业设计 ·数字电子钟的电路设计 (字数:9242,页数:22 )·数字电子钟的设计与制作 (字数:8017,页数:22 )·数字钟的设计 (字数:6208,页数:21 )·基于8051单片机的数字钟 (字数:21638,页数:50)·基于单片机的电子时钟控制系统 (字数:7935,页数:42 )·数字电路数字钟设计 (字数:4846,页数:21 )·电子闹钟设计 (字数:4094,页数:19 )·定时闹钟设计 (字数:5714,页数:24 )·智能定时闹钟设计 (字数:3826,页数:18 )·下棋定时钟设计 (字数:5290,页数:24 )·多功能数字钟设计与制作 (字数:13129,页数:34)·基于单片机的电子钟设计 (字数:7710,页数:24 )·基于单片机的数字电子钟设计 (字数:10301,页数:42)·基于Labview的虚拟数字钟设计 (字数:17457,页数:32)·电子日历钟 (字数:10677,页数:33)·数字钟的设计与制作 (字数:4922,页数:23 )·单片机数字钟设计 (字数:15355,页数:47)·基于单片机的数字钟设计 (字数:12541,页数:27)·单片机定时闹钟设计 (字数:8450,页数:24 )·万年历可编程电子钟控电铃 (字数:14371.页数:41)·数字定时闹钟设计 (字数:7770,页数:28 )·基于EDA技术的数字电子钟设计 (字数:12247,页数:32)·多功能时钟打点系统设计 (字数:8353,页数:31 )·智能音乐闹钟设计 (字数:10002,页数:37)·基于AT89S51单片机的数字电子钟设计 (字数:14560,页数:39)

前段时间写的,部分有注释,你参考参考,不懂的问我./* * * * Createdon:2013-3-11 * Author:jw */#include<>#include<>//三维数组存放日期，每年12月，日历中最多排6行(星期)，每星期7天intdays[12][6][7];//平年,闰年每个月的天数intds[2][12]={{31,28,31,30,31,30,31,31,30,31,30,31},{31,29, 31,30,31,30,31,31,30,31,30,31}};//标题chartitle[]="SUMMONTUEWEDTHUFRISAT";//月份intm[4][3]={{1,2,3},{4,5,6},{7,8,9},{10,11,12}};//月份charmt[][4]={"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC"};//根据蔡勒公式计算日期星期几intwd(intyear,intm,intd){ intc,y,w; if(m<=2){ year--; m+=12; } c=year/100; y=year%100; w=(c/4-2*c+y+y/4+13*(m+1)/5+d-1); return(w%7+7)%7;}//闰年平年intleapYear(intyear){ return(year%4==0&&year%100!=0)||(year%400==0);}intmain(){ inti,j,k,leap,fd,year; scanf("%d%*c",&year); //初始三维数组为0 for(i=0;i<12;i++){ for(j=0;j<6;j++){ for(k=0;k<7;k++){ days[i][j][k]=0; } } } fd=wd(year,1,1); leap=leapYear(year); //三维数组赋值 for(i=0;i<12;i++){ for(k=0,j=1;j<=ds[leap][i];j++){ days[i][k][fd]=j; fd=(++fd)%7; if(fd==0){ k++; } } } //输出数据 for(i=0;i<4;i++){ printf("%13s %27s %27s\n",mt[m[i][0]-1],mt[m[i][1]-1], mt[m[i][2]-1]); printf("%s %s %s\n",title,title,title); for(j=0;j<6;j++){ //1,4,7 for(k=0;k<7;k++){ if(days[m[i][0]-1][j][k]) printf("%4d",days[m[i][0]-1][j][k]); else printf(" "); } printf(" "); //2,5,8 for(k=0;k<7;k++){ if(days[m[i][1]-1][j][k]) printf("%4d",days[m[i][1]-1][j][k]); else printf(" "); } printf(" "); //3,6,9 for(k=0;k<7;k++){ if(days[m[i][2]-1][j][k]) printf("%4d",days[m[i][2]-1][j][k]); else printf(" "); } printf("\n"); } } return0;}-------------------------------------------------打印结果--------------------------------------------------------------------

#include<>#include""#define uint unsigned int#define uchar unsigned charuchar a,miao,shi,fen,ri,yue,nian,week,flag,key1n,temp;//flag用于读取头文件中的温度值，和显示温度值#define yh 0x80 //LCD第一行的初始位置,因为LCD1602字符地址首位D7恒定为1（100000000=80）#define er 0x80+0x40 //LCD第二行初始位置（因为第二行第一个字符位置地址是0x40）//液晶屏的与C51之间的引脚连接定义（显示数据线接C51的P0口）sbit rs=P1^0;sbit en=P1^2;sbit rw=P1^1; //如果硬件上rw接地，就不用写这句和后面的rw=0了sbit led=P3^7; //LCD背光开关//DS1302时钟芯片与C51之间的引脚连接定义sbit IO=P2^2;sbit SCLK=P2^1;sbit RST=P2^2;sbit ACC0=ACC^0;sbit ACC7=ACC^7;/************************************************************ACC累加器= 就是ACC的第0位。Acc可以位寻址。累加器ACC是一个8位的存储单元，是用来放数据的。但是，这个存储单元有其特殊的地位，是单片机中一个非常关键的单元，很多运算都要通过ACC来进行。以后在学习指令时，常用A来表示累加器。但有一些地方例外，比如在PUSH指令中，就必须用ACC这样的名字。一般的说法，A代表了累加器中的内容、而ACC代表的是累加器的地址。 ***************************************************************///校时按键与C51的引脚连接定义sbit key1=P2^4; //设置键sbit key2=P2^5; //加键sbit key3=P2^6; //减键sbit buzzer=P2^0;//蜂鸣器，通过三极管9012驱动，端口低电平响/**************************************************************/uchar code tab1[]={"20 - - "}; //年显示的固定字符uchar code tab2[]={" : : "};//时间显示的固定字符//延时函数，后面经常调用void delay(uint xms)//延时函数，有参函数{ uint x,y; for(x=xms;x>0;x--) for(y=120;y>0;y--);}/********液晶写入指令函数与写入数据函数，以后可调用**************//*在这个程序中，液晶写入有关函数会在DS1302的函数中调用，所以液晶程序要放在前面*/write_1602com(uchar com)//****液晶写入指令函数****{ rs=0;//数据/指令选择置为指令 rw=0; //读写选择置为写 P0=com;//送入数据 delay(1); en=1;//拉高使能端，为制造有效的下降沿做准备 delay(1); en=0;//en由高变低，产生下降沿，液晶执行命令}write_1602dat(uchar dat)//***液晶写入数据函数****{ rs=1;//数据/指令选择置为数据 rw=0; //读写选择置为写 P0=dat;//送入数据 delay(1); en=1; //en置高电平，为制造下降沿做准备 delay(1); en=0; //en由高变低，产生下降沿，液晶执行命令}lcd_init()//***液晶初始化函数****{ write_1602com(0x38);//设置液晶工作模式，意思：16*2行显示，5*7点阵，8位数据 write_1602com(0x0c);//开显示不显示光标 write_1602com(0x06);//整屏不移动，光标自动右移 write_1602com(0x01);//清显示 write_1602com(yh+1);//日历显示固定符号从第一行第1个位置之后开始显示 for(a=0;a<14;a++) { write_1602dat(tab1[a]);//向液晶屏写日历显示的固定符号部分 //delay(3); } write_1602com(er+2);//时间显示固定符号写入位置，从第2个位置后开始显示 for(a=0;a<8;a++) { write_1602dat(tab2[a]);//写显示时间固定符号，两个冒号 //delay(3); }}/*********************over***********************//***************DS1302有关子函数********************/void write_byte(uchar dat)//写一个字节{ ACC=dat; RST=1; for(a=8;a>0;a--) { IO=ACC0; SCLK=0; SCLK=1; ACC=ACC>>1; }}uchar read_byte()//读一个字节{ RST=1; for(a=8;a>0;a--) { ACC7=IO; SCLK=1; SCLK=0; ACC=ACC>>1; } return (ACC);}//----------------------------------------void write_1302(uchar add,uchar dat)//向1302芯片写函数，指定写入地址，数据{ RST=0; SCLK=0; RST=1; write_byte(add); write_byte(dat); SCLK=1; RST=0;}uchar read_1302(uchar add)//从1302读数据函数，指定读取数据来源地址{ uchar temp; RST=0; SCLK=0; RST=1; write_byte(add); temp=read_byte(); SCLK=1; RST=0; return(temp);}uchar BCD_Decimal(uchar bcd)//BCD码转十进制函数，输入BCD，返回十进制{ uchar Decimal; Decimal=bcd>>4; return(Decimal=Decimal*10+(bcd&=0x0F));}//--------------------------------------void ds1302_init() //1302芯片初始化子函数(2010-01-07,12:00:00,week4){RST=0;SCLK=0;write_1302(0x8e,0x00); //允许写，禁止写保护 write_1302(0x80,0x00); //向DS1302内写秒寄存器80H写入初始秒数据00write_1302(0x82,0x00);//向DS1302内写分寄存器82H写入初始分数据00write_1302(0x84,0x12);//向DS1302内写小时寄存器84H写入初始小时数据12write_1302(0x8a,0x04);//向DS1302内写周寄存器8aH写入初始周数据4write_1302(0x86,0x07);//向DS1302内写日期寄存器86H写入初始日期数据07write_1302(0x88,0x01);//向DS1302内写月份寄存器88H写入初始月份数据01write_1302(0x8c,0x10);//向DS1302内写年份寄存器8cH写入初始年份数据10write_1302(0x8e,0x80); //打开写保护}//------------------------------------//温度显示子函数void write_temp(uchar add,uchar dat)//向LCD写温度数据,并指定显示位置{ uchar gw,sw; gw=dat%10;//取得个位数字 sw=dat/10;//取得十位数字 write_1602com(er+add);//er是头文件规定的值0x80+0x40 write_1602dat(0x30+sw);//数字+30得到该数字的LCD1602显示码 write_1602dat(0x30+gw);//数字+30得到该数字的LCD1602显示码 write_1602dat(0xdf);//显示温度的小圆圈符号，0xdf是液晶屏字符库的该符号地址码 write_1602dat(0x43); //显示"C"符号，0x43是液晶屏字符库里大写C的地址码 }//------------------------------------//时分秒显示子函数void write_sfm(uchar add,uchar dat)//向LCD写时分秒,有显示位置加、现示数据，两个参数{ uchar gw,sw; gw=dat%10;//取得个位数字 sw=dat/10;//取得十位数字 write_1602com(er+add);//er是头文件规定的值0x80+0x40 write_1602dat(0x30+sw);//数字+30得到该数字的LCD1602显示码 write_1602dat(0x30+gw);//数字+30得到该数字的LCD1602显示码 }//-------------------------------------//年月日显示子函数void write_nyr(uchar add,uchar dat)//向LCD写年月日，有显示位置加数、显示数据，两个参数{ uchar gw,sw; gw=dat%10;//取得个位数字 sw=dat/10;//取得十位数字 write_1602com(yh+add);//设定显示位置为第一个位置+add write_1602dat(0x30+sw);//数字+30得到该数字的LCD1602显示码 write_1602dat(0x30+gw);//数字+30得到该数字的LCD1602显示码 }//-------------------------------------------void write_week(uchar week)//写星期函数{ write_1602com(yh+0x0c);//星期字符的显示位置 switch(week) { case 1:write_1602dat('M');//星期数为1时，显示 write_1602dat('O'); write_1602dat('N'); break; case 2:write_1602dat('T');//星期数据为2时显示 write_1602dat('U'); write_1602dat('E'); break; case 3:write_1602dat('W');//星期数据为3时显示 write_1602dat('E'); write_1602dat('D'); break; case 4:write_1602dat('T');//星期数据为4是显示 write_1602dat('H'); write_1602dat('U'); break; case 5:write_1602dat('F');//星期数据为5时显示 write_1602dat('R'); write_1602dat('I'); break; case 6:write_1602dat('S');//星期数据为6时显示 write_1602dat('T'); write_1602dat('A'); break; case 7:write_1602dat('S');//星期数据为7时显示 write_1602dat('U'); write_1602dat('N'); break;}}//****************键盘扫描有关函数**********************void keyscan(){ if(key1==0)//---------------key1为功能键（设置键）-------------------- { delay(9);//延时，用于消抖动 if(key1==0)//延时后再次确认按键按下 { buzzer=0;//蜂鸣器短响一次 delay(20); buzzer=1; while(!key1); key1n++; if(key1n==9) key1n=1;//设置按键共有秒、分、时、星期、日、月、年、返回，8个功能循环 switch(key1n) { case 1: TR0=0;//关闭定时器 //TR1=0; write_1602com(er+0x09);//设置按键按动一次，秒位置显示光标 write_1602com(0x0f);//设置光标为闪烁 temp=(miao)/10*16+(miao)%10;//秒数据写入DS1302 write_1302(0x8e,0x00); write_1302(0x80,0x80|temp);//miao write_1302(0x8e,0x80); break; case 2: write_1602com(er+6);//按2次fen位置显示光标 //write_1602com(0x0f); break; case 3: write_1602com(er+3);//按动3次，shi //write_1602com(0x0f); break; case 4: write_1602com(yh+0x0e);//按动4次，week //write_1602com(0x0f); break; case 5: write_1602com(yh+0x0a);//按动5次，ri //write_1602com(0x0f); break; case 6: write_1602com(yh+0x07);//按动6次，yue //write_1602com(0x0f); break; case 7: write_1602com(yh+0x04);//按动7次，nian //write_1602com(0x0f); break; case 8: write_1602com(0x0c);//按动到第8次，设置光标不闪烁 TR0=1;//打开定时器 temp=(miao)/10*16+(miao)%10; write_1302(0x8e,0x00); write_1302(0x80,0x00|temp);//miao数据写入DS1302 write_1302(0x8e,0x80); break; }} }//------------------------------加键key2---------------------------- if(key1n!=0)//当key1按下以下。再按以下键才有效（按键次数不等于零） { if(key2==0) //上调键 { delay(10); if(key2==0) { buzzer=0;//蜂鸣器短响一次 delay(20); buzzer=1; while(!key2); switch(key1n) { case 1:miao++;//设置键按动1次，调秒 if(miao==60) miao=0;//秒超过59，再加1，就归零 write_sfm(0x08,miao);//令LCD在正确位置显示"加"设定好的秒数 temp=(miao)/10*16+(miao)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00); //允许写，禁止写保护 write_1302(0x80,temp); //向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); //打开写保护 write_1602com(er+0x09);//因为设置液晶的模式是写入数据后，光标自动右移，所以要指定返回 //write_1602com(0x0b); break; case 2:fen++; if(fen==60) fen=0; write_sfm(0x05,fen);//令LCD在正确位置显示"加"设定好的分数据 temp=(fen)/10*16+(fen)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x82,temp);//向DS1302内写分寄存器82H写入调整后的分数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(er+6);//因为设置液晶的模式是写入数据后，指针自动加一，在这里是写回原来的位置 break; case 3:shi++; if(shi==24) shi=0; write_sfm(2,shi);//令LCD在正确的位置显示"加"设定好的小时数据 temp=(shi)/10*16+(shi)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x84,temp);//向DS1302内写小时寄存器84H写入调整后的小时数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(er+3);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 4:week++; if(week==8) week=1; write_1602com(yh+0x0C);//指定'加'后的周数据显示位置 write_week(week);//指定周数据显示内容 temp=(week)/10*16+(week)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x8a,temp);//向DS1302内写周寄存器8aH写入调整后的周数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+0x0e);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 5:ri++; if(ri==32) ri=1; write_nyr(9,ri);//令LCD在正确的位置显示"加"设定好的日期数据 temp=(ri)/10*16+(ri)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x86,temp);//向DS1302内写日期寄存器86H写入调整后的日期数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+10);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 6:yue++; if(yue==13) yue=1; write_nyr(6,yue);//令LCD在正确的位置显示"加"设定好的月份数据 temp=(yue)/10*16+(yue)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x88,temp);//向DS1302内写月份寄存器88H写入调整后的月份数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+7);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 7:nian++; if(nian==100) nian=0; write_nyr(3,nian);//令LCD在正确的位置显示"加"设定好的年份数据 temp=(nian)/10*16+(nian)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x8c,temp);//向DS1302内写年份寄存器8cH写入调整后的年份数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+4);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break;} } } //------------------减键key3，各句功能参照'加键'注释--------------- if(key3==0) { delay(10);//调延时，消抖动 if(key3==0) { buzzer=0;//蜂鸣器短响一次 delay(20); buzzer=1; while(!key3); switch(key1n) { case 1:miao--; if(miao==-1) miao=59;//秒数据减到-1时自动变成59 write_sfm(0x08,miao);//在LCD的正确位置显示改变后新的秒数 temp=(miao)/10*16+(miao)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00); //允许写，禁止写保护 write_1302(0x80,temp); //向DS1302内写秒寄存器80H写入调整后的秒数据BCD码 write_1302(0x8e,0x80); //打开写保护 write_1602com(er+0x09);//因为设置液晶的模式是写入数据后，指针自动加一，在这里是写回原来的位置 //write_1602com(0x0b); break; case 2:fen--; if(fen==-1) fen=59; write_sfm(5,fen); temp=(fen)/10*16+(fen)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x82,temp);//向DS1302内写分寄存器82H写入调整后的分数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(er+6);//因为设置液晶的模式是写入数据后，指针自动加一，在这里是写回原来的位置 break; case 3:shi--; if(shi==-1) shi=23; write_sfm(2,shi); temp=(shi)/10*16+(shi)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x84,temp);//向DS1302内写小时寄存器84H写入调整后的小时数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(er+3);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 4:week--; if(week==0) week=7; write_1602com(yh+0x0C);//指定'加'后的周数据显示位置 write_week(week);//指定周数据显示内容 temp=(week)/10*16+(week)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x8a,temp);//向DS1302内写周寄存器8aH写入调整后的周数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+0x0e);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 5:ri--; if(ri==0) ri=31; write_nyr(9,ri); temp=(ri)/10*16+(ri)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x86,temp);//向DS1302内写日期寄存器86H写入调整后的日期数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+10);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 6:yue--; if(yue==0) yue=12; write_nyr(6,yue); temp=(yue)/10*16+(yue)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x88,temp);//向DS1302内写月份寄存器88H写入调整后的月份数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+7);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break; case 7:nian--; if(nian==-1) nian=99; write_nyr(3,nian); temp=(nian)/10*16+(nian)%10;//十进制转换成DS1302要求的DCB码 write_1302(0x8e,0x00);//允许写，禁止写保护 write_1302(0x8c,temp);//向DS1302内写年份寄存器8cH写入调整后的年份数据BCD码 write_1302(0x8e,0x80);//打开写保护 write_1602com(yh+4);//因为设置液晶的模式是写入数据后，指针自动加一，所以需要光标回位 break;} } } }}//-------------------------------void init() //定时器、计数器设置函数{ TMOD=0x11; //指定定时/计数器的工作方式为3 TH0=0; //定时器T0的高四位=0 TL0=0; //定时器T0的低四位=0 EA=1; //系统允许有开放的中断 ET0=1; //允许T0中断 TR0=1; //开启中断，启动定时器}//*******************主函数**************************//***************************************************void main(){ lcd_init(); //调用液晶屏初始化子函数 ds1302_init(); //调用DS1302时钟的初始化子函数 init(); //调用定时计数器的设置子函数 led=0; //打开LCD的背光电源 buzzer=0;//蜂鸣器长响一次 delay(80); buzzer=1; while(1) //无限循环下面的语句： { keyscan(); //调用键盘扫描子函数 }}void timer0() interrupt 1 //取得并显示日历和时间{ //Init_DS18B20();//温度传感器DS18b2初始化子函数，在头文件中 flag=ReadTemperature();//将18b2头文件运行返回的函数结果送到变量FLAG中，用于显示 //读取秒时分周日月年七个数据（DS1302的读寄存器与写寄存器不一样）：miao = BCD_Decimal(read_1302(0x81)); fen = BCD_Decimal(read_1302(0x83)); shi = BCD_Decimal(read_1302(0x85)); ri = BCD_Decimal(read_1302(0x87)); yue = BCD_Decimal(read_1302(0x89)); nian=BCD_Decimal(read_1302(0x8d)); week=BCD_Decimal(read_1302(0x8b)); //显示温度、秒、时、分数据： write_temp(12,flag);//显示温度，从第二行第12个字符后开始显示 write_sfm(8,miao);//秒，从第二行第8个字后开始显示（调用时分秒显示子函数） write_sfm(5,fen);//分，从第二行第5个字符后开始显示 write_sfm(2,shi);//小时，从第二行第2个字符后开始显示 //显示日、月、年数据： write_nyr(9,ri);//日期，从第二行第9个字符后开始显示 write_nyr(6,yue);//月份，从第二行第6个字符后开始显示 write_nyr(3,nian);//年，从第二行第3个字符后开始显示 write_week(week);}

昨天才把我的毕业论文删掉。。

到看一下吧，这里有讲解51单片机的

这是当时我做的一个小小的课题，希望对你有所帮助#include""/*RequiredforMS-DOSuse*/#defineENTER0x1C0D/*Enterkey*/intyear,month,day;staticchar*days[8]={"","Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"};structTIMEDATE{intyear;/*year1980..2099*/intmonth;/*month1=Jan2=Feb,etc.*/intday;/*dayofmonth0..31*/inthours;/*hour0..23*/intminutes;/*minute0..59*/intseconds;/*second0..59*/inthsecs;/*1/100thsofsecond0..99*/chardateline[47];/*date&timetogether*/};staticstructTIMEDATEtoday;main(){charcmonth[3];charcday[3];charcyear[5];doublegetdays();doubledaynumb,numbnow;intweekday,retcode,dayer,i;dayer=datetime(&today);clrscn();for(i=0;i<3;++i)cmonth[i]='\0';for(i=0;i<3;++i)cday[i]='\0';for(i=0;i<5;++i)cyear[i]='\0';putstr(5,8,14,"EnterdateinMMDDYYYYformat:");while(retcode!=ENTER){retcode=bufinp(5,41,13,2,cmonth);if(retcode!=ENTER)retcode=bufinp(5,44,13,2,cday);if(retcode!=ENTER)retcode=bufinp(5,47,13,4,cyear);}year=atoi(&cyear);month=atoi(&cmonth);day=atoi(&cday);daynumb=getdays(year,month,day);numbnow=getdays();weekday=weekdays(daynumb);if(numbnow-daynumb==0)printf("\n\n%02d-%02d-%dis",month,day,year);if(numbnow-daynumb>0)printf("\n\n%02d-%02d-%dwas",month,day,year);if(numbnow-daynumb<0)printf("\n\n%02d-%02d-%dwillbe",month,day,year);printf("a%s\n",days[weekday]);}/*endMAIN*//*************************************************************GETDAYS-Fromintegervaluesofyear(YYYY),month**(MM)andday(DD)thissubroutinereturnsa**doublefloatnumberwhichrepresentsthe**numberofdayssinceJan1,1980(day1).**ThisroutineistheoppositeofGETDATE.*************************************************************/doublegetdays(year,month,day)intyear,month,day;{inty,m;doublea,b,d,daynumb;doublefloor(),intg();/************************************makecorrectionfornoyear0************************************/if(year<0)y=year+1;elsey=year;/***********************************************************JanandFebaremonths13and14inthiscalculation***********************************************************/m=month;if(month<3){m=m+12;y=y-1;}/****************************calculateJuliandays****************************/d=floor(*y)+intg(*(m+1))+;/************************************************useJuliancalendarifbeforeOct5,1582************************************************/if(d<)daynumb=d;/***************************************otherwiseuseGregoriancalendar***************************************/else{a=floor(y/);b=2-a+floor(a/);daynumb=d+b;}return(daynumb);}/*endGETDAYS*//*********************************************************GETDATE-Thisroutinetakesadoublefloatnumber**representingthenumberofdayssinceJan1,**1980(day1)andreturnstheyearmonthand**dayaspointerintegers**ThisroutineistheoppositeofGETDAYS*********************************************************/getdate(numb)doublenumb;{doublea,aa,b,c,d,e,z;doubledate;date=numb;z=intg(date+);if(date<)a=z;else{aa=floor(()/);a=z+1+aa-floor(aa/);}b=a+;c=intg(()/);d=intg(*c);e=intg((b-d)/);day=b-d-intg(*e);if(e>)month=;elsemonth=;if(month>2)year=;elseyear=;if(year<1)--year;return;}/*endGETDATE*//*********************************************************WEEKDAYS-Thisroutinetakesadoublefloatnumber**representingthenumberofdayssinceJan1,**1980(day1)andreturnsthedayoftheweek**where1=Sunday,2=Tuesday,etc.*********************************************************/intweekdays(numb)doublenumb;{doubledd;intday;dd=numb;while(dd>)dd=;while(dd<0)dd=dd+;day=dd;day=((day+1)%7)+1;return(day);}/*********************************************************FRACT-Thisroutinetakesadoublefloatnumber**andreturnsthefractionalpartasadouble**floatnumber*********************************************************/doublefract(numb)doublenumb;{intinumb;doublefnumb;while(numb<-32767)numb+=32767;while(numb>32767)numb-=32767;inumb=numb;fnumb=inumb;return(numb-fnumb);}/*endFRACT*//*********************************************************FLOOR-Thisroutinetakesadoublefloatnumber**andreturnsthenextsmallestinteger*********************************************************/doublefloor(numb)doublenumb;{doublefract(),intg();doubleout;out=intg(numb);if(numb<0&&fract(numb)!=0)out-=;return(out);}/*endFLOOR*//*********************************************************INTG-Thisroutinetakesadoublefloatnumber**andreturnstheintegerpartasadouble**floatnumber*********************************************************/doubleintg(numb)doublenumb;{doublefract();return(numb-fract(numb));}/*endINTG*/