Task.ActualOvertimeWork property (Project)

Ruft die aktuelle Überstundenarbeit Arbeit (in Minuten) für einen Vorgang. Schreibgeschützter Variant-Wert.

Syntax

Ausdruck. ActualOvertimeWork

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden die Überstundenkosten dargestellt, indem die Gesamtkosten von Vorgängen mit Überstundenarbeit berechnet werden. Dabei werden auch die individuellen Kosten nach Vorgang aufgeschlüsselt.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.