DatePart-Funktion (Visual Basic)

Artikel
09/02/2008

Aktualisiert: November 2007

Gibt einen Wert vom Typ Integer zurück, der eine bestimmte Komponente eines angegebenen Date-Werts enthält.

Public Overloads Function DatePart( _
   ByVal Interval As DateInterval, _
   ByVal DateValue As DateTime, _
   Optional ByVal FirstDayOfWeekValue As FirstDayOfWeek = VbSunday, _
   Optional ByVal FirstWeekOfYearValue As FirstWeekOfYear = VbFirstJan1 _
) As Integer
' -or-
Public Overloads Function DatePart( _
    ByVal Interval As String, _
   ByVal DateValue As Object, _
   Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _
   Optional ByVal WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _
) As Integer

Parameter

Interval
Erforderlich. Wert aus der DateInterval-Enumeration oder String-Ausdruck, der den Teil der Datums- und Uhrzeitangabe darstellt, der zurückgegeben werden soll.
DateValue
Erforderlich. Wert vom Typ Date, der ermittelt werden soll.
FirstDayOfWeekValue, DayOfWeek
Optional. Ein Wert aus der FirstDayOfWeek-Enumeration, der den ersten Tag der Woche angibt. Wird kein bestimmter Wert angegeben, wird FirstDayOfWeek.Sunday verwendet.
FirstWeekOfYearValue, WeekOfYear
Optional. Ein Wert aus der FirstWeekOfYear-Enumeration, der die erste Woche des Jahres angibt. Wird kein bestimmter Wert angegeben, wird FirstWeekOfYear.Jan1 verwendet.

Einstellungen

Das Interval-Argument kann eine der folgenden Einstellungen haben.

Enumerationswert	Zeichenfolge	Zurückzugebender Teil der Datums- und Uhrzeitangabe
DateInterval.Day	d	Tag des Monats (1 bis 31)
DateInterval.DayOfYear	y	Tag des Jahres (1 bis 366)
DateInterval.Hour	h	Stunde
DateInterval.Minute	n	Minute
DateInterval.Month	m	Monat
DateInterval.Quarter	q	Quartal
DateInterval.Second	s	Sekunde
DateInterval.Weekday	w	Tag der Woche (1 bis 7)
DateInterval.WeekOfYear	ww	Woche des Jahres (1 bis 53)
DateInterval.Year	yyyy	Jahr

Das FirstDayOfWeekValue-Argument kann eine der folgenden Einstellungen haben.

Enumerationswert	Wert	Beschreibung
FirstDayOfWeek.System	0	Erster Tag der Woche laut Systemeinstellungen
FirstDayOfWeek.Sunday	1	Sonntag (Standardwert)
FirstDayOfWeek.Monday	2	Montag (entspricht ISO-Norm 8601, Abschnitt 3.17)
FirstDayOfWeek.Tuesday	3	Dienstag
FirstDayOfWeek.Wednesday	4	Mittwoch
FirstDayOfWeek.Thursday	5	Donnerstag
FirstDayOfWeek.Friday	6	Freitag
FirstDayOfWeek.Saturday	7	Samstag

Das FirstWeekOfYearValue-Argument kann eine der folgenden Einstellungen haben.

Enumerationswert	Wert	Beschreibung
FirstWeekOfYear.System	0	Erste Woche des Jahres laut Systemeinstellungen
FirstWeekOfYear.Jan1	1	Die Woche, in der der 1. Januar liegt (Standardwert)
FirstWeekOfYear.FirstFourDays	2	Die erste Woche im neuen Jahr, die mindestens vier Tage hat (entspricht ISO-Norm 8601, Abschnitt 3.17)
FirstWeekOfYear.FirstFullWeek	3	Die erste vollständige Woche im neuen Jahr

Ausnahmen

Ausnahmetyp	Fehlernummer	Bedingung
ArgumentException	5	Interval ist ungültig.
InvalidCastException	13	DateValue kann nicht in Date umgewandelt werden.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die die unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Hinweise

Mit der DatePart-Funktion wird eine Datums- und Uhrzeitangabe ausgewertet und eine bestimmte Komponente zurückgegeben. Sie können mit DatePart beispielsweise den Wochentag oder die aktuelle Stunde berechnen.

Wenn Sie DateInterval.Weekday für das Interval-Argument auswählen, entspricht der zurückgegebene Wert den Werten der FirstDayOfWeek-Enumeration. Wenn Sie DateInterval.WeekOfYear auswählen, verwendet DatePart die Calendar-Klasse und die CultureInfo-Klasse des System.Globalization-Namespace, um die aktuellen Einstellungen zu bestimmen.

Das FirstDayOfWeekValue-Argument beeinflusst Berechnungen, in denen die Einstellungen DateInterval.Weekday und DateInterval.WeekOfYear Interval verwendet werden. Das FirstWeekOfYearValue-Argument beeinflusst Berechnungen, in denen DateInterval.WeekOfYear für Interval angegeben wird.

Da jeder Date-Wert durch eine DateTime-Struktur unterstützt wird, erhalten Sie durch deren Methoden zusätzliche Möglichkeiten zum Abrufen von Datums- und Uhrzeitkomponenten. Sie können z. B. wie folgt den vollständigen Datumswert einer Date-Variablen abrufen, wenn für den Zeitwert Mitternacht festgelegt ist:

Dim CurrDatTim As Date = Now   ' Current date and time.
Dim LastMidnight As Date = CurrDatTim.Date   ' At midnight.

Beispiel

In diesem Beispiel wird ein Datum übernommen und mithilfe der DatePart-Funktion das Quartal des Jahres angezeigt, in dem sich das übergebene Datum befindet.

Dim FirstDate, Msg As String   'Declare variables.
Dim SecondDate As Date
FirstDate = InputBox("Enter a date:")
SecondDate = CDate(FirstDate)
Msg = "Quarter: " & DatePart(DateInterval.Quarter, SecondDate)
MsgBox(Msg)