DateValue

Descrição:

A função DateValue em VBA (Visual Basic for Applications) é uma ferramenta poderosa para converter uma expressão em uma data válida. Esta função é especialmente útil quando se trabalha com dados que estão armazenados em formato de texto e precisam ser convertidos em datas para cálculos ou apresentação correta.
Ao utilizar a função DateValue, você pode fornecer uma variedade de formatos de data, como “dd/mm/aaaa”, “mm/dd/aaaa”, “aaaa-mm-dd”, entre outros, e ela irá interpretar e converter corretamente a expressão para uma data.
Por exemplo, se você tem a string “2023-10-08” e deseja convertê-la em uma data, pode usar DateValue("2023-10-08") e obterá a data correspondente a 8 de outubro de 2023.
Além disso, a função DateValue também é capaz de interpretar datas escritas em diferentes idiomas e formatos, o que a torna uma ferramenta versátil em projetos VBA.
Em resumo, a função DateValue é essencial para a conversão eficaz de expressões em datas utilizáveis em projetos VBA, proporcionando maior flexibilidade no tratamento de dados temporais.
Exemplos:

Sub Exemplo1()
    Dim data As Date
    
    data = DateValue("2023-10-08")
    
    MsgBox "A data criada é: " & data
End Sub
    

Este exemplo utiliza a função DateValue para converter a string “2023-10-08” em uma data válida e a exibe em um MsgBox.

Sub Exemplo2()
    Dim data As Date
    
    data = DateValue("15/06/2022")
    
    MsgBox "A data criada é: " & data
End Sub
    

Este exemplo utiliza a função DateValue para converter a string “15/06/2022” em uma data válida e a exibe em um MsgBox.

Sub Exemplo3()
    Dim data As Date
    
    data = DateValue("2023-02-29")
    
    MsgBox "A data criada é: " & data
End Sub
    

Este exemplo utiliza a função DateValue para converter a string “2023-02-29” em uma data válida (lembre-se de que 2023 não é um ano bissexto, então o VBA ajusta automaticamente para 28 de fevereiro) e a exibe em um MsgBox.

Sub Exemplo4()
    Dim data As Date
    
    data = DateValue("10 de Outubro de 2023")
    
    MsgBox "A data criada é: " & data
End Sub
    

Este exemplo utiliza a função DateValue para converter a string “10 de Outubro de 2023” em uma data válida e a exibe em um MsgBox.

Sub Exemplo5()
    Dim data As Date
    
    data = DateValue("2023/04/01")
    
    MsgBox "A data criada é: " & data
End Sub
    

Este exemplo utiliza a função DateValue para converter a string “2023/04/01” em uma data válida e a exibe em um MsgBox.