巧算星期幾

　　----本程序為老妖根據一個帖子寫的。
　　
　　 void __fastcall TForm1::Button1Click(TObject *Sender)
　　 {
　　 char *WeekName[7]={"星期日","星期一","星期二","星期三","星期四","星期五","星期六"};
　　
　　 SYSTEMTIME Now,Tmp;
　　 GetSystemTime(&Now);
　　
　　 Tmp.wYear=2222;  //要查詢的年份
　　 Tmp.wMonth=12;    //要查詢的月份
　　 Tmp.wDay=31;     //要查詢的日期
　　 Tmp.wHour=1;    //要查詢的小時
　　 Tmp.wMinute=1;   //要查詢的分數
　　 Tmp.wSecond=1;   //要查詢的秒數
　　 Tmp.wMilliseconds=1;  //要查詢的微秒
　　
　　 if(SetSystemTime(&Tmp)!=0)
　　   {
　　   GetSystemTime(&Tmp);
　　   ShowMessage(WeekName[Tmp.wDayOfWeek]);
　　   }
　　 else
　　   {
　　   ShowMessage(GetLastError());//假如錯誤值是87的話,是參數設置有錯。
　　   }
　　 SetSystemTime(&Now);
　　 }