Partager via


Propriété Task.StartVariance (Project)

Obtient la variation (en minutes) entre la date de début planifiée et la date de début de la tâche. Variant en lecture seule.

Syntaxe

expression. StartVariance

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant montre comment afficher le nombre de tâches et les noms des tâches dans le projet actif qui ont commencé tard.

Sub CountLateTasks() 
 
 Dim t As Task 
 Dim numLateTasks As Long 
 Dim lateTasks As String 
 Dim daysLate As Single 
 
 numLateTasks = 0 
 
 ' Look for late tasks in the active project. 
 For Each t In ActiveProject.Tasks 
 If t.BaselineStart < ActiveProject.CurrentDate And t.StartVariance > 0 Then 
 numLateTasks = numLateTasks + 1 
 daysLate = Round(t.StartVariance / 1440, 1) 
 lateTasks = lateTasks & vbCrLf & vbTab & t.Name _ 
 & ": " & daysLate & " days" 
 End If 
 Next t 
 
 MsgBox "There are " & numLateTasks & " late tasks in this project: " & lateTasks 
 
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.