Свойство Assignment.StartVariance (Project)

Возвращает отклонение (в минутах) между базовой датой начала и датой начала назначения. Только для чтения, Variant.

Синтаксис

выражение. StartVariance

Выражение Переменная, представляющая объект Assignment .

Пример

В следующем примере показано количество задач в активном проекте, которые были запущены с опозданием.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.