Task.PreleveledFinish 屬性 (Project)

資源撫平進行之前取得任務的完成日期。 唯讀 Variant 。

語法

expression。 PreleveledFinish

表達 代表 Task 物件的變數。

範例

下面範例會針對專案中每個任務比較專案計劃的完成日期和資源撫平前的專案計劃完成日期，如果二者不同，則將變更的部分顯示出來。

Sub DateDifferences() 
 Dim T As Task, Results As String 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 ' Tasks that have never been leveled return "NA" 
 If T.PreleveledFinish <> "NA" And T.Finish <> T.PreleveledFinish Then 
 Results = Results & T.Name & ": " & _ 
 DateDiff("d", T.PreleveledFinish, T.Finish) & _ 
 " days" & vbCrLf 
 End If 
 End If 
 Next T 
 
 If Results <> "" Then MsgBox Results 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。