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 支援與意見反應。