【CurrSess】

1. Inputs: ResNum(NumericSimple),SessNum(NumericSimple);
   
2. var: intrabarpersist cur_start_dw(0);
   
3. var: intrabarpersist cur_end_dw(0);
   
4. var: intrabarpersist cur_start_t(0);
   
5. var: intrabarpersist cur_end_t(0);
   
6. 
   
7. var: intrabarpersist curr_dw(0), intrabarpersist ctime(0);
   
8. 
   
9. 
   
10. var: intrabarpersist after_start(false);
    
11. var: intrabarpersist before_end(false);
    
12. 
    
13. 
    
14. 
    
15. cur_start_dw = sessionstartday(0, SessNum);
    
16. cur_end_dw = sessionendday(0, SessNum);
    
17. 
    
18. cur_start_t = TimeToMinutes(sessionstarttime(0, SessNum));
    
19. cur_end_t = TimeToMinutes(sessionendtime(0, SessNum));
    
20. 
    
21. curr_dw = dayofweek(date data(ResNum));
    
22. ctime = TimeToMinutes(time data(ResNum));
    
23. 
    
24. after_start = false;
    
25. before_end = false;
    
26. 
    
27. if curr_dw = cur_start_dw then  begin
    
28.         if ctime >= cur_start_t then after_start = true;
    
29. end;
    
30. 
    
31. if curr_dw = cur_end_dw then begin
    
32.         if ctime <= cur_end_t then before_end = true;
    
33. end;
    
34. 
    
35. 
    
36. if cur_start_dw = cur_end_dw then begin
    
37.         CurrSess = after_start and before_end;
    
38.         #return;
    
39. end;
    
40. 
    
41. if cur_start_dw = curr_dw then begin
    
42.         CurrSess = after_start;
    
43.         #return;
    
44. end;
    
45. 
    
46. if cur_end_dw = curr_dw then begin
    
47.         CurrSess = before_end;
    
48.         #return;
    
49. end;
    
50. 
    
51. CurrSess = false;

复制代码