Vrátí hodnotu Variant (Date).
Syntaxe
DateValue(date)
Argument požadovaného dataje obvykle řetězcový výraz představující datum od 1. ledna 100 do 31. prosince 9999. Datem ale může být také libovolný výraz, který může představovat datum, čas nebo datum a čas v daném rozsahu.
Poznámky
Pokud je datum řetězec, který obsahuje pouze čísla oddělená platnými oddělovači kalendářních dat, funkce DateValue rozpozná pořadí pro měsíc, den a rok podle formátu krátkého data, který jste zadali pro váš systém. DateValue také rozpoznává jednoznačná data, která obsahují názvy měsíců, a to buď v dlouhé, nebo zkrácené podobě. Například kromě rozpoznávání 30. 12. 1991 a 30. 12. 991 funkce DateValue rozpozná také hodnoty 30. prosince 1991 a 30. prosince 1991.
Pokud je část kalendářního roku vynechána, použije funkce DateValue aktuální rok ze systémového data počítače.
Pokud argument date obsahuje informace o čase, funkce DateValue je nevrátí. Pokud však datum obsahuje neplatné informace o čase (například 89:98), dojde k chybě.
Poznámka
Pokud jeCalendar vlastnost nastavena na gregoriánské datum, musí být zadané datum gregoriánské. Pokud je kalendář Hidžra, musí být zadané datum Hidžra. Pokud je zadané datum Hidžra , argument datum je řetězec představující datum od 1. 1. 100 (Gregorián 2. srp 718) do 3. 4. 9666 (Gregorián 31. prosince 9999).
Příklady dotazů
| Výraz | Výsledky: |
|---|---|
| SELECT DateValue([DateTime]) AS Expr1 FROM ProductSales; | Vrátí hodnoty kalendářních dat pole DateTime ve formátu krátkého data bez informací o čase. |
| SELECT DateValue([DateTime]) AS NewDate, Count(ProductSales.DateTime) AS CountOfDateTime FROM ProductSales GROUP BY DateValue([DateTime]); | Vrátí hodnoty kalendářních dat pole DateTime ve formátu krátkého data bez informací o čase. |
Příklad jazyka VBA
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci DateValue k převodu řetězce na datum. Pomocí datových literálů můžete také přímo přiřadit datum proměnné Variant nebo Date , například MyDate = #2/12/69#.
Dim MyDate
MyDate = DateValue("February 12, 1969") ' Return a date.