Propiedad Project.CurrentDate (Project)

Obtiene o establece la fecha actual para un proyecto. Variant de lectura y escritura.

Sintaxis

expresión. CurrentDate

expresión Variable que representa un objeto Project .

Observaciones

Cuando se abre un proyecto, Project automáticamente conjuntos igual de fecha actual del proyecto a la fecha del sistema.

Ejemplo

En el ejemplo siguiente se establece la fecha actual del proyecto activo en el lunes anterior.

Sub SetCurrentDateToPreviousMonday()
    ' Loop while the current date is not Monday. 
    Do While WeekDay(ActiveProject.CurrentDate) <> pjMonday 
        ' Subtract one day from the current date. 
        ActiveProject.CurrentDate = _ 
            DateSerial(Year(ActiveProject.CurrentDate), _ 
            Month(ActiveProject.CurrentDate), _ 
            Day(ActiveProject.CurrentDate - 1)) 
    Loop
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.