Свойство Task. Актуалфиниш (Project)Task.ActualFinish property (Project)

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

СинтаксисSyntax

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

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

ПримерExample

В приведенном ниже примере пользователю предлагается задать даты фактического окончания задач в активном проекте.The following example prompts the user to set the actual finish dates of tasks in the active project.

Sub SetActualFinishForTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Entry As String ' User's entry 
 
 For Each T In ActiveProject.Tasks 
 ' Loop until user enters a date or clicks Cancel. 
 Do While 1 
 Entry = InputBox$("Enter the actual finish date for " & _ 
 T.Name & ":") 
 
 If IsDate(Entry) Or Entry = Empty Then 
 Exit Do 
 Else 
 MsgBox ("You didn't enter a date; try again.") 
 End If 
 Loop 
 
 'If user didn't click Cancel, set the task's actual finish date. 
 If Entry <> Empty Then 
 T.ActualFinish = Entry 
 End If 
 
 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.