巧算星期几

----本程序为老妖根据一个帖子写的。

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