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


Свойство Task.PreleveledFinish (Project)

Возвращает дату завершения задачи до выравнивания. Только для чтения, Variant.

Синтаксис

выражение. PreleveledFinish

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

Пример

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

Sub DateDifferences() 
 Dim T As Task, Results As String 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 ' Tasks that have never been leveled return "NA" 
 If T.PreleveledFinish <> "NA" And T.Finish <> T.PreleveledFinish Then 
 Results = Results & T.Name & ": " & _ 
 DateDiff("d", T.PreleveledFinish, T.Finish) & _ 
 " days" & vbCrLf 
 End If 
 End If 
 Next T 
 
 If Results <> "" Then MsgBox Results 
 
End Sub

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

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