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

Получает или устанавливает текущую дату отчета о состоянии проекта. Если дата отчета о состоянии не указана, возвращается "Н/Д". Для чтения и записи, 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 и обратная связь.