Compartilhar via

Propriedade Task.ActualDuration (Project)

  • Artigo

Obtém ou define a duração real (em minutos) de uma tarefa. Somente leitura para tarefas de resumo. Leitura/gravação Variant.

Sintaxe

expression. ActualDuration

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

Exemplo

O exemplo a seguir marca as tarefas do projeto ativo cujas durações reais excedem um número especificado de minutos.

Sub MarkLongDurationTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Minutes As Long ' Duration entered by user 
 
 ' Prompt user for the actual duration, in minutes. 
 Minutes = Val(InputBox$("Enter the actual duration, in minutes: ")) 
 
 ' Don't do anything if the InputBox$ was cancelled. 
 If Minutes = 0 Then Exit Sub 
 
 ' Cycle through the tasks of the active project. 
 For Each T In ActiveProject.Tasks 
 ' Mark a task if it exceeds the duration. 
 If T.ActualDuration > Minutes Then T.Marked = True 
 Next T 
 
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.