//*********************************************
// 函数名：f_getservertime
// 目标：返回服务器上的时间
// 参数：没有参数
// 返回类型：datetime
// 返回值：ldt_servertime
//*********************************************
datetime ldt_servertime
declare getdate dynamic procedure for sqlsa;
prepare sqlsa from "select getdate()";
execute dynamic getdate ;
fetch getdate into :ldt_servertime;
close getdate;
//返回服务器时间
return ldt_servertime
引用例子：
string current_date
string current_week
current_date=string(f_getservertime(),"yyyy/mm/dd")
current_week= dayname( date(current_date) )
choose case current_week
case "monday"
l_str="星期一"
case "tuesday"
l_str="星期二"
case "wednesday"
l_str="星期三"
case "thursday"
l_str="星期四"
case "friday"
l_str="星期五"
case "saturday"
l_str="星期六"
case "sunday"
l_str="星期日"
end choose
