IMsCalculationHistory.Date

Синтаксис

Date: DateTime;

Описание

Свойство Date возвращает дату создания истории расчета.

Пример

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «KONT_MODEL», содержащим задачу с идентификатором «PROBLEM_1».

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Hists, HistChild: IMetabaseObjectDescriptors;

HistObj, HistObj1: IMetabaseObjectDescriptor;

Hist: IMsCalculationHistory;

Prob: IMsProblem;

Period: IMsForecastingProblem;

i, j: Integer;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Bind;

Hists := MObj.Children;

Debug.WriteLine(Hists.Count);

For i := 0 To Hists.Count - 1 Do

Hist := Hists.Item(i).Bind As IMsCalculationHistory;

HistObj := Hists.Item(i);

HistChild := HistObj.Children;

Debug.WriteLine(Hist.Date);

Debug.Indent;

For j := 0 To HistChild.Count - 1 Do

HistObj1 := HistChild.Item(j);

Debug.WriteLine(HistObj1.Id + " | " + HistObj1.Name);

If HistObj1.ClassId = MetabaseObjectClass.KE_CLASS_MSPROBLEM Then

Prob := HistObj1.Bind As IMsProblem;

Period := Prob.Details As IMsForecastingProblem;

Debug.Indent;

Debug.WriteLine(Period.Period.IdentificationStartDate);

Debug.WriteLine(Period.Period.IdentificationEndDate);

Debug.WriteLine(Period.Period.ForecastStartDate);

Debug.WriteLine(Period.Period.ForecastEndDate);

Debug.Unindent;

End If;

End For;

Debug.Unindent;

End For;

End Sub Main;

После выполнения примера в консоль будут выведены данные по всем историям расчета, сохраненным для задачи моделирования «PROBLEM_1». Данные включают в себя: дату расчета, идентификаторы и наименования всех объектов, участвующих в расчете, а также дату начала и окончания периодов идентификации и прогнозирования, которые были установлены для задачи при расчете.

См. также:

IMsCalculationHistory