Obtendo Data de Hoje, Ontem e Amanhã em VBA Excel

Subtrair e Somar Dias à Data Atual no Excel VBA

Questão: Como obter a data de hoje, e, a partir dessa data obter também a data de ontem e a de amanhã?

Resposta: Para obter a data atual vamos usar a função Date. A função Date retorna uma variante (Data), que contém a data do sistema atual. Após isso usaremos também a função DateAdd. A Sintaxe da funçaõ  é DateAdd(intervalo, número, data), onde:

O intervalo pode ser: yyyy - Ano, q - Trimestre, m - Mês, y - Dia do ano, d - Dia, w - Dia da semana, ww - Semana, h - Hora, n - Minuto, s - Segundo;

Número: um valor numérico que especifica o número de intervalos de tempo que você deseja adicionar. Pode ser positivo (para adicionar) ou negativo (para subtrair), e,

Data: a data à qual você deseja adicionar o intervalo de tempo. Pode ser uma data literal, uma variável que contém uma data, ou uma expressão que representa uma data.

Para esse caso, usaremos o argumento "d", o número 1 e -1 para adicionar e subtrair um dia da data, e a variável dataHoje, a qual foi atribuído o valor da data atual do sistema, usando a função Date. Veja o exemplo abaixo:

' A variável pode também ser declarada como "Variant", ou seja, sem especificar o tipo de dado: Dim dataHoje.'
Dim dataHoje	as Date ' declarando a variável do tipo data.'
Dim dataOntem	as Date ' declarando a variável do tipo data.'
Dim dataAmanha	as Date ' declarando a variável do tipo data.'

Sub Datas()
    dataHoje = Date  ' Definindo a data atual.'
    dataOntem = DateAdd("d", -1, dataHoje) ' Data de um dia anterior à data atual.'
    dataAmanha = DateAdd("d", 1, dataHoje) ' Data do próximo dia após a data atual.'
End Sub

Agora basta atribuir a variável a uma célula. Por exemplo: 

ActiveSheet.Range("A2").Value = DataOntem ' Atribui o valor de DataOntem à celula A2 da sua planilha ativa.'

REFERÊNCIAS: www.microsoft.com

tags: excel vba date datahoje dataamanha dataontem dateadd data atual planilha pasta de trabalho celula calculo intervalo code código codigo dia mes ano semana sub rotina funcao função escopo como aumentar um dia em uma data somar um dia em uma data dimunuir um dia em uma data subtrair um dia value formula worksheet workbook range dim sub function if then else for next do loop with end with set cells worksheets workbooks cells cell variável macros