龙听期货论坛's Archiver

龙听 发表于 2022-11-1 13:50

【FirstofNextMonthJul】

[code]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;
[/code]

页: [1]