Função DateValue

Retorna um objeto Date a partir de uma string que representa uma data.

O objeto retornado é representado internamente como um valor numérico único correspondendo à data especificada. Este valor pode ser usado para calcular o número de dias entre duas datas.

Sintaxe:


  DateValue(data As String)

Parâmetros:

data: String que contém a data que será convertida para um objeto Date.

note

The string passed to DateValue must be expressed in one of the date formats defined by your locale setting (see - Languages and Locales - General) or using the ISO date format "yyyy-mm-dd" (year, month and day separated by hyphens).


Valor de retorno:

Date.

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:


  Sub ExampleDateValue
      Dim aDate As Date
      aDate = DateValue("2021-12-20")
      ' Imprime a data localizada
      MsgBox aDate
      ' Extrai o ano, mês e dia do objeto Date
      MsgBox Year(aDate)
      MsgBox Month(aDate)
      MsgBox Day(aDate)
      ' Imprime o valor numérico correspondente à data (como um tipo Long)
      MsgBox CLng(aDate)
  End Sub