Função DatePart
A função DatePart devolve uma parte específica de uma data.
Sintaxe:
DatePart (Adicionar, Data [, Início_semana [, Início_ano]])
Valor de retorno:
Uma Variante que contém uma data.
Parâmetros:
Adicionar - Uma expressão em caracteres da seguinte tabela, especificando o intervalo de data.
Adicionar (valor de cadeia)
|
Explicação
|
aaaa
|
Ano
|
q
|
Trimestre
|
m
|
Mês
|
y
|
Dia do ano
|
w
|
Dia da semana
|
sm
|
Semana do ano
|
d
|
Dia
|
h
|
Hora
|
n
|
Minuto
|
s
|
Segundo
|
Data - a data a partir da qual o resultado é calculado.
Início_semana - parâmetro opcional que especifica o primeiro dia de uma semana.
Valor Início_semana
|
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
|
Início_ano - parâmetro opcional que especifica a primeira semana do ano.
Valor Início_ano
|
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", "12/31/2005")
End Sub