FIREBIRD 之 UDF 程式:(欲得到目前日期) FIREBIRD UDF SQL: declare external function f_DateTimeNow returns timestamp entry_point 'DateTimeNow' module_name 'UserUDF'; DELPHI DLL:UserUDF.DLL function DateTimeNow : TDateTime ;cdecl; export; .... function DateTimeNow : TDateTime; begin result:=Now(); end; OR function DateTimeNow : TSQLTimeStamp; begin result:=DateTimeToSQLTimeStamp(Now()); end; OR function DateTimeNow : TTimeStamp; begin result:=DateTimeToTimeStamp(Now()); end; 皆傳回奇怪地日期,請問先進們,要如何在得到"目前日期"?

不太清楚您想做什麼 ? 為何要用 FireBird 的 UDF 去得到 目前日期 Delphi 7 不是有 Now , GetDate 可以用 ? ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

因為要寫FireBird 的 storeprocedure 及 trigger 想用到目前日期及時間. 謝謝!

引言: 因為要寫FireBird 的 storeprocedure 及 trigger 想用到目前日期及時間. 謝謝!

InterBase 提供下列命令讓你取得目前的日期時間： CURRENT_DATE 傳回日期 CURRENT_TIME 傳回時間 CURRENT_TIMESTAMP 傳回日期時間 這裡提供兩種方法： Sol1.利用以下 SQL 命令取得現在時間： select distinct CURRENT_TIMESTAMP from "資料表名稱" "資料表名稱"請選擇筆數很少的資料表，執行速度會比較快。 Sol2.撰寫預儲程序： SET TERM !! ; create procedure "GET_CURRENT_TIMESTAMP" returns ("CUR_TIME" TIMESTAMP) as begin CUR_TIME = CURRENT_TIMESTAMP; end !! （以上命令請在 ISQL 中執行） 然後在 Delphi 程式中，可以使用 TIBStoredProc 元件，像這樣： procedure TForm1.Button1Click(Sender: TObject); var DbSvrTime: TDateTime; begin IBStoredProc1.StoredProcName := 'GET_CURRENT_TIMESTAMP'; IBStoredProc1.ExecProc; IBTransaction1.Commit; DbSvrTime := IBStoredProc1.Params[0].AsDateTime; ShowMessage('DB server 時間為 ' DateTimeToStr(DbSvrTime)); end;