Propriedade Task.ActualOvertimeWork (Project)Task.ActualOvertimeWork Property (Project)

Trabalhar obtém real de horas extras (em minutos) para uma tarefa.Gets the actual overtime work (in minutes) for a task. Somente leitura Variant.Read-only Variant.


expression.expression. ActualOvertimeWork

expressão Uma variável que representa um objeto Task .expression A variable that represents a Task object.


O exemplo a seguir mostra o custo de horas extras calculando o custo total das tarefas que necessitaram de horas extras e dividindo os custos individuais por tarefa.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