Share via


Task.ActualOvertimeCost Property

Project Developer Reference

Returns the actual overtime cost for a task. Read-only Variant.

Syntax

expression.ActualOvertimeCost

expression   A variable that represents a Task object.

Example

The following example illustrates the cost of overtime by calculating the total cost of tasks with overtime work, as well as breaking down the individual costs per task.

Visual Basic for Applications
  Sub PriceOfOvertime()
    Dim T As Task
    Dim Price As Variant, Breakdown As String
    
    For Each T In ActiveProject.Tasks
        If Not (T Is Nothing) Then
            If T.ActualOvertimeWork <> 0 Then
                Price = Price + T.ActualOvertimeCost
				Breakdown = Breakdown & T.Name & ": " & _
                    ActiveProject.CurrencySymbol & _
                    T.ActualOvertimeCost & vbCrLf
            End If
        End If
    Next T
    
    If Breakdown <> "" Then
        MsgBox Breakdown & vbCrLf & "Total: " & _
            ActiveProject.CurrencySymbol & Price
    End If

End Sub

See Also