Função DatePart
A função DatePart retorna uma parte específica de uma data.
DatePart (interval As String, date As Date [, firstDayOfWeek As Integer [, firstWeekOfYear As Integer]]) As Long
Valor de retorno:
A parte extraída para a data informada.
 interval - Uma expressão de string da tabela a seguir, especificando o intervalo de datas.
  
    | intervalo (valor da string) | 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 | Segundos | 
 
 Data - A data a partir da qual o resultado é calculado.
Literais de data permitem especificar variáveis de data inequívocas que são independentes do idioma atual. Os literais são colocados entre cerquilhas #. Os formatos possíveis são:
    - 
        #yyyy-mm-dd# 
- 
        #mm/dd/yyyy# 
 
 firstdayofweek - Um parâmetro opcional que especifica o primeiro dia da semana.
  
    | Valor firstdayofweek | Explicação | 
  
    | 0 | Use o valor padrão 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 - Um parâmetro opcional que especifica a primeira semana de um ano.
  
    | Valor firstweekofyear | Explicação | 
  
    | 0 | Use o valor padrão do sistema | 
  
    | 1 | A semana 1 é a semana com 1ro de janeiro (padrão) | 
  
    | 2 | A semana 1 é a primeira semana que contém quatro ou mais dias desse ano | 
  
    | 3 | A semana 1 é a primeira semana que contém somente dias do ano novo | 
 
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