C/S系统如何让客户机获取服务器的时间？

Question

就是在客户机上运行程序，
能获取服务器机上的时间。
在线等

Answer 1

ALTER  PROCEDURE mygetdate 
@mydate datetime output
AS
select @mydate=getdate()

Answer 2

to 回复人： unsigned(僵哥) ( ) 信誉：100  2003-11-12 12:12:00  得分:0 
什么控件啊？to 回复人： lihao_ningxia(耗子) ( ) 信誉：97  2003-11-12 12:14:00  得分:0 
恕我学识有限，可以解释一下吗？

Answer 3

select distinct current date from table
table 为任意表名。

Answer 4

adoquery5.Active:=false;
    adoquery5.SQL.Clear;
    adoquery5.SQL.add('select getdate()');
    adoquery5.Active:=true;
    datetimetosystemtime(adoquery5.Fields[0].AsDateTime-0.333333333333333333333333333333333,psystime);
    setsystemtime(psystime);

Answer 5

function GetServerDate(AConnstr: Widestring): TdateTime;
var
  Tempqry: Tadoquery;
begin  try
    tempqry := Tadoquery.Create(nil);
    tempqry.ConnectionString := AConnstr;
    tempqry.SQL.Clear;
    tempqry.SQL.Add('select getdate() as ServerDate');
    tempqry.Open;
    result := tempqry.fieldbyname('ServerDate').AsDateTime;
    tempqry.Close;
  finally
    tempqry.Free;
  end;
end;

Answer 6

oracle:select to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') from dual;

Answer 7

to 回复人： lumina(零零漆) ( ) 信誉：75  2003-11-12 18:12:00  得分:0 
麻烦你把存储过程写出来好吗？
谢了。

Answer 8

/*获取数据库服务器当前日期时间*/
CREATE PROCEDURE Proc_GetServerDatetime 
@ServerDatetime datetime output,
@ServerDate datetime output,
@ServerTime datetime output,
@DateYear int output,
@DateMonth int output,
@DateDay int output,
@TimeHour int output,
@TimeMin int output,
@TimeSec int output
AS
select @ServerDatetime = getdate() set @DateYear = datepart(year,@ServerDatetime)
set @DateMonth = datepart(month,@ServerDatetime)
set @DateDay = datepart(day,@ServerDatetime)
set @TimeHour = datepart(hour,@ServerDatetime)
set @TimeMin = datepart(minute,@ServerDatetime)
set @TimeSec = datepart(second,@ServerDatetime)

set @ServerDate = floor(convert(float,@ServerDatetime)) set @ServerTime = @ServerDatetime - @ServerDate return(1000)GO

Answer 9

DM.qseh.sql.Add ('select getdate() as dt');
  DM.qseh.Open;
  If not DM.qseh.Fields[0].IsNull Then
    DM.sysdate := DM.qseh.Fields[0].AsDateTime
  Else
    DM.sysdate := now;                    //获取服务器时间

Answer 10

用sql语句查得时间
具体代码见楼上
^_^

Answer 11

NetRemoteTOD：
type
 TIME_OF_DAY_INFO=record
    tod_elapsedt:DWORD;
    tod_msecs:dword;
    tod_hours:dword;
    tod_mins:dword;
    tod_secs:dword;
    tod_hunds:dword;
    tod_timezone:longint;
    tod_tinterval:dword;
    tod_day:dword;
    tod_month:dword;
    tod_year:dword;
    tod_weekday:dword;
 end;procedure NetRemoteTOD(UncServerName:lptstr;var BufferPtr:TIME_OF_DAY_INFO);stdcall;external 'netapi.dll';
如果第一个参数为Nil，则从本地机器取得时间。
只能在NT上面使用！