DatePart

Descrição:

A função DatePart em VBA é uma ferramenta poderosa para extrair partes específicas de uma data, como o dia, mês, ano, hora, minuto, segundo, entre outras. Essa função é essencial em situações onde é necessário trabalhar com componentes individuais de uma data em projetos VBA.

Para utilizar a função DatePart, é necessário especificar dois argumentos: o componente da data que se deseja extrair (como “d” para dia, “m” para mês, “yyyy” para ano, “h” para hora, “n” para minuto, “s” para segundo, entre outros) e a data da qual se quer extrair essa parte.

Por exemplo, ao utilizar a função DatePart com o argumento “m” e uma data correspondente, você obterá o mês correspondente a essa data. Essa funcionalidade é muito útil em aplicações que envolvem a manipulação detalhada de datas.

Resumidamente, a função DatePart é uma ferramenta valiosa em projetos VBA para extrair informações específicas de datas e trabalhar com elas de forma individual.

Exemplos:

Sub Exemplo1()
    Dim data As Date
    Dim dia As Integer
    
    data = #10/08/2023#
    dia = DatePart("d", data)
    
    MsgBox "O dia da data é: " & dia
End Sub
    

Este exemplo utiliza a função `DatePart` para obter o dia de uma data específica e o exibe em um MsgBox.

Sub Exemplo2()
    Dim data As Date
    Dim mes As Integer
    
    data = #10/08/2023#
    mes = DatePart("m", data)
    
    MsgBox "O mês da data é: " & mes
End Sub
    

Este exemplo utiliza a função `DatePart` para obter o mês de uma data específica e o exibe em um MsgBox.

Sub Exemplo3()
    Dim data As Date
    Dim ano As Integer
    
    data = #10/08/2023#
    ano = DatePart("yyyy", data)
    
    MsgBox "O ano da data é: " & ano
End Sub
    

Este exemplo utiliza a função `DatePart` para obter o ano de uma data específica e o exibe em um MsgBox.

Sub Exemplo4()
    Dim data As Date
    Dim hora As Integer
    
    data = #10/08/2023 14:30:45#
    hora = DatePart("h", data)
    
    MsgBox "A hora da data é: " & hora
End Sub
    

Este exemplo utiliza a função `DatePart` para obter a hora de uma data e hora específicas e o exibe em um MsgBox.

Sub Exemplo5()
    Dim data As Date
    Dim minuto As Integer
    
    data = #10/08/2023 14:30:45#
    minuto = DatePart("n", data)
    
    MsgBox "O minuto da data é: " & minuto
End Sub
    

Este exemplo utiliza a função `DatePart` para obter o minuto de uma data e hora específicas e o exibe em um MsgBox.