A função DatePart devolve uma parte específica de uma data.
Sintaxe:
DatePart (interval As String, date As Date [, firstDayOfWeek As Integer [, firstWeekOfYear As Integer]]) As Long
Valor de retorno:
The extracted part for the given date.
Parâmetros:
interval - A string expression from the following table, specifying the date interval.
interval (string value)
Explicação
yyyy
Ano
q
Trimestre
m
Mês
y
Dia do ano
w
Dia da semana
ww
Semana do ano
d
Dia
h
Hora
n
Minuto
s
Segundo
date - The date from which the result is calculated.
Date literals allow to specify unambiguous date variables that are independent from the current language. Literals are enclosed between hash signs #. Possible formats are:
#yyyy-mm-dd#
#mm/dd/yyyy#
firstdayofweek: An optional parameter that specifies the starting day of a week.
firstdayofweek value
Explicação
0
Utilizar o valor do sistema
1
domingo (padrão)
2
segunda-feira
3
terça-feira
4
quarta-feira
5
quinta-feira
6
sexta-feira
7
sábado
firstweekofyear: An optional parameter that specifies the starting week of a year.
firstweekofyear value
Explicação
0
Utilizar o valor do sistema
1
Semana 1 é a semana de 1 de janeiro (padrão)
2
Semana 1 é a primeira semana que contém quatro ou mais dias desse ano
3
Semana 1 é a primeira semana que só contém dias do novo ano
Exemplo:
Sub example_datepart
MsgBox DatePart("ww", #01/02/2005#) ' displays 2 because weeks start on Sunday
MsgBox DatePart("ww", #12/31/2005#) ' displays 53
MsgBox DatePart(date:=#2005-12-30#, interval:="q") ' displays 4
End Sub