IPrjTaskPeriod.FinishDate

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

Sub UserProc;
Var
    Project: IPrjProject;
    Tasks: IPrjTaskCollection;
    Task: IPrjTask;
    Plan, FPeriod: IPrjTaskPeriod;
Begin
    Project := New PrjProject.Create;
    // Зададим дату начала проекта
    Project.StartDate := DateTime.Parse("20.02.2020");
    Project.UseStartDate := True;
    // Получим коллекцию задач проекта
    Tasks := Project.Tasks;
    // Добавим задачу
    Task := Tasks.Add;
    Task.WorkOutType := PrjTaskWorkOutTypes.ManualPlanning;
    Task.Key := 1;
    Task.Name := "№1";
    // Зададим продолжительность и дату окончания выполнения задачи
    Plan := Task.PlanPeriod;
    Plan.FinishDate := DateTime.Parse("29.02.2020");
    Plan.Duration := 7;
    // Выполним расчёт
    Project.Plan;
    FPeriod := Task.ForecastPeriod;
    Debug.WriteLine("Выполнение задачи " + Task.Name + " с " + 
    FPeriod.StartDate.ToString + " по " + FPeriod.FinishDate.ToString + 
    " (длительность: " + FPeriod.Duration.ToString + " дней)");
End Sub UserProc;