龙听期货论坛's Archiver

龙听 发表于 2022-11-1 11:46

【BusinessDays】

[code]Inputs: RefDate(Numeric), NumBusinessDays(Numeric), RefDirection(Numeric);
Variables: var0(0), var1(0);

var0 = 0;
var1 = 0;

condition1 = IsWorkday(juliantodate(RefDate)) ;
If condition1 Then
        var1 = var1+1;

While(var1 < NumBusinessDays) Begin
        If RefDirection > 0 Then
                var0 = var0 + 1
        Else
                var0 = var0 -1;
        condition1 = IsWorkday(JulianToDate(RefDate + var0)) ;               
        If condition1 then
                var1 = var1 + 1;
End;

BusinessDays = RefDate + var0;
[/code]

页: [1]