IMsTimeMatrix.CalendarSettings

Синтаксис Fore

CalendarSettings: IMsCalendarSettings;

Синтаксис Fore.NET

CalendarSettings: Prognoz.Platform.Interop.Ms.MsCalendarSettings;

Описание

Свойство CalendarSettings возвращает параметры календарного уровня для пользовательского метода расчёта.

Комментарии

Свойство доступно только для чтения. Используя данное свойство, можно изменить день начала недели, число выходных дней и прочие параметры.

Пример Fore

В данном примере описан пользовательский метод.

Для выполнения примера добавьте ссылки на системные сборки Ms, Dimensions, Transform.

Public Function Remove(param: IMsTimeMatrix; Index: Integer): Variant;
Var
    TsCalc: TsCalculation;
    Context: ITsCalculationContext;
    Serie: IMsTimeMatrix;
    CalendSett: ITsCalendarSettings;
    i, j: Integer;
    s: String;
Begin
    TsCalc := New TsCalculation.Create;
    Context := TsCalc.Current;
    Serie := Context.CreateTimeSeries;
    CalendSett := param.CalendarSettings;   
    Index := param.CurrentIndex;
    If CalendSett.RestDays = DayOfWeekSet.SaturdaySunday Then
        param.DeleteSerie(Index);
        param.MoveSerie(0,5);
        For i := 0 To param.Count - 1 Do
            s := "";
            For j := param.StartIndex To param.EndIndex Do
                s := s + (param.Item(i).Item(j) As double).ToString + " ";
            End For;
            Debug.WriteLine("Индекс лага: " + param.LagIndex(0,1).ToString);
            Debug.WriteLine("Ряд: " + i.ToString + " - " + s);
        End For;
    End If; 
    Return Null;
End Function Remove;

Метод выполняет удаление и перемещение рядов в матрице, если выходные дни ряда - суббота и воскресенье. После чего в окно консоли будут выведены индекс лага и ряды результирующей матрицы.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.Transform;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Function Remove(param: IMsTimeMatrix; Index: Integer): object;
Var
    TsCalc: TsCalculation;
    Context: ITsCalculationContext;
    Serie: IMsTimeMatrix;
    CalendSett: ITsCalendarSettings;
    i, j: Integer;
    s: String;
Begin
    TsCalc := New TsCalculation.Create();
    Context := TsCalc.Current[Null];
    Serie := Context.CreateTimeSeries(-1 As DimCalendarLevel, Null) As IMsTimeMatrix;
    CalendSett := param.CalendarSettings;   
    Index := param.CurrentIndex;
    If CalendSett.RestDays = DayOfWeekSet.dowsSaturdaySunday Then
        param.DeleteSerie(Index);
        param.MoveSerie(0,5);
        For i := 0 To param.Count - 1 Do
            s := "";
            For j := param.StartIndex To param.EndIndex Do
                s := s + (param.Item[i].Item[j] As double).ToString() + " ";
            End For;
            System.Diagnostics.Debug.WriteLine("Индекс лага: " + param.LagIndex[0,1].ToString());
            System.Diagnostics.Debug.WriteLine("Ряд: " + i.ToString() + " - " + s);
        End For;
    End If; 
    Return Null;
End Function Remove;

См. также:

IMsTimeMatrix