VBA – Variável de Data

Já falamos sobre o que são variáveis, tipos de dados e constantes em nosso tutorial Tipos de dados do VBA – Variáveis e constantes. Neste tutorial, abordaremos como declarar uma variável como uma data.

No VBA, o tipo de dados de data é armazenado como um decimal. Tanto datas quanto horas podem ser armazenadas nesse tipo de dados. O tipo de dados de data do VBA pode armazenar valores que variam de 1º de janeiro de 100 a 31 de dezembro de 9999.

Variável de Data do VBA

Você declara uma variável como uma data usando a palavra-chave Dim:

Dim dataUm as Date

Em seguida, é possível atribuir uma data à variável de data. Há várias maneiras de gerar datas para atribuir a variáveis:

Atribuir Today (Hoje) a uma Variável

A função Date retornará a data de hoje:

Dim dataHoje

dataHoje = Date

Atribuir Now (Agora)  a uma Variável

A função Now retornará a data de hoje e a hora atual:

Dim dataNow

dataNow = Now

Atribuir Time (Hora Atual) à Variável

A função time retornará a hora atual:

Dim tTime 

tTime = Time

Atribuir uma Data a uma Variável com DateSerial

A função DateSerial retornará uma data com base em um ano, mês e dia de entrada:

Dim dsData 

dsData = DateSerial(2010, 11, 11)

Atribuir uma Hora a uma Variável com TimeSerial

A função TimeSerial retornará um horário, com base em uma hora, minuto e segundo inseridos:

Dim tsTime

tsTime = TimeSerial (10, 10, 45)

Você deve colocar as datas entre parênteses com # ou ” ao usá-las em seu código, conforme mostrado abaixo:

Função DateValue do VBA

A função DateValue do VBA pode ser usada para inicializar uma data. O código a seguir pode ser usado para inicializar uma data no VBA:

MsgBox DateValue("1/1/2010")

Função TimeValue do VBA

A função TimeValue gera uma hora:

MsgBox TimeValue("21:30:57")

Exemplo de Variável de Data do Excel VBA

Este procedimento demonstra como criar variáveis de data, atribuir valores a elas e enviá-las para uma planilha do Excel:

Sub DeclarandoVariavelComoData()

Dim dataUm As Date
Dim dataDois As Date


dataUm = #1/1/2019#
dataDois = "1/2/2019"

Range("A1").Value = dataUm 
Range("A2").Value = dataDois 

End Sub

O resultado é:

Você pode saber mais sobre as funções de data neste tutorial.

Variável de Data VBA no Access

A variável de data funciona exatamente da mesma forma no Access VBA e no Excel VBA.

Este procedimento demonstra como criar uma variável de data e atualizar um campo em uma tabela do Access com o valor.

Sub DeclarandoVariavelComoData()
   Dim dtTrabalho As Date
   dtTrabalho = #05/10/2020#
   DoCmd.RunSql "UPDATE tblEmpregos SET DataDoTrabalho = #" & dtTrabalho & "# WHERE NumeroEmprego = 6"
 End Sub