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

xinzheng_wang

于 2012-10-08 17:55:31 发布

阅读量5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： sqlserver delphi 服务器 function

本文链接：https://blog.youkuaiyun.com/xinzheng_wang/article/details/8049451

Delphi 专栏收录该内容

60 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;