Funzione DateValue

Restituisce un oggetto Date da una stringa che rappresenta una data.

L'oggetto restituito è rappresentato come un singolo valore numerico corrispondente alla data specificata. Questo valore può essere usato per calcolare il numero di giorni tra due date.

Sintassi:


  DateValue(date As String)

Parametri:

date: la stringa contenente la data da convertire in un oggetto 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).


Valore restituito:

Date.

Codici di errore:

5 Richiamo di procedura non valido

Esempio:


  Sub ExampleDateValue
      Dim aDate As Date
      aDate = DateValue("2021-12-20")
      ' Stampa la data nel formato locale
      MsgBox aDate
      ' Estrae l'anno, il mese ed il giorno dall'oggetto data
      MsgBox Year(aDate)
      MsgBox Month(aDate)
      MsgBox Day(aDate)
      ' Stampa il valore numerico corrispondente alla data (come intero di tipo Long)
      MsgBox CLng(aDate)
  End Sub