delphi + sql server 2000 编程 如何取得服务器时间的问题

来源:百度知道 编辑:UC知道 时间:2024/05/19 20:34:52
delphi + sql server 2000 编程 如何取得服务器时间的问题?
也就是为了统一时钟,在数据库中保存操作数据的时间统一用服务器
的时间。免得各台终端时钟不一样存入数据库的时间不准确。
用now 函数取回的应该市,终端电脑的时间吧。

function DateNow: TDateTime;
begin
with TADOQuery.Create(nil) do
try
Connection := UDataModule.AdoCnMain;
SQL.Text := 'select GetDate() as FDate';
Open;
Result := FieldValues['FDate'];
finally
Free;
end;
end;

在数据库里取时间就是了
用Getdate()函数

得到服务器时间
getdate();