delphi操作时间的方法讨论

zhgc

修改本地时间：

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;
    

复制代码