Conteúdo

# <variável id="DateValue_H1">Função DateValue</variável>

Devolve um objeto Date a partir de uma cadeia de caracteres que representa uma data.

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

### Sintaxe:

      DateValue(date As String)

### Parâmetros:

data: Uma cadeia de caracteres que contém a data que será convertida num objeto Date.

A cadeia de caracteres passada para DateValue deve ser expressa num dos formatos de data definidos pela sua configuração de localização (ver LibreOffice - Preferências Ferramentas - Opções - Idiomas e configurações regionais - Geral) ou utilizando o formato de data ISO «aaaa-mm-dd» (ano, mês e dia separados por hífens).

### Tipo de retorno:

Date.

### Códigos de erro

5 Chamada de procedimento inválido

### Exemplo:

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

Tópicos relacionados

Função DateSerial

Necessitamos da sua ajuda!