Funkce DateValue

Vrátí objekt Date z řetězce představujícího datum.

Vrácený objekt je vnitřně reprezentován jako jediná číselná hodnota odpovídající stanoveného datu. Tuto hodnotu je možné použít pro výpočet počtu dní mezi dvěma daty.

Syntaxe:


  DateValue(date As String)

Parametry:

date: Řetězec obsahující datum, které se převede na objekt Date.

Je nutné, aby byl řetězec předaný funkci DateValue vyjádřen v některém z formátů data definovaných v nastavení národního prostředí (viz - Jazyky a národní prostředí - Obecné) nebo formátem data standardu ISO ve tvaru "yyyy-mm-dd" (rok, měsíc a den oddělené spojovníky).

Návratová hodnota:

Date.

Chybové kódy:

5 Neplatné volání procedury

Příklad:


  Sub ExampleDateValue
      Dim aDate As Date
      aDate = DateValue("2021-12-20")
      ' Vypíše lokalizované datum
      MsgBox aDate
      ' Získá z objektu data rok, měsíc a den
      MsgBox Year(aDate)
      MsgBox Month(aDate)
      MsgBox Day(aDate)
      ' Vypíše číselnou hodnotu odpovídající datu (jako typ Long)
      MsgBox CLng(aDate)
  End Sub

Funkce DateSerial