- UID
- 2
- 积分
- 2874674
- 威望
- 1387366 布
- 龙e币
- 1487308 刀
- 在线时间
- 13156 小时
- 注册时间
- 2009-12-3
- 最后登录
- 2024-11-24
|
【FirstofNextMonthJul】
- Inputs: VMonth(Numeric), VYear(Numeric);
- Variables: var0(""), var1(0), var2(0), var3(0);
- var3 = VMonth;
- var2 = VYear;
- If var3 = 12 Then Begin
- var3 = 1;
- var2 = var2 + 1;
- End
- Else Begin
- var3 = var3 + 1;
- End;
-
- var0 = RightStr("0" + NumToStr(var2, 0), 3)+ RightStr("0" + NumToStr(var3, 0), 2)+ "01";
-
- var1 = StrToNum(var0);
- var1 = DateToJulian(var1);
- FirstofNextMonthJul = var1;
复制代码 |
论坛官方微信、群(期货热点、量化探讨、开户与绑定实盘)
|