Manipulando Data e Hora com a classe DateTime
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Observe, na imagem abaixo, a classe DateTime e seus Membros. Lista obtida através do Pesquisador de Objetos do VBA.
Veja alguns exemplos de uso desta classe pelo Access:
Função | Descrição | Exemplo | Retorno |
Date | Retorna a data e a hora atuais do sistema. | Date | 08/01/2019 |
DateAdd | Retorna uma data com número especificado de dias(d), semanas(ww), meses(m) ou anos(y), somado a data. | DateAdd("d",31,#08/01/2019#)
|
09/01/2019 (mm/dd/yyyy) |
DateDiff | Retorna um inteiro, representando a diferença entre duas datas. | DateDiff("d",#07/15/2019#,date) Nota: assumindo Date #08/01/2019 |
17 |
DatePart | Retorna a parte especificada de uma data, como o dia, o mês, o ano, o dia da semana(w), etc. | DatePart("w",#08/01/2019#) DatePart("d",#08/01/2019#) |
5 (quinta) 1 (dia) |
DateSerial | Retorna a data a partir dos argumentos de ano, mês e dia. | DateSerial(Ano,mês,dia) DateSerial(2019,8,1) |
08/01/2019 (mm/dd/yyyy) |
DateValue | Retorna o formato de uma data, a entrada data em formato de caracteres. | DateValue("01-ago-2019") DateValue("01/ago/2019") DateValue("01/08/2019") |
08/01/2019 (mm/dd/yyyy) |
Day | Retorna o valor inteiro entre 1 e 31 que representa um dia do mês a partir de um valor de data. | Day(#08/01/2019#) | 1 |
Hour | Retorna o valor inteiro entre 0 e 23 que representa a hora de um valor de date/time. | Hour(#2:30 PM#) | 14 |
Minute | Retorna o valor inteiro entre 0 e 59, que representa os minutos de um valor de date/time. | Minute(#2:30 PM#) | 30 |
Month | Retorna o valor inteiro entre 1 e 12 que representa o mês de um valor de date/time. | Month(#08/01/2019#) | 8 |
MonthName | Retorna o nome abreviado ou completo de mês a partir do número do mês (1 a 12). Se você omitir o segundo argumento, a função retornará o nome completo. | MonthName(08,False) MonthName(08,true) MonthName(08) |
agosto ago agosto |
Now | Retorna a data e a hora do relógio do sistema do computador. | Now | 01/08/2019 15:21:47 |
Second | Retorna o valor inteiro entre 0 e 59 que representa os segundos de um valor de date/time. | Second(now) | 47 |
Time | Retorna a parte de hora de uma valor de date/time, retirado do relógio interno do sistema. | Time | 15:21:47 |
TimeSerial | Retorna a hora a partir dos argumentos hora, minutos e segundos inseridos na função. | TimeSerial(15,21,47) | 15:21:47 |
TimeValue | Retorna no formato hora a string hora inserida na função. | TimeValue("11:57 PM") | 23:57 |
Weekday | Retorna o dia da semana ( 1 a 7 )(1=domingo) correspondente a data. | Weekday(#08/01/2019#) | 5 (quinta) |
WeekdayName | Retorna o nome completo ou abreviado do dia, a partir do número do dia(1 a 7). A definição do segundo argumento em TRUE abrevia o nome. | WeekdayName(5,false) WeekdayName(5,true) WeekdayName(5)
|
Quinta-Feira Qui Quinta-Feira |
Year | Retorna o ano de um valor date/time. | Year(#08/01/2019#) |
2019 |
Saiba como explorar o HELP do VBA através desta minha vídeo-aula.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
2 comentário(s) Avelino Sampaio 20/07/2023 10:33:40 Gelson Experimente assim: format(now,"ddmmyyyyhhmmss") Gelson Dias 19/07/2023 10:05:25 Problema: Preciso criar uma sequência de registros que não se repetem e usar a data/hora como aparte dele. Como transformar uma data/hora/minuto/segundo em um número inteiro? |