Propiedad Project.StatusDate (Project)

Obtiene o establece la fecha de estado actual del proyecto. Si no hay ninguna fecha de estado, devuelve "NA". Variante de lectura y escritura.

Sintaxis

expresión. StatusDate

expresión Variable que representa un objeto Project .

Ejemplo

En el siguiente ejemplo se verifica la fecha de estado del proyecto activo. Si nunca se ha modificado el valor predeterminado, pero los cambios realizados en el porcentaje total de la tarea se trasladan a la fecha de estado, se le pedirá que use una fecha de estado. Si las modificaciones en el porcentaje total de tareas completadas se distribuyen a la fecha de detención calculada de la tarea, pregunta al usuario si las modificaciones se deben distribuir a una fecha de estado en su lugar y, si es así, solicita una fecha de estado para usarla.

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 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.