SQL服务器时间同步

参看了一些网上的文章自己写了一个同步时间的函数，贴出来与大家一起分享~~~

代码如下： 

 

procedure Tmainfr.Button1Click(Sender: TObject);        //同步服务器时间
var 
mytime:Tsystemtime;
begin
     ADODataSet1.Close;
     ADODataSet1.CommandText:='select getdate() as sysdate';
     ADODataSet1.Open;    //取得服务器时间
     DateTimeToSystemTime(ADODataSet1.FieldByName('sysdate').AsDateTime,mytime);   //转换时间格式                     
     SetLocalTime(mytime);       //修改时间
end;