Свойство Project.CurrentDate (Project)

Возвращает или задает текущую дату для проекта. Для чтения и записи, Variant.

Синтаксис

выражение. CurrentDate

выражение Переменная, представляющая объект Project .

Замечания

Когда проект открывается, Project автоматически задает текущую дату проекта, равную системной дате.

Пример

В следующем примере для текущей даты активного проекта задается значение предыдущего понедельника.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.