variable:n=0;

if 開倉條件 and  holding=0 then begin

   buy(1,1,market);

   n:=date;

if date>=n+1 and todaybar=1 then sell(1,0,limitr,open);