Share via

Project.StatusDate Property

  • Article
Project Developer Reference

Returns 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.

Return Value
Variant

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 they should be spread to a status date instead and, if so, asks for a status date to use.

Visual Basic for Applications 
  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

See Also