ActualOvertimeCost Property
Returns the actual overtime cost for an assignment, resource, or task. Read/write for the Assignment object. Read-only Variant.
Remarks
The ActualOvertimeCost property does not return any meaningful information for material resources. Setting a value returns a trappable error (error code 1101) when applied to material resources.
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.
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
Applies to | Assignment Object, Assignments Collection Object | Resource Object, Resources Collection Object | Task Object, Tasks Collection Object
See Also | ActualCost Property | ActualDuration Property | ActualFinish Property | ActualOvertimeWork Property | ActualStart Property | ActualWork Property | BaselinenCost Property | Costn Property | CostVariance Property | FixedCost Property | RemainingCost Property