高手请进,看是什么问题?
本想写个延时功能函数,但在循环体里面取当前时间为什么不能刷新?有其它办法么?请高手解答!THANKS!
附脚本如下:
Create procedure waitfortime(sn integer) returning integer,datetime HOUR TO SECOND,datetime HOUR TO SECOND;
--等待sn秒;
--传入参数:sn秒;
--返回参数: 无;
define day1 datetime HOUR TO SECOND ;
define day2 datetime HOUR TO SECOND ;
define __n integer;
define __pp interval SECOND (8) to SECOND ;
Let day1=current;
while 1=1
Let day2=current;
Let __pp= EXTEND(day1, HOUR TO SECOND ) - EXTEND(day2, HOUR TO SECOND );
Let __n=abs(__pp||'') ;
--if __n>=sn then
-- Exit while;
--end if;
return __n,day1,day2 with resume;
end while;
end procedure;
execute procedure waitfortime(3);