Project.LevelToDate 屬性 (Project)

取得或設定過度分派的資源進行資源撫平範圍的結束日期。 預設值為專案完成日期或最後一個輸入的日期值。 讀取/寫入 Variant 。

語法

expression。 LevelToDate

表達 代表 Project 物件的變數。

註解

您也可以在 [ 資源撫平] 對話方塊中設定 LevelToDate 屬性。 若要存取設定，按一下功能區] 的 [ 資源] 索引標籤上的 [ 資源撫平選項然後按一下 層級選項及設定 的日期。

範例

如果目前的範圍始於專案的開始日期，或終止於專案的完成日期，則下面範例可讓使用者變更資源撫平的日期範圍。

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
End Sub

支援和意見反應

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