//按市场交易日的日线时间序列进行推移
with *,array(pn_cycle():cy_day(),pn_stock():'SH000001',pn_date():datetime1) do
begin
v:=sp_time(); //指定日当前时间(指交易日)
if roll_n>0 then rN:=roll_n-1;
else if roll_n<0 and v=datetime1 then rN:=roll_n+1;
else rN:=roll_n;
return specdate(ref(sp_time(),rN),v);
end