Task.PreleveledFinish プロパティ (Project)
平準化が行われる前に、タスクの終了日を取得します。 読み取り専用のバリアント型 (Variant) の値。
構文
式。 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 のサポートおよびフィードバックを参照してください。