万年历程序设计c语言代码

万年历程序设计c语言代码

ID:38704094

大小:48.50 KB

页数:5页

时间:2019-06-17

万年历程序设计c语言代码_第1页
万年历程序设计c语言代码_第2页
万年历程序设计c语言代码_第3页
万年历程序设计c语言代码_第4页
万年历程序设计c语言代码_第5页
资源描述:

《万年历程序设计c语言代码》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、这是当时我做的一个小小的课题,希望对你有所帮助#include"stdio.h"/*RequiredforMS-DOSuse*/#defineENTER0x1C0D/*Enterkey*/intyear,month,day;staticchar*days[8]={"","Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"};structTIMEDATE{intyear;/*year1980..2099*/intmonth;/*month1=J

2、an2=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];doubleg

3、etdays();doubledaynumb,numbnow;intweekday,retcode,dayer,i;dayer=datetime(&today);clrscn();for(i=0;i<3;++i)cmonth[i]='';for(i=0;i<3;++i)cday[i]='';for(i=0;i<5;++i)cyear[i]='';putstr(5,8,14,"EnterdateinMMDDYYYYformat:");while(retcode!=ENTER){retcode=bufinp(5,41,1

4、3,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(today.year,today.month,today.day);weekday=weekdays(da

5、ynumb);if(numbnow-daynumb==0)printf("%02d-%02d-%dis",month,day,year);if(numbnow-daynumb>0)printf("%02d-%02d-%dwas",month,day,year);if(numbnow-daynumb<0)printf("%02d-%02d-%dwillbe",month,day,year);printf("a%s",days[weekday]);}/*endMAIN*//****************

6、*********************************************GETDAYS-Fromintegervaluesofyear(YYYY),month**(MM)andday(DD)thissubroutinereturnsa**doublefloatnumberwhichrepresentsthe**numberofdayssinceJan1,1980(day1).**ThisroutineistheoppositeofGETDATE.*********************************

7、****************************/doublegetdays(year,month,day)intyear,month,day;{inty,m;doublea,b,d,daynumb;doublefloor(),intg();/************************************makecorrectionfornoyear0************************************/if(year<0)y=year+1;elsey=year;/*************

8、**********************************************JanandFebaremonths13and14inthiscalculation*******************************************

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。