Table of contents
TOC
Collapse the table of content
Expand the table of content

Project.StatusDate Property (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Gets or sets the current status date for the project. If there is no status date, returns "NA". Read/write Variant.

Syntax

expression. StatusDate

expression A variable that represents a Project object.

Example

The following example checks the status date of the active project. If it has never changed from the default, but edits to total task percent complete are spread to the status date, it asks for a status date to use. If edits to total task percent complete are spread to the calculated stop date of the task, it asks the user if the edits should be spread to a status date instead and, if so, asks for a status date to use.

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
© 2018 Microsoft