Compartir a través de

Propiedad Project.LevelToDate (Project)

  • Artículo

Obtiene o establece la fecha final de un rango en el que se redistribuyen los recursos sobreasignados. El valor predeterminado es la fecha o el último valor de fecha de fin del proyecto. Variante de lectura y escritura.

Sintaxis

expresión. LevelToDate

Expresión Variable que representa un objeto Project .

Comentarios

También puede establecer la propiedad LevelToDate en el cuadro de diálogo Redistribuir recursos. Para obtener acceso a la configuración, haga clic en Opciones de redistribución, en la ficha de recurso de la cinta de opciones y, a continuación, haga clic en la opción de nivel y establecer la fecha para.

Ejemplo:

En el ejemplo siguiente se permite al usuario cambiar la fecha del intervalo de redistribución si el intervalo actual comienza en la fecha de comienzo del proyecto o finaliza en la fecha de fin del proyecto.

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
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.