菜鸟用delphi和sql server 2000做程序，我想读取sql server服务器上的当前日期和时间，怎么办啊？

Question

to hammer_shi:
   谢谢大侠，请问如何把从服务器上的来得时间设定为本机器的时间呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  MySystemeTime:TSystemeTime;
begin
  with MySystemeTime do
  begin
    wYear:=2002;
    wMonth:=10;
    wDay:=23;
    wHoure:=12;
    wMinute:=23;
    wSecond:=21;
  end;
  SetSystemTime(MySystemeTime);
  Application.MessageBox('系统时间已设定','提示',MB_OKCANCEL);
end;

Answer 2

procedure tform1.button1click(sender:tobject);
var
  timestr:string;
begin
  storedproc1.prepare;
  storedproc1.execproc;
  timestr:=storedproc1.parambyname('@dt').asstring;
  storedproc1.unprepare;
  storedproc1.close;
  messagedlg(timestr,mtinformation,[mbyes,mbno],0);
end;

Answer 3

to ： hnsyf你的小时数那里应该还要减8才能得到正确的结果不然就不对了！