如何获得服务器上的时间 ( 积分: 50 )

如何获得服务器上的时间？

如何获得服务器上的时间？

select getdate()

如果是数据库应用程序那就好办，如MSSQL可用select getdate()这样的SQL语句取得。

能够写详细点吗？谢谢，急

var
RQ_FWQ :TDateTime;
begin
ADOQuery1.active :=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select getdate() as rq');
ADOQuery1.active :=true;
RQ_FWQ :=ADOQuery1.FieldByName('rq').AsDateTime;
end;

getdate()怎么说没有定义啊？

select getdate() from 你的表

TIME_OF_DAY_INFO *m_time;
WCHAR wszServername[256];
DWORD err;

if(sServerName!=NULL)
{
// 普通字符串转换成Unicode字符串
MultiByteToWideChar( CP_ACP, 0, sServerName,
strlen(sServerName)+1, wszServername, sizeof(wszServername)/sizeof(wszServername[0]) );
// 得到服务器时间
err=NetRemoteTOD(wszServername,(LPBYTE *)&m_time);

}
else
err=NetRemoteTOD(NULL,(LPBYTE *)&m_time);

if(err!=0)
return 0;
else
return m_time->tod_elapsedt;

多人接受答案了。

var
dlnanme : string; //定义公用变量
function getnettime : string; //定义公用函数，获取服务器时间
function Form1.getnettime : string;
begin
with TQuery.Create(nil) do //动态创建Query查询组件
begin
Try
close;
//设置Query组件使用使用主窗体的Database连接
SessionName := Form1.Database1.SessionName;
DatabaseName := Form1.Database1.DatabaseName;
SQL.Clear;
//使用SQL server 支持的SQL语句和函数。获取服务器时间
SQL.Add('select getdate() as aa');
Open;
//返回字符串类型，便于调用模块类型转换
Result := FieldByName('aa').AsString;
Finally
//从内存中释放创建的TQuery对象
Free;

end;

end;


各位大哥快来帮帮小弟的忙啊
谁能给我写段很简短的界面与数据库之间连接的代码，
要简单明了。[![]