通过

Task.PreleveledFinish 属性 (Project)

  • 项目

调配前获取任务的完成日期。 只读变体。

语法

expression。 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。