Propiedad Task.PreleveledFinish (Project)

Obtiene la fecha de finalización de una tarea antes de que se produjo de redistribución. Variant de solo lectura.

Sintaxis

expresión. PreleveledFinish

expresión Variable que representa un objeto Task .

Ejemplo

En el ejemplo siguiente se calcula la diferencia, si existe alguna, entre la fecha de fin proyectada y la fecha de fin proyectada antes de redistribuir cada tarea en el proyecto y, a continuación, muestra aquéllas que hayan cambiado.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.