Compartilhar via


Propriedade Task.PreleveledFinish (Project)

Obtém a data de término de uma tarefa antes da redistribuição ocorreu. Somente leitura Variant.

Sintaxe

expression. PreleveledFinish

Expressão Uma variável que representa um objeto Task .

Exemplo

O exemplo a seguir calcula a diferença, se houver, entre a data de término projetada antes da tarefa ser redistribuída para cada tarefa do projeto e então exibe as que não foram alteradas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.