貝殼兒的寶貝匣子

有一天,可愛的小狗狗問媽媽:幸福是什麼? 狗媽媽說:幸福其實就是你的尾巴. 小狗狗拼命咬自己的尾巴,但是它都咬不到 "媽媽,為什麼我抓不住我的幸福?" "傻孩子,抬起頭去走,幸福就會跟著你的!"
posts - 7, comments - 1, trackbacks - 0, articles - 0
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

獲得服務器的時間的函數

Posted on 2005-11-14 08:58 貝殼兒 阅读(177) 评论(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;
只有注册用户登录后才能发表评论。