Board logo

标题: 【StepTPO_N】 [打印本页]
作者: 龙听    时间: 2022-11-2 13:28     标题: 【StepTPO_N】

  1. inputs:
  2.         ResNum(NumericSimple),
  3.         SessNum(NumericSimple),
  4.         _Date(NumericSimple),
  5.         _Time(NumericSimple),
  6.         StepMin(NumericSimple),
  7.         ModeStep(NumericSimple),
  8.         TPOStep(NumericRef);

  10. //StepTPO(StartTime,CurTime,StepMin,ModeStep,TPOStep);
  11. Variables:         intrabarpersist NumStep(0),
  12.                 intrabarpersist SavNumStep(0),
  13.                 intrabarpersist Res(false);

  15. var: dw(0), ct(0), st(0), steps_from_start(0);

  17. dw = dayofweek(_Date);

  19. ct = TimeToMinutes(_Time);
  20. st = sessionstarttime(0, SessNum);
  21. st = TimeToMinutes(st);


  24. if CurrSess(ResNum, SessNum) then begin
  25.         if sessionstartday(0, SessNum) = sessionendday(0, SessNum) then begin
  26.                 NumStep = IntPortion((ct - st)/StepMin)+1;       
  27.         end else begin
  28.                 if dw = sessionendday(0, SessNum) then begin
  29.                         NumStep = IntPortion((ct+1440 - st)/StepMin)+1;       
  30.                 end;
  31.         end;
  32.        
  33. end;



  37.           Res = false;
  38.           if NumStep <> SavNumStep then begin
  39.              if ModeStep=0 then begin
  40.                 TPOStep = TPOStep+1;
  41.              end else begin
  42.                 TPOStep = NumStep;
  43.              end;
  44.              Res = true;
  45.              SavNumStep = NumStep;
  46.           end;   


  49.           StepTPO_N = Res;
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2