Como usar a função DatePart em VBA?

A função `DatePart` em VBA (Visual Basic for Applications) é usada para extrair uma parte específica de uma data, como o ano, mês, dia, hora, minuto, segundo, entre outros. Aqui está a sintaxe básica da função `DatePart`:

DatePart(Intervalo, Data, [PrimeiroDiaDaSemana], [PrimeiraSemanaDoAno])

Parâmetros:

Intervalo: Uma string que especifica a parte da data que você deseja extrair. As opções comuns incluem:

`”yyyy”`: Ano
`”q”`: Trimestre
`”m”`: Mês
`”y”`: Dia do ano
`”d”`: Dia
`”w”`: Dia da semana
`”ww”`: Semana do ano
`”h”`: Hora
`”n”`: Minuto
`”s”`: Segundo

Data: A data da qual você deseja extrair a informação. Pode ser uma data literal, uma variável que contenha uma data, ou uma função que retorne uma data.
PrimeiroDiaDaSemana (Opcional): Uma constante que especifica o primeiro dia da semana. A padrão é vbSunday. As opções incluem:

`vbUseSystem` (0): Usar configuração do sistema
`vbSunday` (1): Domingo (padrão)
`vbMonday` (2): Segunda-feira
`vbTuesday` (3): Terça-feira
`vbWednesday` (4): Quarta-feira
`vbThursday` (5): Quinta-feira
`vbFriday` (6): Sexta-feira
`vbSaturday` (7): Sábado

PrimeiraSemanaDoAno (Opcional): Especifica a primeira semana do ano. As opções são:

`vbUseSystem` (0): Usar configuração do sistema
`vbFirstJan1` (1): Semana em que o dia 1º de janeiro ocorre (padrão)
`vbFirstFourDays` (2): Primeira semana com pelo menos quatro dias no novo ano
`vbFirstFullWeek` (3): Primeira semana completa do ano

Exemplo de Uso:

Aqui está um exemplo de como usar a função `DatePart`:

Sub ExemploDatePart()
    Dim minhaData As Date
    Dim ano As Integer
    Dim mes As Integer
    Dim diaDaSemana As Integer

    minhaData = #10/15/2023# ' Define uma data literal

    ' Obtém o ano da data
    ano = DatePart("yyyy", minhaData)
    MsgBox "Ano: " & ano

    ' Obtém o mês da data
    mes = DatePart("m", minhaData)
    MsgBox "Mês: " & mes

    ' Obtém o dia da semana da data (1 = Domingo, 2 = Segunda-feira, etc.)
    diaDaSemana = DatePart("w", minhaData)
    MsgBox "Dia da Semana: " & diaDaSemana
End Sub

Neste exemplo, a função `DatePart` é usada para extrair o ano, mês e dia da semana de uma data especificada. Você pode mudar os parâmetros do `DatePart` conforme necessário para obter diferentes partes de uma data.

facebooklinkedin