Propriedade Project.StatusDate (Project)

Obtém ou define a data de status atual para o projeto. Se não houver nenhuma data de status, retorna "NA". Leitura/gravação Variant.

Sintaxe

expression. StatusDate

expressão Uma variável que representa um objeto do Project .

Exemplo

O exemplo a seguir verifica a data de status do projeto inteiro. Se seu valor padrão nunca tiver sido alterado, mas modificações feitas na porcentagem concluída total da tarefa se estenderem até a data padrão, ele solicitará uma data padrão a ser utilizada. Se as edições à percentagem total de conclusão da tarefa forem distribuídas para a data de paragem calculada da tarefa, pergunta ao utilizador se as edições devem ser distribuídas para uma data de status e, se for o caso, pede uma data de status a utilizar.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.