#include<stdio.h>
#include <string.h>
#include <time.h>
#include <math.h>
#include <windows.h>
int year , month , day ;
int day_of_month[12] = {31,28,31,30,31,30,31,31,30,31,30,31};
//char wek[7]={'周日','周一','周二','周三','周四','周五','周六'};
int current_year,current_month,current_day;
/************************************通用關鍵函數**************************************************/
void cls_screen()
{
    printf("請按任意鍵返回!/n");
    getchar();
    getchar();
    system("cls");
}
void get_current_time()   //獲取當前時間
{
    time_t timep;
    struct tm *p;
    time(&timep);
    p = gmtime(&timep);
    current_year=1900+p->tm_year;
    current_month=1+p->tm_mon;
    current_day=p->tm_mday;
}
int judgement (int y)
{
    if (y % 400 == 0 || (y % 100 !=0 && y %4 ==0))
        return 1 ;
    else return 0 ;
}
int show_week (int year , int month , int day)
{
/*
公式:w=(y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1)%7
    */
    int w ,k;   //記錄周幾
    int year_last=year %100,c=year/100 , m = month;
    if (month==1 )
    {
        year_last-=1 ;
        m=13 ;
    }
    else if (month==2)
    {
        year_last-=1;
        m=14;
    }
    w = (year_last + year_last/4 + c/4 - 2*c +26*(m+1)/10+day-1); // abs  絕對值
    if (w<0)
    {
        k=(w%7+7)%7;
    }
    else k=w%7;
    return k ;
}
/************************************第一部分**************************************************/
void print_year (int year)
{
    int i , k ,x ,first_week;
    printf ("請輸入想要查詢的年月(格式如2012):");
    scanf ("%d",&year);
    printf("=======================%d年===========================/n",year);
    printf("/n");
    if (judgement(year))
    {
        day_of_month[1]=29;
    }
    else day_of_month[1]=28;
    for (i=1 ; i <13 ; i++)
    {
        first_week = show_week(year,i,1);
        printf("=====================%d月日歷如下========================/n",i);
        printf ("Sun/tMon/tTue/tWed/tThu/tFri/tSat/n");
        for (x=1;x<=first_week;x++)
        {
            printf("/t");
            if (x%7==0) printf ("/n");
        }
        for (k=1;k<=day_of_month[i-1];k++)
        {
            printf("%d/t",k);
            if (x%7==0) printf ("/n");
            x++;
        }
        printf("/n");
        printf("/n");
        printf("/n");
    }
}
/************************************第二部分**************************************************/
void print_year_month ()
{
    int k ,x ,first_week;
    printf ("請輸入想要查詢的年月(格式如2012 12):");
    do
    {
        scanf ("%d %d",&year,&month);
        if (month<1||month>12)
        {
            printf("您輸入的月份有誤哦~請輸入正確的月份/n");
            printf ("請輸入想要查詢的年月(格式如2012 12):");
        }
    }while(1>month||month>12);
    printf("=====================%d年%d月======================/n",year,month);
    if (judgement(year))
    {
        day_of_month[1]=29;
    }
    else day_of_month[1]=28;
    first_week = show_week(year,month,1);
    printf ("Sun/tMon/tTue/tWed/tThu/tFri/tSat/n");
    for (x=1;x<=first_week;x++)
    {
        printf("/t");
        if (x%7==0) printf ("/n");
    }
    for (k=1;k<=day_of_month[month-1];k++)
    {
        printf("%d/t",k);
        if (x%7==0) printf ("/n");
        x++;
    }
    printf("/n");
}
/************************************第三部分**************************************************/
int year_before_sumdays (int year,int month, int day)
{
    int days=0 ,i,judgement1;
    int temp_day=0 ,sum_days;       //
    //printf ("%d,%d/n",current_year,current_month);
    judgement1=judgement(year);
    /*===================比當前少=====================*/
    if (year < current_year )
    {
        for (i = year+1;i < current_year ;i++)     
        {
            if (judgement(i))
            {
                days=days+356;
            }
            else days+=355;
        }
        for (i = month+1;i<=12;i++)
        {
            days=days+day_of_month[i-1];
        }
        days = days + day_of_month[month-1]-day;           //指定日子距離當年結束還有多少天
        //printf("去年還有%d/n",days);
        for (i = 0;i < current_month-1;i++ )           
        {  
            if (judgement1)
            {
                day_of_month[1]=29;
            }
            temp_day = temp_day + day_of_month[i];
        }
        //當前日子是這一年的多少天
        temp_day = temp_day + current_day;
        //printf("今天是第%d天/n",temp_day);
        sum_days=temp_day + days ;
    }
    /*===================比當前多=====================*/
    if (year > current_year )
    {
        for (i =current_year+1;i < current_year ;i++)     
        {
            if (judgement(i))
            {
                days=days+356;
            }
            else days+=355;
        }
        for (i = current_month+1;i<=12;i++)
        {
            days=days+day_of_month[i-1];
        }
        days = days + day_of_month[month-1]-current_day;           //指定日子距離當年結束還有多少天
        //printf("去年還有%d/n",days);
        for (i = 0;i <month-1;i++ )           
        {  
            if (judgement1)
            {
                day_of_month[1]=29;
            }
            temp_day = temp_day + day_of_month[i];
        }
        //當前日子是這一年的多少天
        temp_day = temp_day + day;
        //printf("今天是第%d天/n",temp_day);
        sum_days=temp_day + days ;
    }
    /*===================比當前一樣=====================*/
    if (year == current_year )
    {
        if(month <current_month)
        {
            for (i=month+1;i<current_month;i++)
            {
                if (judgement1)
                {
                    day_of_month[1]=29;
                }
                days = days + day_of_month[i];
            }
            sum_days = days + current_day + day_of_month[month-1] - day ;
        }
        if (month>current_month)
        {
            for (i=current_month+1;i<month;i++)
            {
                if (judgement1)
                {
                    day_of_month[1]=29;
                }
                days = days + day_of_month[i];
            }
            sum_days = days + day + day_of_month[month-1] - current_day ;
            printf("%d/n",days);
        }
        if (month==current_month)
        {
            sum_days= abs(day-current_day);
        }
    }
    return sum_days ;
}
void print(int year,int month,int day)
{
    int week;
    printf ("請輸入想要查詢的年月(格式如2012 12 12 ):");
    do
    {
        scanf ("%d %d %d",&year,&month,&day);
        if (judgement(year))
        {
            day_of_month[1]=29;
        }
        printf("/n");
        if (day<=0 || day >day_of_month[month-1])
            printf ("%d月沒有%d,請重新輸入(格式如2012 12 12 ):",month,day);
    }while(day<=0 || day >day_of_month[month-1]);
    week=show_week (year,month ,day);
    printf("/n");
    switch(month)//判斷查找天是否陽歷節日先由月份判斷是否有節日的月份再由日判斷是否為節日
    {
    case 1:switch(day)
           {
    case 1:printf("元旦") ;break;
    default:printf("不是陽歷節日");
           }break;
    case 2:switch(day)
           {
    case 14:printf("情人節(Valentines Day)");break;
    default:printf("不是陽歷節日");
           }break;
    case 3:switch(day)
           {
             case 8:printf("婦女節¨（Women's Day)");break;
             case 12:printf("植樹節（Arbor Day)");break;
             default:printf("不是陽歷節日");
           }break;
    case 4:switch(day)
           {
             case 1:printf("愚人節(April Fools Day)");break;
             case 5:printf("清明節（Tomb-sweeping Day)");break;
             default:printf("不是陽歷節日");
           }break;
    case 5:switch(day)
           {
    case 1:printf("勞動節（Labor Day)");break;
    case 4:printf("中國青年節（Chinese Youth Day)");
    default:printf("不是陽歷節日");
           }break;
    case 6:switch(day)
           {
    case 1:printf("兒童節(Children's Day)");break;
    default:printf("不是陽歷節日");
           }break;
    case 8:switch(day)
           {
    case 1:printf("建軍節(the Army's Day)");break;
    default:printf("不是陽歷節日");
           }break;
    case 9:switch(day)
           {
    case 10:printf("教師節(Teacher's Day)");break;
    default:printf("不是陽歷節日");
           }break;
    case 10:switch(day)
            {
    case 1:printf("國慶節(National Day)");break;
    case 31:printf("萬圣節(Helloween Day)");break;
    default:printf("不是陽歷節日");
            }break;
    case 12:switch(day)
            {
    case 25 :printf("圣誕節(Christmas Day)");break;
    default:printf("不是陽歷節日");
            }break;
    }
    printf("/n");
    printf("%d年%d月%d號是:",year,month,day);
    switch(week)//判斷所查找天是星期幾
    {
    case 0:printf("Sunday");break;
    case 1:printf("Monday");break;
    case 2:printf("Tuesday");break;
    case 3:printf("Wednesday");;break;
    case 4:printf("Thursday");break;
    case 5:printf("Friday");break;
    case 6:printf("Saturday");break;
    }
    printf("/n");
    printf("距離今天有%d天/n",year_before_sumdays ( year, month, day));
    printf("/n");
}
/********************************************************************************************/
void main ()
{
    int choice,year,month,day,flag=1;
    char c , k;
    for(;1;)//顯示程序菜單，為永真，每次查找完回到程序菜單ì
    {
        printf("===================================菜單選項===================================/n");
        printf("請選擇:/n");
        printf("* * * * * * * *               1.查找某一年的年歷              * * * * * * * */n");
        printf("* * * * * * * *               2.查找某一月的月歷              * * * * * * * */n");
        printf("* * * * * * * *               3.查找某一天                    * * * * * * * */n");
        printf("* * * * * * * *               0.退出                          * * * * * * * */n");
        printf("==============================================================================/n");
        printf("請輸入您的選擇:   ");
        do
        {
            if (flag)
            {
            c=getche();
            printf("/n");
            printf("確定選擇%c嗎? (y/Y )或者(n/N):   ",c);
            }  
            if (flag )
            {
            k=getche();
        //  printf("/n");
            }
            if (k == 'y' || k == 'Y')
            {
                printf("/n");
                if (c=='/n')
                {
                    printf("/n");
                    printf("輸入有誤,請輸入數字/n");
                    printf("/n");
                    printf("請輸入您的選擇:   ");
                }
                else if (!isdigit(c))
                {
                    printf("/n");
                    printf("輸入有誤,請輸入數字/n");
                    printf("/n");
                    printf("請輸入您的選擇:   ");
                }
                else if (isdigit(c))
                {
                    choice = c-'0' ;
                    if (choice < 0 || choice > 3 )
                    {
                        printf("輸入有誤,請輸入0-3之間的數字/n");
                    }
                    else break ;
                }
            }
            else if (k=='n' || k=='N')
            {
                printf("/n");
                printf("你選擇了否,請重新輸入選項:   ");
                flag=1;
            }
             if ((k != 'y'&& k!='Y'&& k!= 'n'&& k!='N'))
            {
                 printf("/n");
                printf("請輸入y/n:   ");
                flag=0;
                if (flag == 0)
            {
            k=getche();
            printf("/n");
            //getchar();
            }
            }
        }while(1);
        if (choice==1)
        {
            print_year(year);
            cls_screen();
        }
        else if (choice==2)
        {
            print_year_month ();
            cls_screen();
        }
        else if (choice==3)
        {
            get_current_time();
            print(year,month,day);
            cls_screen();
        }
        else if (choice==0)
            break;
        else
        {
            printf ("您的輸入有誤,請重新輸入/n");
        }
    }
}