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