5,939
社区成员
发帖
与我相关
我的任务
分享菜鸟用delphi和sql server 2000做程序，我想读取sql server服务器上的当前日期和时间，怎么办啊？
菜鸟用delphi和sql server 2000做程序，我想读取sql server服务器上的当前日期和时间，怎么办啊？
...全文
请发表友善的回复…
发表回复
WANGYISE 2002-06-14
- 打赏
- 举报
在sql端的上加data()函数即可
luoshumeng 2002-06-14
- 打赏
- 举报
to ： hnsyf你的小时数那里应该还要减8才能得到正确的结果不然就不对了！
byc6352 2002-06-14
- 打赏
- 举报
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;
var
timestr:string;
begin
storedproc1.prepare;
storedproc1.execproc;
timestr:=storedproc1.parambyname('@dt').asstring;
storedproc1.unprepare;
storedproc1.close;
messagedlg(timestr,mtinformation,[mbyes,mbno],0);
end;
hnsyf 2002-06-14
- 打赏
- 举报
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;
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;
rwdx 2002-06-14
- 打赏
- 举报
用winapi函数可设置本地时间
wanglong2000 2002-06-14
- 打赏
- 举报
to hammer_shi:
谢谢大侠，请问如何把从服务器上的来得时间设定为本机器的时间呢？
谢谢大侠，请问如何把从服务器上的来得时间设定为本机器的时间呢？
hammer_shi 2002-06-14
- 打赏
- 举报
select getdate()
