龙听期货论坛's Archiver

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

【FirstofPrevMonthJul】

[code]Inputs: VMonth(Numeric), VYear(Numeric);
Variables: var0(""), var1(0), var2(0), var3(0);

var2 = VMonth;
var3 = VYear;

If var2 = 1 Then Begin
        var2 = 12;
        var3 = var3 - 1;
End
Else Begin
        var2 = var2 -1;  
End;

var0 = RightStr("0" + NumToStr(var3, 0), 3) + RightStr("0" + NumToStr(var2, 0), 2) + "01";
                                                                                               
var1 = StrToNum(var0);
var1 = DateToJulian(var1);

FirstofPrevMonthJul = var1;
[/code]

页: [1]