pb获取服务器日期

在开发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