Assignment.StartVariance property (Project)
Ruft die Varianz (in Minuten) zwischen dem geplanten Anfangstermin und das Startdatum der Zuordnung ab. Schreibgeschützter Variant-Wert.
Syntax
Ausdruck. StartVariance
Ausdruck Eine Variable, die ein Assignment-Objekt darstellt.
Beispiel
Im folgenden Beispiel wird die Anzahl der verspätet angefangenen Vorgänge des aktiven Projekts angezeigt.
Sub CountLateAssignments()
Dim a As Assignment
Dim t As Task
Dim numLateAssignments As Long
Dim lateAssignments As String
Dim daysLate As Single
numLateAssignments = 0
' Look for late tasks in the active project.
For Each t In ActiveProject.Tasks
For Each a In t.Assignments
If a.BaselineStart < ActiveProject.CurrentDate And a.StartVariance > 0 Then
numLateAssignments = numLateAssignments + 1
daysLate = Round(a.StartVariance / 1440, 1)
lateAssignments = lateAssignments & vbCrLf & vbTab & t.Name _
& ": resource " & a.Resource.Name & ": " & daysLate & " days"
End If
Next a
Next t
MsgBox "There are " & numLateAssignments & " late assignments in this project: " & lateAssignments
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.