你可以比较一下, local time 与UTC time 相差8个小时,因为我们处在第8时区:
procedure TForm1.Button1Click(Sender: TObject);
var
UTCdt:_systemtime;
dt1:tdatetime;
begin
getsystemtime(UTCdt);
dt1:= systemtimetodatetime(UTCdt);
showmessage(' UTC TIME:'+datetimetostr(dt1)+#13+'LOCAL TIME:'+datetimetostr(NOW));
END;