Свойство Task. Актуаловертимеворк (Project)Task.ActualOvertimeWork property (Project)

Возвращает фактические сверхурочные трудозатраты для задачи (в минутах).Gets the actual overtime work (in minutes) for a task. Вариант, предназначенный только для чтения.Read-only Variant.

СинтаксисSyntax

выражение.expression. ActualOvertimeWork

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримерExample

В следующем примере показана стоимость сверхурочных работ путем вычисления общей стоимости задач с сверхурочными трудозатратами, а также для разбивки индивидуальных затрат на задачу.The following example shows 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 
 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

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.