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.