Task.StartVariance 屬性 (Project)
[比較基準開始日期與任務的開始日期之間取得的變異數 (以分鐘為單位)。 唯讀 Variant 。
語法
expression。 StartVariance
表達 代表 Task 物件的變數。
範例
下列範例會顯示使用中專案內,開始時間已落後的任務數目及任務名稱。
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 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應