PB如何取服务器的时间 -电脑资料

作者：达通兴电脑科技公司(www.study01job.com) 郭宝利

在开发C/S体系结构的应用程序时，日期应该从服务器获取，这样才能保证数据的准确性，

PB如何取服务器的时间

/*-----------------------------------------------------------------------
* 函数名称：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