Propriedade Assignment.StartVariance (Project)

Obtém a variação (em minutos) entre a data de início da linha de base e a data de início da atribuição. Somente leitura Variant.

Sintaxe

expression. StartVariance

Expressão Uma variável que representa um objeto Assignment .

Exemplo

O exemplo a seguir exibe quantas tarefas do projeto ativo iniciaram com atraso.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.