Partager via


Propriété Task.ActualOvertimeWork (Project)

Obtient le temps réel des heures supplémentaires (en minutes) d’une tâche. Variant en lecture seule.

Syntaxe

expression. ActualOvertimeWork

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant affiche le coût des heures supplémentaires par calcul du coût total de tâches avec heures supplémentaires, ainsi que la décomposition des coûts individuels par tâche.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.