Já examinamos o que são variáveis, tipos de dados e constantes em nosso tutorial VBA Data Types - Variables and Constants. Neste tutorial, vamos cobrir 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 neste tipo de dados. O tipo de dados de data VBA pode armazenar valores que variam de 1º de janeiro de 100 a 31 de dezembro de 9999.
Variável de data VBA
Você declara uma variável como uma data usando a palavra-chave Dim:
| 1 | Dim dateOne as Date |
Em seguida, você pode atribuir uma data à variável de data. Existem várias maneiras de gerar datas para atribuir a variáveis:
Atribuir Hoje à Variável
A função de data retornará a data de hoje:
| 123 | Dim dtTodaydtToday = Date |
Atribuir agora à variável
A função Now retornará a data de hoje e a hora atual:
| 123 | Dim dNowdNow = Now |
Atribuir tempo à variável
A função de tempo retornará a hora atual:
| 123 | Dim tTimetTime = hora |
Atribuir uma data à variável com DateSerial
A função DateSerial retornará uma data com base na entrada de ano, mês e dia:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Atribuir um tempo à variável com TimeSerial
A função TimeSerial retornará uma hora, com base em uma hora, minuto e segundo de entrada:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Você deve incluir as datas com o # ou ”ao usá-las em seu código, conforme mostrado abaixo:
Função VBA DateValue
A função VBA DateValue pode ser usada para inicializar uma data. O código a seguir pode ser usado para inicializar uma data no VBA:
| 1 | MsgBox DateValue ("01/01/2010") |
Função VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Exemplo de variável de data do Excel VBA
Este procedimento demonstra como criar variáveis de data, atribuir-lhes valores e gerá-los em uma planilha do Excel:
| 12345678910111213 | Sub DeclaringAVariableAsADate ()Dim dateUma como dataDim dateDuas como datadateOne = # 1/1/2019 #dateTwo = "1/2/2019"Intervalo ("A1"). Valor = dateOneIntervalo ("A2"). Valor = dateTwoEnd Sub |
O resultado é:
Você pode aprender mais sobre funções de data neste tutorial.
Variável de data VBA no acesso
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 de acesso com o valor.
| 12345 | Sub DeclaringAVariableAsADate ()Dim dtWork As DatedtWork = # 05/10/2020 #DoCmd.RunSql "ATUALIZAR tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"End Sub |
