批改本地日期和时间，应是2013-03-03 01:13:00，却变成2013-03-03 09:13:00

修改本地日期和时间，应是2013-03-03 01:13:00，却变成2013-03-03 09:13:00

procedure TForm1.Btn_1Click(Sender: TObject);
var  
  SetDate : TSystemTime;
begin  
  SetDate.wYear:=2013;  
  SetDate.wMonth:=03;  
  SetDate.wDay:=03;  
  SetDate.wHour:=01;  
  SetDate.wMinute:=13;  
  SetDate.wSecond:=0;  
  SetDate.wMilliseconds:=0;  
  SetSystemTime(SetDate);
end;

原本改后的时间应是2013-03-03 01:13:00
但实际实际时间却是2013-03-03 09:13:00
这是为什么？ 
好像东八区的问题，如何解决，如果使用方式

  SetDate.wHour:=01-8;  

会报错。
[解决办法]
SetLocalTime试试

查看更多 下一篇