Task.StartVariance プロパティ (Project)

基準開始日とタスクの開始日との間には、分単位での差異を取得します。 読み取り専用のバリアント型 (Variant) の値。

構文

式。 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 のサポートおよびフィードバックを参照してください。