怎样获取服务器日期和时间?

Question

请教各位大虾:
    我做一个C/S程序, 怎样在客户端获取服务器端日期和时间呢?

Answer 1

要想去服务器的，必须用SQL语句取，
你可以通过TQuery向服务器发select GETDATE ( )
语句，肯定正确！

Answer 2

select getdate() as AdateValue  //DataModule1.SeverTimeQuery 中静态指定的 SQL 属性
function severdatetostr:string;
var
    yearstr,monthstr,daystr:string;
    datevalue:Tdatetime;
begin
 DataModule1.SeverTimeQuery.Close;
 DataModule1.SeverTimeQuery.Open;
 datevalue:=DataModule1.SeverTimeQuery.FieldByName('AdateValue').AsDateTime;
 DataModule1.SeverTimeQuery.Close;
 yearstr:=inttostr(yearof(datevalue));
 monthstr:=inttostr(monthof(datevalue));
 daystr:=inttostr(dayof(datevalue));
 if length(monthstr)=1 then
 begin
    monthstr:='0'+monthstr;
 end;
 if length(daystr)=1 then
 begin
    daystr:='0'+daystr;
 end;
 severdatetostr:=yearstr+'-'+monthstr+'-'+daystr;
end;

Answer 3

Select Distinct ServerDate=GetDate() from sysobjects