通过

Project.SpreadPercentCompleteToStatusDate Property

  • 项目
Project Developer Reference

True if edits to total task percent complete are spread to the status date, or the current date if the status date is "NA". False if they are spread to the calculated stop date of the task. Read/write Boolean.

Syntax

expression.SpreadPercentCompleteToStatusDate

expression   A variable that represents a Project object.

Return Value
Boolean

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