Поделиться через

Свойство Project.LevelToDate (Project)

  • Статья

Возвращает или задает конечную дату диапазона, в котором выровляются общие ресурсы. По умолчанию используется дата окончания проекта или последнее введенное значение даты. Для чтения и записи, Variant.

Синтаксис

выражение. LevelToDate

Выражение Переменная, представляющая объект Project .

Замечания

Вы также можете задать свойство LevelToDate в диалоговом окне Выравнивание ресурсов . Чтобы получить доступ к параметру, щелкните Параметры выравнивания на вкладке Ресурс ленты, а затем выберите параметр Уровень и задайте для параметра Дата .

Пример

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

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.