【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);
   
9. 
   
10. //StepTPO(StartTime,CurTime,StepMin,ModeStep,TPOStep);
    
11. Variables:         intrabarpersist NumStep(0),
    
12.                 intrabarpersist SavNumStep(0),
    
13.                 intrabarpersist Res(false);
    
14. 
    
15. var: dw(0), ct(0), st(0), steps_from_start(0);
    
16. 
    
17. dw = dayofweek(_Date);
    
18. 
    
19. ct = TimeToMinutes(_Time);
    
20. st = sessionstarttime(0, SessNum);
    
21. st = TimeToMinutes(st);
    
22. 
    
23. 
    
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;
    
34. 
    
35. 
    
36. 
    
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;   
    
47. 
    
48. 
    
49.           StepTPO_N = Res;

复制代码