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

---

作者: 龙听    时间: 2022-11-2 11:17     标题: 【NthDayofMonth】

1. Inputs: StrtDate(Numeric), Nth(Numeric), TargtDay(Numeric);
   
2. 
   
3. condition1 = DayOfWeek(JulianToDate(StrtDate)) <= TargtDay ;
   
4. If condition1 Then Begin
   
5.         NthDayofMonth = StrtDate + ((Nth - 1) * 7) + (TargtDay - DayOfWeek(JulianToDate(StrtDate)));
   
6. End
   
7. Else Begin
   
8.         NthDayofMonth = StrtDate + ((Nth) * 7) - (DayOfWeek(JulianToDate(StrtDate)) - TargtDay );
   
9. End;

复制代码

---

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

Powered by Discuz! 7.2