|
在开发C/S体系结构的应用程序时，日期应该从服务器获取，这样才能保证数据的准确性。下面是一个完整的获取服务器时间的公用函数。
/*-----------------------------------------------------------------------
* 函数名称：datetime gf_getsysdate(string as_dbms)
* 功能描述：取得服务器的的日期时间(DateTime)?????????????????????????????????
* 参数含义：as_dbms 所使用的数据库DBMS?
* 返 回 值：datetime类型，系统日期
* 调用举例：ldt_today = gf_getsysdate(sqlca.dbms)
* 编写人员：郭宝利
* 编写日期：2004.7.9
*-----------------------------------------------------------------------*/
datetime ldt_date
string ls_sql
choose case lower(as_dbms)
case "oracle"
//oracle
ls_sql = "select sysdate from sys.dual"
case "sqlserver"
//ms sql server
ls_sql = "select now() "
case "sybase"
//sybase
ls_sql = "select getdate()"
case else
ls_sql = "select now() "
end choose
Declare l_cursor dynamic cursor for Sqlsa;
Prepare Sqlsa from :ls_sql;
Open dynamic l_cursor;
if Sqlca.SQLCode = 0 then
Fetch l_cursor into :ldt_date;
end if
if sqlca.SQLCode <> 0 then
messagebox("出错信息","在函数gf_get_sysdate()运行时数据库出现错误!")
ldt_date = Datetime(Today(),Now())
end if
Close l_cursor;
return ldt_date
本文来自编程入门网：http://www.bianceng.cn/database/pb/200806/10907.htm
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
