Método Application.DateSubtract (Project)

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

Sintaxe

expression. DateSubtract( _FinishDate_, _Duration_, _Calendar_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FinishDate	Obrigatório	Variant	A data usada como término da duração.
Duration	Obrigatório	Variant	A duração a ser subtraída da data de término.
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 subtrair a duração de uma data para uma tarefa agendada manualmente e que usa um calendário efetivo com possíveis períodos de folga, use a propriedade EffectiveDateSubtract.

Exemplo

O exemplo a seguir exibe a data de início de uma tarefa que dura três dias e termina no dia 13.07.02 às 17:00.

Sub FindDuration() 
 MsgBox DateSubtract("7/13/02 5:00 PM", "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.