Partilhar via

Propriedade Project.CurrentDate (Project)

  • Artigo

Obtém ou define a data atual de um projeto. Variant de leitura/gravação.

Sintaxe

expression. CurrentDate

Expressão Uma variável que representa um objeto Project .

Comentários

Quando um projeto é aberto, o Project define automaticamente igual de data atual do projeto à data do sistema.

Exemplo

O exemplo a seguir define a data atual do projeto ativo com a data da segunda-feira 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.