2Pascal-新时代的Pascal

标题: 求utc时间 [打印本页]

作者: admin    时间: 2016-9-24 21:44
标题: 求utc时间
引用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]






欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/) Powered by Discuz! X3