ActualFinish Property

Returns or sets the actual finish date of an assignment or task. Read-only for summary tasks. Read/write Variant.

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

Applies to | Assignment Object, Assignments Collection Object | Task Object, Tasks Collection Object

See Also | ActualCost Property | ActualDuration Property | ActualStart Property | ActualWork Property | BaselinenFinish Property | Finish Property | FinishVariance Property | UpdateProject Method