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;