IMsTimeMatrix.AddConstant

Копировать пример

Public Function CreateLevel(param: IMsTimeMatrix): Variant;
Var 
    m : IMsTimeMatrix;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    m := New MsTimeMatrix.CreateLevel(DimCalendarLevel.Year);
    m.AddConstant(13);
    m.AddConstant(5);
    If param.StartDate = DateTime.ComposeDay(2014,7,8) Then
        Debug.WriteLine("Рядов: " + m.Count.ToString);
        For i := 0 To m.Count - 1 Do
            s := "";
            serie := m.Item(i);
            For j := m.StartIndex To m.EndIndex Do
                s := s + (serie.Item(j) As double).ToString + " ";
            End For;
            Debug.WriteLine("Ряд: " + i.ToString + " - " + s);
        End For;
    End If;
    Return m;
End Function CreateLevel;