Task.StartVariance 屬性 (專案)

[比較基準開始日期與任務的開始日期之間取得的變異數 (以分鐘為單位)。 唯讀 Variant 。

語法

expression。 StartVariance

詞 一個代表 任務 物件的變數。

範例

下列範例會顯示使用中專案內，開始時間已落後的任務數目及任務名稱。

Sub CountLateTasks() 
 
 Dim t As Task 
 Dim numLateTasks As Long 
 Dim lateTasks As String 
 Dim daysLate As Single 
 
 numLateTasks = 0 
 
 ' Look for late tasks in the active project. 
 For Each t In ActiveProject.Tasks 
 If t.BaselineStart < ActiveProject.CurrentDate And t.StartVariance > 0 Then 
 numLateTasks = numLateTasks + 1 
 daysLate = Round(t.StartVariance / 1440, 1) 
 lateTasks = lateTasks & vbCrLf & vbTab & t.Name _ 
 & ": " & daysLate & " days" 
 End If 
 Next t 
 
 MsgBox "There are " & numLateTasks & " late tasks in this project: " & lateTasks 
 
End Sub

支援和意見反應

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