PB获取服务器时间

/*-----------------------------------------------------------------------
* 函数名称：datetime gf_getsysdate(string as_dbms)
* 功能描述：取得服务器的的日期时间(DateTime)                      
* 参数含义：as_dbms 所使用的数据库DBMS  
* 返 回 值：datetime类型，系统日期
* 调用举例：ldt_today = gf_getsysdate(sqlca.dbms)
*-----------------------------------------------------------------------*/
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