标题: 【FirstofPrevMonthJul】 [打印本页]

---

作者: 龙听    时间: 2022-11-1 13:51     标题: 【FirstofPrevMonthJul】

1. Inputs: VMonth(Numeric), VYear(Numeric);
   
2. Variables: var0(""), var1(0), var2(0), var3(0);
   
3. 
   
4. var2 = VMonth;
   
5. var3 = VYear;
   
6. 
   
7. If var2 = 1 Then Begin
   
8.         var2 = 12;
   
9.         var3 = var3 - 1;
   
10. End
    
11. Else Begin
    
12.         var2 = var2 -1;  
    
13. End;
    
14. 
    
15. var0 = RightStr("0" + NumToStr(var3, 0), 3) + RightStr("0" + NumToStr(var2, 0), 2) + "01";
    
16.                                                                                                
    
17. var1 = StrToNum(var0);
    
18. var1 = DateToJulian(var1);
    
19. 
    
20. FirstofPrevMonthJul = var1;

复制代码

---

欢迎光临 龙听期货论坛 (http://www.qhlt.cn/)

Powered by Discuz! 7.2