Partager via


Propriété Task.PreleveledFinish (Project)

Obtient la date de fin d’une tâche avant que l’audit ait lieu. Variant en lecture seule.

Syntaxe

expression. PreleveledFinish

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant montre comment calculer la différence (le cas échéant) entre la date de fin prévue et la date de fin prévue avant l’audit de la tâche pour chaque tâche du projet, puis affiche ces modifications.

Sub DateDifferences() 
 Dim T As Task, Results As String 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 ' Tasks that have never been leveled return "NA" 
 If T.PreleveledFinish <> "NA" And T.Finish <> T.PreleveledFinish Then 
 Results = Results & T.Name & ": " & _ 
 DateDiff("d", T.PreleveledFinish, T.Finish) & _ 
 " days" & vbCrLf 
 End If 
 End If 
 Next T 
 
 If Results <> "" Then MsgBox Results 
 
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.