Delphi 取得SQLServer服务器日期与时间

Delphi 取得SQLServer服务器日期与时间。

Function GetSysTime:TDateTime;
var
  Qry: TADOQuery;
begin
    // 取得服务器时间 yyyy-MM-dd HH:mm:ss
    QryCreate(Qry, frmDM.ADOCon);
    with Qry do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select GetDate() as SysTime');
      Open;
      Result := FieldByName('SysTime').AsDateTime;
      Free;
    end;
end;

Function GetSysDate:TDate;
var
  Qry: TADOQuery;
begin
    // 取得服务器日期 yyyy-MM-dd
    QryCreate(Qry, frmDM.ADOCon);
    with Qry do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select convert(varchar(10),getdate(),120) as SysDate');
      Open;
      Result := FieldByName('SysDate').AsDateTime;
      Free;
    end;
end;

procedure QryCreate(var aQuery: TADOQuery; Connecion: TAdoConnection);
begin
  aQuery := TADOQuery.create(nil);
  aQuery.Connection := Connecion;
end;