DatePart függvény

A dátum adott részét tartalmazó Variant (egész) értéket ad eredményül.

Figyelmeztetés Probléma merült fel a függvény használatával kapcsolatban. Egyes naptári évek utolsó hétfője az 53. hét, amikor az 1. hétnek kell lennie. További információkért és kerülő megoldásért lásd: A Format vagy a DatePart függvény nem a megfelelő heti számot adja vissza a múlt hétfőre vonatkozóan az év során.

Szintaxis

DatePart(interval; date [, firstdayofweek] [, firstweekofyear] )

A DatePart függvény szintaxisa az alábbi argumentumokat foglalja tartalmazza:

Argumentum	Leírás:
intervallum	Kötelező megadni. Sztringkifejezés, amely a visszaadni kívánt időintervallum.
Dátum	Kötelező megadni. A kiértékelni kívánt Variant (Dátum) érték.
hét_első_napja	Nem kötelező. A hét első napját megadó állandó. Ha nincs külön megadva, akkor a rendszer vasárnap használatát feltételezi.
évelsőhete	Nem kötelező. Az év első hetét megadó állandó. Ha nincs megadva, akkor a rendszer azt a hetet feltételezi, amelyben január 1-je szerepel.

Beállítások

Az intervallum argumentum a következő beállításokat tartalmazza:

Beállítás	Leírás:
yyyy	Év
q	Negyedév
m	Hónap
y	Év napja
d	Nap
w	Hétköznap
ww	Hét
h	Óra
n	Perc
s	Másodperc

A firstdayofweek argumentum a következő beállításokat tartalmazza:

Állandó	Érték	Leírás:
vbUseSystem	0	Az NLS API beállítás használata
vbSunday	1	Vasárnap (alapértelmezett)
vbMonday	2	Hétfő
vbTuesday	3	Kedd
vbWednesday	4	Szerda
vbThursday	5	Csütörtök
vbFriday	6	Péntek
vbSaturday	7	Szombat

Az év első hétének argumentuma a következő beállításokat tartalmazza:

Állandó	Érték	Leírás:
vbUseSystem	0	Az NLS API beállítás használata
vbFirstJan1	1	Az legyen az első hét, amelybe január 1. esik (alapértelmezett).
vbFirstFourDays	2	Az első hét legyen az első olyan hét, amelynek legalább négy napja az új évben van.
vbFirstFullWeek	3	Az első hét legyen az év első teljes hete.

Megjegyzések

A DatePart függvénnyel kiértékelhet egy dátumot, és adott időintervallumot adhat vissza. A DatePart használatával például kiszámíthatja a hét napját vagy az aktuális órát.

A firstdayofweek argumentum a "w" és a "ww" intervallumszimbólumot használó számításokra van hatással.

Ha a dátum dátumkonstans, a megadott év a dátum állandó részévé válik. Ha azonban a dátum idézőjelek (" ") közé kerül, és kihagyja az évet, a rendszer a dátumkifejezés minden kiértékelésekor beszúrja az aktuális évet a kódba. Így írhat olyan kódot is, amely különböző években is használható.

A visszaadott dátum rész az aktuális arab naptár időegységeiben található. Ha például az aktuális naptár az iszlám naptár, és az eredményül adott dátumrész év, akkor az év iszlám év.

Példák lekérdezésre

Kifejezés	Eredmény:
SELECT DatePart("yyyy";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Year" értékét adja vissza.
SELECT DatePart("q";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Negyedév" értékét adja vissza (a calender éve alapján).
SELECT DatePart("y";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Év napja" (1–365) értékét adja vissza.
SELECT DatePart("d";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Day" értékét adja vissza.
SELECT DatePart("w";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Hétköznap" értékét adja vissza (1 és 7 között, ahol az 1 a vasárnapot jelöli).
SELECT DatePart("ww";[DateofSale]) AS NewDate FROM ProductSales;	A "DateofSale" mező dátumértékeinek "Hét száma" értékét adja vissza (1 és 52 között).
SELECT DatePart("h";[DateTime]) AS NewDate FROM ProductSales;	A "DateTime" mező dátumértékeinek "Hour" értékét adja vissza.
SELECT DatePart("n",[DateTime]) AS NewDate FROM ProductSales;	A "DateTime" mező dátumértékeinek Perc értékét adja vissza.
SELECT DatePart("s";[DateTime]) AS NewDate FROM ProductSales;	A "DateTime" mező dátumértékeinek "másodperc" értékét adja vissza.

VBA-példa

Ez a példa egy dátumot vesz fel, és a DatePart függvénnyel megjeleníti annak az évnek a negyedévét, amelyben bekövetkezik.

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

A megfelelő dátumfüggvény kiválasztása