VBA - Função DatePart

Uma função, que retorna a parte específica da data fornecida.

Sintaxe

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

Descrição do Parâmetro

Interval- Um parâmetro obrigatório. Pode assumir os seguintes valores.
- d - dia do ano.
- m - mês do ano
- y - ano do ano
- aaaa - ano
- w - dia da semana
- ww - semana
- q - quarto
- h - hora
- n - minuto
- s - segundo
Date1 - Um parâmetro obrigatório.
Firstdayofweek- Um parâmetro opcional. Especifica o primeiro dia da semana. Pode assumir os seguintes valores.
- 0 = vbUseSystemDayOfWeek - Usar configuração de API de suporte ao idioma nacional (NLS)
- 1 = vb Domingo - Domingo
- 2 = vb segunda-feira - segunda-feira
- 3 = vb terça - terça
- 4 = vbQuarta - Quarta
- 5 = vb quinta-feira - quinta-feira
- 6 = vbFriday - Friday
- 7 = vb Sábado - Sábado
Firstdayofyear- Um parâmetro opcional. Especifica o primeiro dia do ano. Pode assumir os seguintes valores.
- 0 = vbUseSystem - Usar configuração de API do National Language Support (NLS)
- 1 = vbFirstJan1 - começa com a semana em que ocorre 1º de janeiro (padrão)
- 2 = vbFirstFourDays - começa com a semana que tem pelo menos quatro dias no ano novo
- 3 = vbFirstFullWeek - Comece com a primeira semana inteira do novo ano

Exemplo

Adicione um botão e adicione a seguinte função.

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant
  
   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)
   
   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)
   
   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)
   
   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))  
End Sub

Quando você executa a função acima, ela produz a seguinte saída.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1

↰ Previous page