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

Возвращает или задает текущую дату состояния проекта. Если дата состояния отсутствует, возвращается значение "NA". Для чтения и записи, Variant.

Синтаксис

выражение. StatusDate

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

Пример

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

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
End Sub

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

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