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