Свойство Task.ActualOvertimeWork (Project)

Получает фактическую сверхурочные работы (в минутах) для задачи. Только для чтения, Variant.

Синтаксис

выражение. ActualOvertimeWork

выражение Переменная, представляюная объект Task .

Пример

В следующем примере показаны затраты сверхурочной работы путем расчета общей стоимости задач с сверхурочной работой, а также с нарушением отдельных затрат на одну задачу.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.