Posted on 2005-11-14 08:58
貝殼兒 阅读(207)
评论(0) 编辑 收藏 引用 所属分类:
Delphi编程
//得到SQL服務器時間的函數;
function GetDateTime:TDateTime;
var
TempDatetime:TDatetime;
begin
QAPubDataOpen('select getdate() as stime');
TempDatetime:=ADataModule.QApubData.FieldByName('stime').AsDateTime;
Result:=TempDatetime;
end;
//得到Oracle服務器時間的函數;
function GetDateTime:TDateTime;
var
TempDatetime:TDatetime;
begin
QAPubDataOpen('SELECT sysdate asysdate FROM dual');
TempDatetime:=ADMSystem.QApubData.FieldByName('asysdate').AsDateTime;
Result:=TempDatetime;
end;