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

原创于 2012-10-08 17:55:31 发布 · 5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sqlserver #delphi #服务器 #function

Delphi 专栏收录该内容

60 篇文章

订阅专栏

本文介绍使用Delphi通过ADOQuery组件从SQL Server数据库中获取当前系统日期和时间的方法。提供两种函数实现：一是GetSysTime用于获取完整的日期时间信息；二是GetSysDate用于仅获取日期部分。

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;