✅ VBA-Datumsfunktionen

Inhaltsverzeichnis

In diesem Tutorial werden wir die verschiedenen integrierten VBA-Datumsfunktionen durchgehen.

VBA-Datumsfunktion

Sie können die Datumsfunktion verwenden, um das aktuelle Datum zurückzugeben.

Die Syntax der Date-Funktion ist Date(). Es hat keine Argumente.

Der folgende Code zeigt Ihnen, wie Sie die Datumsfunktion verwenden:

12345678

Unter UsingTheDateFunction()Das Datum als Datum dimmendasDatum = Datum()Debug.Print theDateEnd Sub

Das Ergebnis ist:

VBA Now-Funktion

Sie können die Now-Funktion verwenden, um das aktuelle Datum und die aktuelle Uhrzeit zurückzugeben.

Die Syntax der Now-Funktion ist Now(). Es hat keine Argumente.

Der folgende Code zeigt Ihnen, wie Sie die Now-Funktion verwenden:

12345678

Unter UsingTheNowFunction()Das Datum als Datum dimmendasDatum = Jetzt()Debug.Print theDateEnd Sub

Das Ergebnis ist:

VBA-Zeitfunktion

Sie können die Zeitfunktion verwenden, um die aktuelle Uhrzeit zurückzugeben.

Die Syntax der Zeitfunktion ist Time(). Es hat keine Argumente.

Der folgende Code zeigt Ihnen, wie Sie die Zeitfunktion verwenden:

12345678

Unter UsingTheTimeFunction()Dimmen Sie die Zeit als DatumtheTime = Time()Debug.Print theTimeEnd Sub

Das Ergebnis ist:

VBA DateAdd-Funktion

Sie können die DateAdd-Funktion verwenden, um einem Datum oder einer Uhrzeit ein Datums-/Uhrzeitintervall hinzuzufügen, und die Funktion gibt das resultierende Datum/die resultierende Uhrzeit zurück.

Die Syntax der DateAdd-Funktion lautet:

DateAdd(Intervall, Zahl, Datum) wobei:

Intervall - Eine Zeichenfolge, die den zu verwendenden Intervalltyp angibt. Das Intervall kann einer der folgenden Werte sein:

"d" - Tag
"ww" - Woche
„w“ - Wochentag
„m“ - Monat
„q“ - Viertel
"yyyy" - Jahr
„y“ – Tag des Jahres
"h" - Stunde
„n“ - Minute
„s“ - Sekunde

Anzahl - Die Anzahl der Intervalle, die Sie dem ursprünglichen Datum/der ursprünglichen Uhrzeit hinzufügen möchten.
Datum - Das ursprüngliche Datum/die ursprüngliche Uhrzeit.

Hinweis: Wenn Sie Datumsangaben in Ihrem Code verwenden, müssen Sie sie mit # oder Anführungszeichen umgeben.

Der folgende Code zeigt, wie die DateAdd-Funktion verwendet wird:

123456789

Unter UsingTheDateAddFunction()Späteres Datum als Datum dimmenlaterDate = DateAdd("m", 10, "11/12/2019")Debug.Print laterDateEnd Sub

Das Ergebnis ist:

VBA DateDiff-Funktion

Sie können die DateDiff-Funktion verwenden, um die Differenz zwischen zwei Datumsangaben basierend auf einem bestimmten Zeitintervall zu ermitteln.

Die Syntax der DateDiff-Funktion lautet:

DateDiff(Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) wobei:

Intervall - Eine Zeichenfolge, die den zu verwendenden Intervalltyp angibt. Das Intervall kann einer der folgenden Werte sein:

"d" - Tag
"ww" - Woche
„w“ - Wochentag
„m“ - Monat
„q“ - Viertel
"yyyy" - Jahr
„y“ – Tag des Jahres
"h" - Stunde
„n“ - Minute
„s“ - Sekunde

Date1 - Ein Datumswert, der das frühere Datum darstellt.
Date2 - Ein Datumswert, der das spätere Datum darstellt.
Erster Tag der Woche (Optional) – Eine Konstante, die den Wochentag angibt, den die Funktion als ersten Tag der Woche verwenden soll. Wenn leer ist, wird Sonntag als erster Tag der Woche verwendet. Firstdayofweek kann einer der folgenden Werte sein:

-vbSunday - verwendet Sonntag als ersten Tag der Woche.
-vbMonday - verwendet Montag als ersten Tag der Woche.
-vbTuesday - verwendet Dienstag als ersten Tag der Woche.
-vbWednesday - verwendet Mittwoch als ersten Tag der Woche.
-vbThursday - verwendet Donnerstag als ersten Tag der Woche.
-vbFriday - verwendet Freitag als ersten Tag der Woche.
-vbSaturday - verwendet Samstag als ersten Tag der Woche.
-vbUseSystemDayOfTheWeek - verwendet den ersten Tag der Woche, der in den Einstellungen Ihres Systems angegeben ist.

ErsteWochedesJahres (Optional) - Eine Konstante, die die erste Woche des Jahres angibt. Wenn leer, wird die 1. Januar-Woche als erste Woche des Jahres verwendet. Firstweekofyear kann einer der folgenden Werte sein:

-vbFirstJan1 - verwendet die Woche mit dem 1. Januar.
-vbFirstFourDays - verwendet die erste Woche, die mindestens vier Tage im neuen Jahr enthält.
-vbFirstFullWeek - verwendet die erste volle Woche des Jahres.
-vbSystem - verwendet die erste Woche des Jahres, wie in Ihren Systemeinstellungen angegeben.

Der folgende Code zeigt Ihnen, wie Sie die DateDiff-Funktion verwenden:

123456789

Unter UsingTheDateDiffFunction()Dim theDifferenceBetweenTwoDates As LongtheDifferenceBetweenTwoDates = DateDiff("q", "11.11.2010", "10/12/2012")Debug.Print theDifferenceBetweenTwoDatesEnd Sub

Das Ergebnis ist:

VBA DatePart-Funktion

Sie können die DatePart-Funktion verwenden, um einen Teil (Tag, Woche, Quartal, Monat usw.) eines bestimmten Datums zurückzugeben.

Die Syntax der DatePart-Funktion lautet:

DatePart(Intervall, Date,[Firstdayofweek], [Firstweekofyear]) wobei:

Intervall - Eine Zeichenfolge, die den Teil des Datums angibt, der zurückgegeben werden soll. Das Intervall kann einer der folgenden Werte sein:

"d" - Tag
"ww" - Woche
„w“ - Wochentag
„m“ - Monat
„q“ - Viertel
"yyyy" - Jahr
„y“ – Tag des Jahres
„h“ - Stunde
„n“ - Minute
„s“ - Sekunde

Datum - Das Datum, von dem die Funktion einen Teil zurückgeben soll.
Erster Tag der Woche (Optional) – Eine Konstante, die den Wochentag angibt, den die Funktion als ersten Tag der Woche verwenden soll. Wenn leer ist, wird Sonntag als erster Tag der Woche verwendet. Firstdayofweek kann einer der folgenden Werte sein:

ErsteWochedesJahres (Optional) - Eine Konstante, die die erste Woche des Jahres angibt. Wenn leer, wird die 1. Januar-Woche als erste Woche des Jahres verwendet. Firstweekofyear kann einer der folgenden Werte sein:

Der folgende Code zeigt Ihnen, wie Sie die DatePart-Funktion verwenden:

123456789

Unter UsingTheDatePartFunction()Dim thePartOfTheDate als IntegerthePartOfTheDate = DatePart("yyyy", "12/12/2009")Debug.Print thePartOfTheDateEnd Sub

Das Ergebnis ist:

VBA DateSerial-Funktion

Die VBA DateSerial-Funktion nimmt eine Eingabe von Jahr, Monat und Tag und gibt ein Datum zurück.

Die Syntax der DateSerial-Funktion lautet:

DateSerial(Jahr, Monat, Tag) wobei:

Jahr – Ein ganzzahliger Wert zwischen 100 und 9999, der das Jahr darstellt.
Monat – Ein ganzzahliger Wert, der den Monat darstellt.
Day - Ein ganzzahliger Wert, der den Tag darstellt.

Der folgende Code zeigt Ihnen, wie Sie die DateSerial-Funktion verwenden:

123456789

Unter UsingTheDateSerialFunction()Das Datum als Datum dimmentheDate = DateSerial(2010, 11, 10)Debug.Print theDateEnd Sub

Das Ergebnis ist:

VBA DateValue-Funktion

Die DateValue-Funktion gibt ein Datum zurück, wenn eine Zeichenfolgendarstellung eines Datums angegeben wird.

Die Syntax der DateValue-Funktion lautet:

DateValue(Datum) wobei:

Date - Ein String, der das Datum darstellt.

Der folgende Code zeigt Ihnen, wie Sie die DateValue-Funktion verwenden:

123456789

Unter UsingTheDateValueFunction()Das Datum als Datum dimmentheDate = DateValue("29. Oktober 2010")Debug.Print theDateEnd Sub

Das Ergebnis ist:

VBA-Tagesfunktion

Sie können die Day-Funktion verwenden, um den Tag eines Eingabedatums zurückzugeben.

Die Syntax der Day-Funktion lautet:

Tag(Datumswert) wobei:

Date_value - Das Datum, aus dem Sie den Tag extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die Day-Funktion verwenden:

123456789

Unter UsingTheDayFunction()Dim theDay als IntegertheDay = Day("10/12/2010")Debug.Print theDayEnd Sub

Das Ergebnis ist:

VBA-Stundenfunktion

Mit der Stundenfunktion können Sie die Stunde einer eingegebenen Uhrzeit zurückgeben.

Die Syntax der Stundenfunktion lautet:

Stunde(Zeit) wo:

Uhrzeit - Die Uhrzeit, aus der Sie die Stunde extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die Stundenfunktion verwenden:

123456789

Unter UsingTheHourFunction()Dim theHour als IntegertheHour = Hour("2:14:17 AM")Debug.Print theHourEnd Sub

Das Ergebnis ist:

VBA-Minutenfunktion

Sie können die Minutenfunktion verwenden, um den Minutenwert einer Eingabezeit zurückzugeben.

Die Syntax der Minutenfunktion lautet:

Minute (Zeit) wo:

Zeit - Die Zeit, aus der Sie den Minutenwert extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die Minutenfunktion verwenden:

123456789

Sub UsingTheMinuteFunction()Dim theMinuteValue As IntegertheMinuteValue = Minute("2:14:17 AM")Debug.Print theMinuteValueEnd Sub

Das Ergebnis ist:

Zweite VBA-Funktion

Sie können die Second Function verwenden, um den zweiten Wert einer Eingabezeit zurückzugeben.

Die Syntax der zweiten Funktion lautet:

Sekunde(Zeit) wo:

Zeit - Die Zeit, aus der Sie den zweiten Wert extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die zweite Funktion verwenden:

123456789

Unter UsingTheSecondFunction()Dim theSecondValue As IntegertheSecondValue = Second("2:14:17 AM")Debug.Print theSecondValueEnd Sub

Das Ergebnis ist:

VBA-Monatsfunktion

Sie können die Monatsfunktion verwenden, um den Monat eines Eingabedatums zurückzugeben.

Die Syntax der Monatsfunktion lautet:

Monat(Datumswert) wobei:

Date_value - Das Datum, aus dem Sie den Monat extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die Monatsfunktion verwenden:

12345678

Unter UsingTheMonthFunction()Dim theMonth As IntegertheMonth = Monat("18.11.2010")Debug.Print theMonthEnd Sub

Das Ergebnis ist:

VBA MonthName-Funktion

Sie können die MonthName-Funktion verwenden, um den Namen eines Monats aus einer eingegebenen Monatsnummer zurückzugeben.

Die Syntax der MonthName-Funktion lautet:

MonthName(Number_of_month, [Abkürzung]) wobei:

Number_of_month - Ein ganzzahliger Wert zwischen 1 und 12.
Kürzen (Optional) - Gibt an, ob der Monatsname abgekürzt werden soll. Wenn leer, wird der Standardwert False verwendet.

12345678

Unter UsingTheMonthNameFunction()Dim theMonthName As StringtheMonthName = MonthName(12, True)Debug.Print theMonthNameEnd Sub

Das Ergebnis ist:

VBA TimeSerial-Funktion

Die TimeSerial-Funktion nimmt eine Stunde, Minute und Sekunde eingegeben und gibt eine Zeit zurück.

Die Syntax der TimeSerial-Funktion lautet:

TimeSerial(Stunde, Minute, Sekunde) wobei:

Stunde – Ein ganzzahliger Wert zwischen 0 und 23, der den Stundenwert darstellt.
Minute – Ein ganzzahliger Wert zwischen 0 und 59, der den Minutenwert darstellt.
Second – Ein ganzzahliger Wert zwischen 0 und 59, der den zweiten Wert darstellt.

Der folgende Code zeigt Ihnen, wie Sie die TimeSerial-Funktion verwenden:

12345678

Sub UsingTheTimeSerialFunction()Dimmen Sie die Zeit als DatumtheTime = TimeSerial(1, 10, 15)Debug.Print theTimeEnd Sub

Das Ergebnis ist:

VBA TimeValue-Funktion

Die TimeValue-Funktion gibt eine Time aus einer Zeichenfolgendarstellung eines Datums oder einer Uhrzeit zurück.

Die Syntax der TimeValue-Funktion lautet:

TimeValue(Time) wobei:

Zeit - Ein String, der die Zeit darstellt.

Der folgende Code zeigt Ihnen, wie Sie die TimeValue-Funktion verwenden:

12345678

Unter UsingTheTimeValueFunction()Dimmen Sie die Zeit als DatumtheTime = TimeValue("22:10:17")Debug.Print theTimeEnd Sub

Das Ergebnis ist:

VBA-Wochentagsfunktion

Sie können die Wochentagfunktion verwenden, um eine ganze Zahl von 1 bis 7 zurückzugeben, die einen Wochentag aus einem Eingabedatum darstellt.

Die Syntax der Wochentagfunktion lautet:

Wochentag(Datum, [Erster Tag der Woche]) wobei:

Datum - Das Datum, aus dem Sie den Wochentagwert extrahieren möchten.
Erster Tag der Woche (Optional) – Eine Konstante, die den Wochentag angibt, den die Funktion als ersten Tag der Woche verwenden soll. Wenn leer ist, wird Sonntag als erster Tag der Woche verwendet. Firstdayofweek kann einer der folgenden Werte sein:

Der folgende Code zeigt Ihnen, wie Sie die Wochentagfunktion verwenden:

1234567

Unter UsingTheWeekdayFunction()Dim theWeekDay als IntegertheWeekDay = Wochentag("20.11.2019")Debug.Print theWeekDayEnd Sub

Das Ergebnis ist:

VBA WeekdayName-Funktion

Sie können die WeekdayName-Funktion verwenden, um den Namen eines Wochentags aus einer eingegebenen Wochentagnummer zurückzugeben.

Die Syntax der WeekdayName-Funktion lautet:

WochentagName(Wochentag, [Abkürzung], [Erster Tag der Woche]) wobei:

Wochentag – Ein ganzzahliger Wert zwischen 1 und 7.
Kürzen (Optional) -Gibt an, ob der Wochentagsname abgekürzt werden soll. Wenn leer, wird der Standardwert False verwendet.
Erster Tag der Woche (Optional) – Eine Konstante, die den Wochentag angibt, den die Funktion als ersten Tag der Woche verwenden soll. Wenn leer ist, wird Sonntag als erster Tag der Woche verwendet. Firstdayofweek kann einer der folgenden Werte sein:

12345678

Unter UsingTheWeekdayNameFunction()Dim theWeekdayName As StringtheWeekdayName = WeekdayName(4)Debug.Print theWeekdayNameEnd Sub

Das Ergebnis ist:

VBA-Jahresfunktion

Sie können die Year-Funktion verwenden, um das Jahr eines Eingabedatums zurückzugeben.

Die Syntax der Jahresfunktion lautet:

Jahr(Datumswert) wobei:

Date_value - Das Datum, aus dem Sie das Jahr extrahieren möchten.

Der folgende Code zeigt Ihnen, wie Sie die Jahresfunktion verwenden:

12345678

Unter UsingTheYearFunction()Dimmen Sie das Jahr als ganze ZahldasJahr = Jahr("11/12/2010")Debug.Print theYearEnd Sub

Das Ergebnis ist:

Vergleich von Daten in VBA

Sie können Datumsangaben mit den Operatoren >, < und = in VBA vergleichen. Der folgende Code zeigt Ihnen, wie Sie zwei Datumsangaben in VBA vergleichen.

12345678910111213141516171819

Unter Vergleichsdaten()Dim dateOne As DateDim dateTwo As DatedateOne = "10.10.2010"dateTwo = "11.11.2010"Wenn dateOne > dateTwo ThenDebug.Print "dateOne ist das spätere Datum"ElseIf dateOne = dateTwo ThenDebug.Print "Die beiden Daten sind gleich"AndersDebug.Print "dateTwo ist das spätere Datum"Ende WennEnd Sub