FixedCost Property

Returns or sets a fixed cost for a task. Read/write Variant.

Example

The following example increases the fixed costs of marked tasks by an amount specified by the user.

Sub IncreaseFixedCosts()

    Dim T As Task           ' Task object used in For Each loop
    Dim Entry As String     ' Amount to add to any existing fixed cost

    Entry = InputBox$("Increase the fixed costs of marked tasks by what amount?")

    ' If entry is invalid, display error message and exit Sub procedure.
    If Not IsNumeric(Entry) Then
        MsgBox ("You didn't enter a numeric value.")
        Exit Sub
    End If

    ' Increase the fixed costs of marked tasks by the specified amount.
    For Each T In ActiveProject.Tasks
        If T.Marked Then
            T.FixedCost = T.FixedCost + Val(Entry)
        End If
    Next T
    
End Sub

Applies to | Task Object, Tasks Collection Object

See Also | CostVariance Property | FixedCostAccrual Property