返回本机时间或服务器时间

  // 根据设置返回本机时间或服务器时间
  tempServerDate := date; 

  if gGetServerDate then
  begin
    ADOQtemp.Close; ADOQtemp.Connection := DM.ADOConnection1; ADOQtemp.SQL.Clear;
    ADOQtemp.SQL.Add('SELECT GETDATE() AS tempSQLSerVerdate');
    ADOQtemp.Open;
    tempServerDate := ADOQtemp.fieldbyname('tempSQLSerVerdate').AsDateTime;
  end;

转载于:https://www.cnblogs.com/bingege/archive/2009/12/10/1620849.html