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 borde vara vecka 1. Mer information och en tillfällig lösning finns i Funktionerna Format eller DatumDel kan returnera fel veckonummer för den sista måndagen i året.

Syntax

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

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

Argument	Beskrivning
intervall	Obligatoriskt. Ett stränguttryck som representerar det tidsintervall som du vill returnera.
datum	Obligatoriskt. Variantvärde (datumvärde) 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örstadageniveckan 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örstaveckapåå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 beräkna ett datum och returnera ett visst tidsintervall. Du kan till exempel använda DatumDel till att beräkna veckodagen eller aktuell timme.

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

Om datum är en datumliteral blir det angivna året en permanent del av datumet. Men om datumet omges av dubbla citattecken (" "), och du utelämnar året, infogas aktuellt år 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 anges i de tidsenheter som gäller 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.

Exempel på frågor

Uttryck	Resultat
SELECT DatePart("yyyy",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar 'År' för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("q",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar kvartalet (baserat på kalenderår) för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("y",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar dagen på året (1 till och med 365) för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("d",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar "Dag" för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("w",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar "Veckodag" (från 1 till 7 där 1 representerar söndag) för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("ww",[DateofSale]) AS NewDate FROM ProductSales;	Returnerar "Veckonummer" (från 1 till 52) för datumvärdena i fältet "Försäljningsdatum".
SELECT DatePart("h",[DateTime]) AS NewDate FROM ProductSales;	Returnerar Timme för datumvärden i fältet "Datum/tid".
SELECT DatePart("n",[DateTime]) AS NewDate FROM ProductSales;	Returnerar "Minuter" för datumvärdena i fältet "Datum/tid".
SELECT DatePart("s",[DateTime]) AS NewDate FROM ProductSales;	Returnerar sekunder för datumvärdena i fältet "Datum/tid".

VBA-exempel

Det här exemplet tar ett datum och med hjälp av funktionen DatumDel visas kvartalet under året 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älja rätt datumfunktion