StatusDate Property

Returns or sets the current status date for the project. If there is no status date, returns "NA". Read/write 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.

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

Applies to | Project Object, Projects Collection Object