PB取得服务器系统时间的源代码

datetime ldt_date
string ls_sql

choose case lower(as_dbms)
case "oracle"
//oracle
ls_sql = "select sysdate fromsys.dual"
case "sqlserver"
//ms sql server
ls_sql = "select now() "
case "sybase","syc adaptive serverenterprise"
//sybase
ls_sql = "selectgetdate()"
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
ldt_date = Datetime(Today(), Now())
end if
Close l_cursor;

return ldt_date