Project.CurrentDate Property (Project)

Gets or sets the current date for a project. Read/write Variant.


expression. CurrentDate

expression A variable that represents a Project object.


When a project opens, Project automatically sets the project's current date equal to the system date.


The following example sets the current date of the active project to the previous Monday.

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)) 
End Sub