Day(Calendar: IDimInstance; El: Integer): Integer;
Day(Calendar: Prognoz.Platform.Interop.Dimensions.IDimInstance; El: uinteger): uinteger;
Calendar. Данные календарного справочника, по которым выполняется расчет;
El. Индекс элемента, относительно которого выполняется расчет.
Метод Day возвращает индекс элемента, соответствующий началу календарного периода, в который входит указанный элемент.
Для корректного расчёта календарный справочник должен содержать уровень «Дни».
Например, если календарный справочник содержит уровни годы, кварталы, дни и расчёт выполняется для:
элемента квартальной динамики, то метод Day возвращает элемент, соответствующий началу квартала;
элемента годовой динамики, то метод Day возвращает элемент, соответствующий началу года.
Пример является функцией, используемой для расчёта отношения в стандартном кубе.
Для выполнения примера добавьте ссылки на системные сборки «Cubes», «Dimensions».
Public Function Day(T: Variant): Integer;
Var
Cube: ICubeInstance;
CubeDest: ICubeInstanceDestination;
DimInsts: ICubeInstanceDimensions;
DimInst: IDimInstance;
i: Integer;
Result: Integer;
Begin
// Получаем текущий куб
Cube := CubeClass.CurrentCube;
CubeDest := Cube.Destinations.DefaultDestination;
// Получаем календарное измерение
DimInsts := CubeDest.Dimensions;
For i := 0 To DimInsts.Count - 1 Do
If (DimInsts.Item(i).Dimension Is ICalendarDimension) Then
DimInst := DimInsts.Item(i);
End If;
End For;
// Выполняем вычисления
If CalendarDimension.Level(DimInst, t) = DimCalendarLevel.Month Then
Result := CalendarDimension.Day(DimInst, t);
Else
Result := -1;
End If;
// Возвращаем результат
Return Result;
End Function Day;
Результат использования отношения в формуле вычисляемого факта: значение для элемента месячной динамики будет браться из первого дня месяца.
Пример является функцией, используемой для расчёта отношения в стандартном кубе.
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Function Day(T: object): Integer;
Var
cClass: CubeClassClass;
Cube: ICubeInstance;
CubeDest: ICubeInstanceDestination;
DimInsts: ICubeInstanceDimensions;
DimInst: IDimInstance;
i: Integer;
calendDim: CalendarDimension;
el: uinteger;
Result: Integer;
Begin
// Получаем текущий куб
cClass := New CubeClassClass.Create();
Cube := cClass.CurrentCube[Null];
CubeDest := Cube.Destinations.DefaultDestination;
// Получаем календарное измерение
DimInsts := CubeDest.Dimensions;
For i := 0 To DimInsts.Count - 1 Do
If (DimInsts.Item[i].Dimension Is ICalendarDimension) Then
DimInst := DimInsts.Item[i];
End If;
End For;
// Выполняем вычисления
calendDim := New CalendarDimension.Create();
el := uinteger.Parse(t.ToString());
If calendDim.Level(DimInst, el) = DimCalendarLevel.dclMonth Then
Result := calendDim.Day(DimInst, el) As integer;
Else
Result := -1;
End If;
// Возвращаем результат
Return Result;
End Function Day;
Результат использования отношения в формуле вычисляемого факта: значение для элемента месячной динамики будет браться из первого дня месяца.
См. также: