求utc时间

admin

引用DateUtils单元


[mw_shl_code=delphi,true]var

ct:TdateTime;

begin
ct:=now();
label1.Text:=datetimetostr( TTimeZone.Local.ToUniversalTime(ct));
showmessage(inttostr(DayOfWeek(ct)));
end;
[/mw_shl_code]