Funkce DatePart

Vrátí hodnotu typu Variant (Integer) obsahující zadanou část daného data.

Upozornění Při použití této funkce došlo k problému. Poslední pondělí v některých kalendářních letech může být vráceno jako týden 53, i když by to měl být týden 1. Další informace a řešení najdete v tématu Formát nebo Funkce DatePart můžou vrátit nesprávné číslo týdne pro poslední pondělí v roce.

Syntaxe

DatePart(interval, datum [, první_den_v_týdnu] [, první_týden_v_roce] )

Syntaxe funkce DatePart obsahuje tyto argumenty:

Argument	Popis
interval	Povinný argument. Řetězcový výraz představující časový interval, který chcete vrátit.
Datum	Povinný argument. Hodnota proměnné (Date), kterou chcete vyhodnotit.
první_den_v_týdnu	Nepovinný argument. Konstanta, která určuje první den v týdnu. Pokud není uvedena, předpokládá se, že je to neděle.
první_týden_v_roce	Nepovinný argument. Konstanta, která určuje první týden v roce. Pokud není zadán, předpokládá se, že je to týden, do kterého spadá datum 1. ledna.

Nastavení

Argument interval má následující nastavení:

Nastavení	Popis
yyyy	Rok
q	Čtvrtletí
m	Měsíc
y	Den roku
d	Den
w	Funkce Weekday
ww	Týden
h	Hodina
n	Minuta
s	Sekunda

Argument první_den_v_týdnu má následující nastavení:

Konstanta	Hodnota	Popis
vbUseSystem	0	Použijte nastavení rozhraní API služby NLS.
vbneděle	1	Neděle (výchozí)
vbMonday	2	Pondělí
vbTuesday	3	Úterý
vbWednesday	4	Středa
vbčtvrtek	5	Čtvrtek
vbFriday	6	Pátek
vbsobota	7	Sobota

Argument první_týden_v_roce má následující nastavení:

Konstanta	Hodnota	Popis
vbUseSystem	0	Použijte nastavení rozhraní API služby NLS.
vbFirstJan1	1	Začátek týdnem, do kterého spadá datum 1. ledna (výchozí).
vbFirstFourDays	2	Začněte prvním týdnem, který má v novém roce aspoň čtyři dny.
vbFirstFullWeek	3	Začněte s prvním celým týdnem roku.

Poznámky

Funkci DatePart můžete použít k vyhodnocení kalendářního data a vrácení určitého časového intervalu. Funkci DatePart můžete použít třeba k výpočtu dne v týdnu nebo aktuální hodiny.

Argument první_den_v_týdnu má vliv na výpočty, které používají symboly intervalu "w" a "ww".

Pokud je datum literálem data, stane se zadaný rok trvalou součástí daného data. Pokud je však datum uzavřeno v uvozovkách (" ") a vynecháte rok, bude při každém vyhodnocení výrazu pro datum do kódu vložen aktuální rok. Díky tomu je možné psát kód, který lze použít v různých letech.

Vrácená část s datem je v jednotkách časového období aktuálního arabského kalendáře. Pokud je třeba aktuální kalendář kalendář Hidžra a datová část, která se má vrátit, je rok, hodnota roku je Hidžra.

Příklady dotazů

Výraz	Výsledky:
SELECT DatePart("yyyy",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí hodnotu "Rok" hodnot kalendářních dat v poli "DateofSale".
SELECT DatePart("q",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí hodnotu "Čtvrtletí" (na základě kalendářního roku) hodnot kalendářních dat v poli DateofSale.
SELECT DatePart("y",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí hodnotu "Den v roce" (1 až 365) hodnot kalendářních dat v poli DateofSale.
SELECT DatePart("d",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí hodnotu "Den" hodnot kalendářních dat v poli "DateofSale".
SELECT DatePart("w",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí hodnotu "Všední den" (od 1 do 7, kde 1 představuje neděli) hodnot kalendářních dat v poli DateofSale.
SELECT DatePart("ww",[DateofSale]) AS NewDate FROM ProductSales;	Vrátí číslo týdne (od 1 do 52) hodnot kalendářních dat v poli DateofSale.
SELECT DatePart("h",[DateTime]) AS NewDate FROM ProductSales;	Vrátí hodnotu "hodina" hodnot kalendářních dat v poli "DateTime".
SELECT DatePart("n",[DateTime]) AS NewDate FROM ProductSales;	Vrátí hodnotu "minuty" hodnot kalendářních dat v poli DateTime.
SELECT DatePart("s",[DateTime]) AS NewDate FROM ProductSales;	Vrátí hodnotu "sekundy" hodnot kalendářních dat v poli DateTime.

Příklad jazyka VBA

Tento příklad vezme datum a pomocí funkce DatePart zobrazí čtvrtletí roku, ve kterém toto datum nastává.

Dim TheDate As Date    ' Declare variables.
Dim Msg    
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

Volba správné datové funkce