Project.StatusDate 属性 (Project)

获取或设置项目的当前状态日期。 如果没有状态日期，则返回"NA"。 读/写 Variant。

语法

expression。 StatusDate

表达 一个代表 Project 对象的变量。

示例

以下示例将检查活动项目的状态日期。 如果该状态日期一直使用默认值，而对任务总完成百分比的编辑扩展到了状态日期上，则示例询问要使用的状态日期。 如果对总任务完成百分比的编辑分散到任务的计算停止日期，则会询问用户是否应改为将编辑传播到状态日期，如果是，则要求使用状态日期。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。