VBA Access - Função Format com Datas - Using the Format Function with Dates

No MS Office Access, a função Format faz o tratamento de um conteúdo, retornando-o na expressão que desejarmos. A syntaxe para a função Format é: Format ( expressão, [ format, [ firstdayofweek, [primeirasemanadoano] ] ] ) Expressão é o valor a ser "formatado". Format é opcional, existem valores defaults para este, como observado abaixo: 

 15.01.2025 

' A função Format permite formatar datas, horas e outros tipos de dados 

' de acordo com a configuração do sistema ou com formatos personalizados.

' Exemplos de formatos pré-definidos:

' General Date: Exibe a data no formato padrão do sistema.

' Long Date: Exibe a data no formato "Data Longa" de acordo com a configuração regional.

' Medium Date: Exibe a data no formato "Data Média" de acordo com a configuração regional.

' Short Date: Exibe a data no formato "Data Curta" de acordo com a configuração regional.

' Long Time: Exibe a hora no formato "Hora Longa" de acordo com a configuração regional.

' Medium Time: Exibe a hora no formato "Hora Média" de acordo com a configuração regional.

' Short Time: Exibe a hora no formato "Hora Curta" de acordo com a configuração regional.

' Exemplo de uso de formato pré-definido

Dim formattedDate As String

' Exemplo de formato "Short Date" para a data de hoje

formattedDate = Format(#17/04/2009#, "Short Date")

' Retornará: "17/04/2009"

' Exemplo de formato "Long Date" para a mesma data

formattedDate = Format(#17/04/2009#, "Long Date")

' Retornará: "Abril 17, 2009" (dependendo da configuração do sistema)

' Exemplo de formato "yyyy/mm/dd" para a mesma data

formattedDate = Format(#17/04/2009#, "yyyy/mm/dd")

' Retornará: "2009/04/17"

' VBA: Utilizando a função Format diretamente no código VBA

Dim LValue As String

' Exemplo de formatação para "dd/mm/yy" (dia/mês/ano)

LValue = Format(Date, "dd/mm/yy")

' A variável LValue conterá a data de hoje formatada como "17/04/23" (dependendo da data atual)

' Utilizando a função Format diretamente em uma query no Access:

' Exemplo de query no Access que utiliza o formato "Long Date"

SELECT Format([YourDateField], "Long Date") AS FormattedDate

FROM YourTable;

' Essa query retornará as datas no formato longo configurado no sistema para o campo [YourDateField].

' Definindo um formato personalizado:

' É possível criar formatos personalizados para exibir datas e horas da forma que desejarmos.

' Exemplo de um formato personalizado para a data: "dd-mmm-yyyy"

Dim customFormattedDate As String

customFormattedDate = Format(Date, "dd-mmm-yyyy")

' Exemplo de resultado: "17-Apr-2023"

' Exemplos de constantes de configuração de semana:

' A constante firstdayofweek é opcional e pode ser usada para definir o primeiro dia da semana na função Format:

' vbUseSystem (0) - Usa a configuração padrão do sistema

' vbFirstJan1 (1) - A semana que contém o primeiro dia de janeiro

' vbFirstFourDays (2) - A primeira semana do ano que contém 4 dias

' vbFirstFullWeek (3) - A primeira semana cheia do ano

' Exemplo de uso da constante firstdayofweek:

Dim firstDayOfWeek As Integer

firstDayOfWeek = vbUseSystem ' Usando a configuração do sistema

' Ou use vbFirstJan1, vbFirstFourDays ou vbFirstFullWeek, dependendo da necessidade

' Exemplo prático com um formato de data personalizada:

Dim myCustomDate As String

myCustomDate = Format(#17/04/2009#, "dd-mmm-yyyy")

' A variável myCustomDate conterá a data formatada como "17-Apr-2009"

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT