深圳全飞鸿

标题: delphi操作时间的方法讨论 [打印本页]

---

作者: zhgc    时间: 2020-2-24 22:25
标题: delphi操作时间的方法讨论
修改本地时间：

1. procedure TformMain.SetSystemDateTime;
   
2. var
   
3.    ServerDateTime: TDateTime;
   
4.    ServerSystemTime: TSystemTime;
   
5. begin
   
6.    Querysysdate.Close;
   
7.    Querysysdate.UnPrepare;
   
8.    Querysysdate.Prepare;
   
9.    Querysysdate.Open;
   
10.    ServerDateTime := Querysysdate.FieldByName('Sysdate').AsDateTime;
    
11.    DateTimeToSystemTime(ServerDateTime, ServerSystemTime);
    
12.    SetLocalTime(ServerSystemTime);
    
13.    Querysysdate.Close;
    
14.    Querysysdate.Unprepare;
    
15. end;
    

复制代码

---

欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/)

Powered by Discuz! X3.2