Свойство 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 и обратная связь.