巧算星期幾

----本程序為老妖根據一個帖子寫的。

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);
}