Método Application.DateAdd (Project)

Retorna a data e a hora que seguem outra data por um período especificado, para uma tarefa agendada automaticamente.

Sintaxe

expression. DateAdd( _StartDate_, _Duration_, _Calendar_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
StartDate	Obrigatório	Variant	A data original à qual a duração é adicionada.
Duration	Obrigatório	Variant	A duração a ser adicionada à data de início.
Calendar	Opcional	Object	Um recurso, tarefa ou objeto de calendário base. O valor padrão é o calendário do projeto ativo.

Valor de retorno

Variant

Comentários

Para adicionar uma duração a uma data para uma tarefa agendada manualmente, que usa um calendário efetivo que pode incluir tempo de trabalho, use a propriedade EffectiveDateAdd .

Exemplo

O exemplo a seguir mostra a data de término de uma tarefa de três dias, agendada automaticamente, que começa no dia 11/07/07 às 8:00 horas.

Sub FindFinishDate() 
 MsgBox Application.DateAdd(StartDate:="7/11/07 8:00 AM", Duration:="3d") 
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.