Funktionen DatumDel

Returnerar ett värde av datatypen Variant (Heltal) som innehåller den angivna delen av ett visst datum.

Varning Det finns ett problem med användningen av den här funktionen. Den sista måndagen i vissa kalenderår kan returneras som vecka 53 när det ska vara vecka 1. Mer information och en lösning finns i Formatera eller DatumDel-funktioner kan returnera fel veckonummer för förra måndagen i år.

Syntax

DatumDel(intervall, datum [, första_dagen_i_veckan] [, första_veckan_på_året] )

Syntaxen för funktionen DatumDel har följande argument:

Argument	Beskrivning
intervall	Obligatoriskt. Stränguttryck som är det tidsintervall du vill returnera.
Datum	Obligatoriskt. Det värde av datatypen Variant (Datum) som du vill utvärdera.
förstadagiveckan	Valfritt. En konstant som anger den första dagen i veckan. Om argumentet utelämnas används söndag.
förstaveckanpååret	Valfritt. En konstant som betecknar den första veckan på året. Om argumentet utelämnas används den vecka då den 1 januari infaller.

Inställningar

Intervallargumentet har följande inställningar:

Inställning	Beskrivning
yyyy	År
q	Kvartal
m	Månad
y	Dag på året
d	Dag
w	Veckodag
ww	Vecka
h	Timme
n	Minut
s	Sekund

Argumentet första_i_veckan har följande inställningar:

Konstant	Värde	Beskrivning
vbUseSystem	0	Använd NLS API-inställningen.
vbSunday	1	Söndag (standard)
vbMonday	2	Måndag
vbTuesday	3	Tisdag
vbWednesday	4	Onsdag
vbThursday	5	Torsdag
vbFriday	6	Fredag
vbSaturday	7	Lördag

Argumentet första_i_veckanpååret har följande inställningar:

Konstant	Värde	Beskrivning
vbUseSystem	0	Använd NLS API-inställningen.
vbFirstJan1	1	Börja med den vecka då den 1 januari infaller (standard).
vbFirstFourDays	2	Börja med den första vecka där minst fyra dagar ligger i det nya året.
vbFirstFullWeek	3	Börja med årets första fullständiga vecka.

Kommentarer

Du kan använda funktionen DatumDel för att utvärdera ett datum och returnera ett visst tidsintervall. Du kan till exempel använda Datumdel för att beräkna veckodagen eller den aktuella timmen.

Argumentet första_i_veckan påverkar beräkningar som använder intervallsymbolerna "w" och "ww".

Om datum är en datumliteral blir det angivna året en permanent del av det datumet. Men om datum omges av dubbla citattecken (" "), och du utelämnar året, infogas det aktuella året i koden varje gång datumuttrycket utvärderas. På så sätt är det möjligt att skriva kod som kan användas under olika år.

Den returnerade datumdelen ingår i tidsperiodsenheterna för den aktuella arabiska kalendern. Om till exempel den aktuella kalendern är Hijri och den datumdel som ska returneras är året, är årsvärdet ett Hijri-år.

Frågeexempel

Uttryck	Resultat
SELECT DatePart("yyyy",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar 'Year' för datumvärdena i fältet "DateofSale".
SELECT DatePart("q",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar kvartalsvärdet (baserat på kalenderår) för datumvärdena i fältet "DateofSale".
SELECT DatePart("y",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar 'Day of Year' (1 till 365) för datumvärdena i fältet "DateofSale".
SELECT DatePart("d",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar 'Dag' för datumvärdena i fältet "DateofSale".
SELECT DatePart("w",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar veckodagen (från 1 till 7 där 1 representerar söndag) för datumvärdena i fältet "DateofSale".
SELECT DatePart("ww",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar veckonumret (från 1 till 52) för datumvärdena i fältet "DateofSale".
SELECT DatePart("h",[DateTime]) AS NewDate FROM ProductSales;	Returnerar timvärdet för datumvärdena i fältet "DateTime".
SELECT DatePart("n",[DateTime]) AS NewDate FROM ProductSales;	Returnerar minuter för datumvärdena i fältet "DateTime".
SELECT DatePart("s",[DateTime]) AS NewDate FROM ProductSales;	Returnerar sekunderna för datumvärdena i fältet "DateTime".

VBA-exempel

Det här exemplet tar ett datum och visar, med hjälp av funktionen DatumDel , kvartalet i det år då det inträffar.

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

Välj rätt datumfunktion