(完整版)C語(yǔ)言萬(wàn)年歷

1、C語(yǔ)言萬(wàn)年歷說明部分在TC或VC6.0中編譯程序，編譯成功后，通過命令行向編譯生成的可執(zhí)行文件(.exe) 傳遞參數(shù)，在命令行中輸入該執(zhí)行文件的路徑名稱，然后再輸入傳入的參數(shù)，回車，就會(huì)顯 示出運(yùn)行結(jié)果，效果如圖1所示。圖1.1萬(wàn)年歷運(yùn)行界面代碼部分#include main(int a,char *date)mt yeai-4iiontli=0,day=0,week;mt d,i,dm,dy,m2;chaiWEEK9;if(a=l)pnntf (n ERROR! you forgot to enter the date you want to viewnn);exit (0);1=0； d=

2、-l;while (dateli)/*遍歷傳入的參數(shù)日期，計(jì)算出yea】，month, day*/(if(dateli=/l|dateli=,.,)&d=-l) d=0; i+; contmue;if (dateli=/l|dateli=,.,)&d=O) d=l; i十十；continue; if (d=-l) year=year* 10+(date 1 i-*0);if (d=0) month=month*10-i-(dateli-,0,);if(d= 1) day=day*l 0+(datel i0)； i十十；if (month 12)/ *若月份傳入錯(cuò)誤數(shù)字*/pimtf (ii E

3、RROR! the entered MONTH is mvalidiin); exit (0);)if (yeai-=2000)d戶0；/*年引起的星期差為0個(gè)*/ni2=l;/*2月引起的星期差為1個(gè)*/goto la_100;)if (year2000)d=(year-1 -2000)/4-(year-1 -2000)/100+(year-1 -2000)/400+1;elsed=(year-2000)/4-(yeai-2000)/100+(yeai-2000)/400;dy=(year-2000)+d;/*該年1月1號(hào) 到2000年1月1號(hào)的“星期差” */if(yeai%4=0&yea

4、i-% 100!=0)|(year% 100=0&yeai%400=0) ni2=l;elseni2=0; /*該年是否潤(rùn)*/la_100:/* la_100 */*該月以前的月所引起的“星期差”*/switch (month)(case 1: dm=0; month=31; break; /* month 在此存放該月天數(shù) */ case 2: dm=3; month=d=l? 29:28; break;case 3: dm=3+ni2; montli=31; break;case 4: dm=6+ni2; montli=30; break;case 5: dm=l+ni2; montli=

5、31; break;case 6: dm=4+ni2; montli=30; break;case 7: dm=6+ni2; montli=31; break;case 8: dm=2+ni2; montli=31; break;case 9: dm=5+ni2; montli=30; break;case 10: dm=ni2; month=31; break;case 11: dm=3+ni2; montli=30; break;case 12: dm=5十m2; montli=31; break;)if (daymonth)(prmtf (uii ERROR! the entered D

6、AY is uivalidiin);exit (0);)week=(dy+dm+day-1 十 6)%7;if(week0) /*判定查看類型*/switch (week)case 0: sticpy (WEEK,SUNDAY)； break;case 1: sticpy (WEEKJMONDAY”)； break;case 2: sticpy (WEEKJTUESDAY”)； break;case 3: sticpy (WEEK J WEDNESDAY) break;case 4: sticpy (WEEKJTHURSDAY) break;case 5: sticpy (WEEKJFRIDAY) break;case 6: sticpy (WEEK,SATURDAY”)； break;)pnntf(nii this day is %s ( %d )iiii OK!n”,WEEK,week);)elseweek=+week%7;pnntf (”n the calender of this montli as fbllowingiin);priiitf (n *pnntf (H SUN MON TUE WEN THU FRI STAiiH);for (i=0;iweek;i+)plllltf(n ”)；fo