Свойство Task. Актуалдуратион (Project)Task.ActualDuration property (Project)

Получает или задает фактическую длительность задачи (в минутах).Gets or sets the actual duration (in minutes) of a task. Только для чтения для суммарных задач.Read-only for summary tasks. Для чтения и записи, Variant.Read/write Variant.

СинтаксисSyntax

выражение.expression. ActualDuration

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримерExample

В следующем примере показано, как задачи в активном проекте помечаются фактическими значениями, которые превышают заданное количество минут.The following example marks the tasks in the active project that have actual durations that exceed a specified number of minutes.

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

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.