Share via

Task.ActualOvertimeWork Property

  • Article
Project Developer Reference

Returns the actual overtime work (in minutes) for a task. Read-only Variant.

Syntax

expression.ActualOvertimeWork

expression   A variable that represents a Task object.

Return Value
Variant

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
    Dim 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