delphi 将本地系统时间设置为数据库(Oracle)时间

最新推荐文章于 2024-10-05 10:41:51 发布

单单P

最新推荐文章于 2024-10-05 10:41:51 发布

阅读量1.2k

点赞数

分类专栏： delphi 文章标签： delphi

delphi 专栏收录该内容

27 篇文章

订阅专栏

var
  systemtime:Tsystemtime;
  DateTime:TDateTime;
begin
  dm0.qry1.close;
  dm0.qry1.SQL.Clear;
  dm0.qry1.SQL.Text:='select sysdate from dual';
  dm0.qry1.Open;

  DateTime:=dm0.qry.FieldByName('sysdate').AsDateTime;; //获得数据库时间（TDateTime格式）
  DateTimeToSystemTime(DateTime,systemtime);     <span style="white-space:pre">	</span>//把Delphi的TDateTime格式转化为API的TSystemTime格式
  SetLocalTime(SystemTime);                  <span style="white-space:pre">		</span>//设置系统时间
end;