FormatDateTime

Descrição:

A função FormatDateTime em VBA é uma ferramenta poderosa que permite formatar datas e horas de acordo com as preferências do usuário. Essa função é especialmente útil em situações onde é necessário apresentar informações de data e hora de forma legível e bem formatada.
Ao utilizar a função FormatDateTime, você pode especificar o formato desejado para a exibição de datas e horas. Isso inclui opções como data curta, data longa, hora curta, hora longa e muitos outros. Essa flexibilidade torna a função extremamente versátil e capaz de atender a uma variedade de necessidades de formatação.
Além disso, a função aceita tanto valores de data e hora atuais (obtidos com funções como Now e Time) quanto valores específicos definidos pelo usuário.
Em resumo, a função FormatDateTime é uma ferramenta essencial para qualquer programador VBA que lida com manipulação e apresentação de datas e horas, proporcionando uma maneira eficiente e personalizável de formatar essas informações de acordo com as necessidades do projeto.
Exemplos:

Sub Exemplo1()
    Dim data As Date
    data = Now
    
    Dim dataFormatada As String
    dataFormatada = FormatDateTime(data, vbLongDate)
    
    MsgBox "A data formatada é: " & dataFormatada
End Sub
    

Neste exemplo, a função FormatDateTime é utilizada para formatar a data atual no formato de data longa.

Sub Exemplo2()
    Dim hora As Date
    hora = Time
    
    Dim horaFormatada As String
    horaFormatada = FormatDateTime(hora, vbShortTime)
    
    MsgBox "A hora formatada é: " & horaFormatada
End Sub
    

Neste exemplo, a função FormatDateTime é utilizada para formatar a hora atual no formato de hora curta.

Sub Exemplo3()
    Dim dataHora As Date
    dataHora = Now
    
    Dim dataHoraFormatada As String
    dataHoraFormatada = FormatDateTime(dataHora, vbGeneralDate)
    
    MsgBox "A data e hora formatadas são: " & dataHoraFormatada
End Sub
    

Neste exemplo, a função FormatDateTime é utilizada para formatar a data e hora atual no formato geral.

Sub Exemplo4()
    Dim data As Date
    data = DateSerial(2023, 10, 25)
    
    Dim dataFormatada As String
    dataFormatada = FormatDateTime(data, vbShortDate)
    
    MsgBox "A data formatada é: " & dataFormatada
End Sub
    

Neste exemplo, a função FormatDateTime é utilizada para formatar uma data específica no formato de data curta.

Sub Exemplo5()
    Dim hora As Date
    hora = TimeValue("14:30:00")
    
    Dim horaFormatada As String
    horaFormatada = FormatDateTime(hora, vbLongTime)
    
    MsgBox "A hora formatada é: " & horaFormatada
End Sub
    

Neste exemplo, a função FormatDateTime é utilizada para formatar uma hora específica no formato de hora longa.