Die DATEDIFF-Funktion in VBA ist eine in VBA integrierte Funktion, die auch in VBA unter Datums- und Zeitfunktion kategorisiert ist. Diese Funktion wird verwendet, um die Differenz zwischen zwei Daten zu ermitteln. Diese Funktion verwendet drei Argumente. Das erste Argument ist, welcher Teil der Differenz wir wollen Dies können Jahr, Tage, Monate, Sekunden und zwei Daten sein. Das Ergebnis ist eine Ganzzahl.
DATEDIFF-Funktion in VBA
Die DATEDIFF-Funktion in VBA berechnet die Differenz zwischen zwei Daten in Tagen, Monaten, Quartalen und Jahren.
In Excel gibt es viele Möglichkeiten, den Unterschied zwischen zwei Daten zu finden. Sie benötigen keine spezielle Formel, um die Differenz zwischen zwei Daten zu berechnen.
Schauen Sie sich zum Beispiel das folgende Bild an.
Wenn wir die Differenz zwischen diesen beiden Daten berechnen möchten, können wir einfach das Datum 1 vom Datum 2 abziehen.
Es hat uns den Unterschied zwischen zwei Daten in mehreren Tagen gegeben. Dies ist das Problem mit dieser generischen Formel. Wenn wir den Unterschied in Monaten, Jahren, Quartalen usw. brauchen, kann er nicht geben.
In diesem Artikel zeigen wir Ihnen, wie Sie diese DateDiff-Funktion in VBA verwenden.
Was ist die DATEDIFF-Funktion in Excel VBA?
DATEDIFF in VBA steht für " Datumsdifferenz zwischen zwei Daten".
Diese Funktion kann uns die Nummer des Zeitintervalls zwischen zwei Daten geben. Wenn wir den Unterschied zwischen zwei Daten ermitteln möchten, können wir ihn in Tagen, Wochen, Monaten, Quartalen usw. ermitteln.
Um die Funktion zu verstehen, sehen Sie sich die folgende Syntax der Funktion an.
Intervall: Dies ist nichts anderes als die Art und Weise, wie Sie die Datumsdifferenz berechnen möchten. Ob in Tagen, Monaten, Wochen, Quartalen usw.… Nachfolgend finden Sie eine Liste derselben.
Datum 1: Was ist das erste Datum, an dem Sie den Unterschied feststellen möchten?
Datum 2: Was ist das zweite Datum, an dem Sie den Unterschied zu Datum 1 ermitteln möchten? Datum 1: Was ist das erste Datum, an dem Sie den Unterschied ermitteln möchten.
Hier lautet die Formel Datum 2 - Datum 1.
(Erster Wochentag): Was ist der erste Wochentag? Wir können den folgenden Argumenten zustimmen.
(Erste Woche des Jahres): Was ist die erste Woche des Jahres? Wir können die folgenden Argumente eingeben.
Beispiele für die DATEDIFF-Funktion in Excel VBA
Im Folgenden finden Sie Beispiele für Excel VBA DateDiff.
Beispiel 1 - Unterschiede in Tagen finden
Angenommen, Sie haben zwei Daten: "15-01-2018" und "15-01-2019". Lassen Sie uns alle möglichen Unterschiede zwischen diesen beiden Daten finden.
Schritt 1: Erstellen Sie zuerst einen Makronamen.
Code:
Sub DateDiff_Example1 () End Sub
Schritt 2: Definieren Sie zwei Variablen als Datum.
Code:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Schritt 3: Weisen Sie nun für die Variable Date1 „15-01-2018“ und für die Variable Date2 „15-01-2019“ zu.
Code:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Schritt 4: Um die Ergebnisse zu speichern, definieren Sie eine weitere Variable als Long.
Code:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Ergebnis As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Schritt 5: Weisen Sie nun den Wert für diese Variable über die Funktion DATEDIFF in VBA zu
Code:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Ergebnis As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff (End Sub
Schritt 6: Das erste Argument ist, welchen Unterschied wir zwischen diesen beiden Daten benötigen. Nehmen wir an, wir müssen die Anzahl der Tage ermitteln, also geben Sie das Argument als "D" an.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D", End Sub
Step 7: What is the first date to find the difference. Our first date is “15-01-2018” that we have already assigned to the variable “Date1”. So supply the variable name here.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D",Date1, End Sub
Step 8: What is the second date to find the difference. The second date is “15-01-2019,” which holds the value through variable “Date2”.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) End Sub
Step 9: Ignore the last two parameters. Now assign the value of variable “Result” through the VBA message box.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) MsgBox Result End Sub
Now run the code using the F5 key or manually, we will get the difference between these two dates in a number of days.
So, from “15-01-2018” to 15-01-2019,” the exact difference is one year, so we got 365 days as a result.
Like this, we can find the difference between two dates in time intervals.
Example #2 - To Find Difference in Months
Code:
Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("M", Date1, Date2) MsgBox Result End Sub
Run this code Using the F5 key, or you can run manually to show the result as given below.
Example #3 - To Find Difference in Years
Code:
Sub DateDiff_Example3() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("YYYY", Date1, Date2) MsgBox Result End Sub
Run this code using the F5 key or manually to see the result.
Assignment as a Practice
I hope you have understood the function of VBA DATEDIFF. Take a look at the below homework for you. Find the difference between the below dates in “Months.”
Wenn Sie den Weg nicht gefunden haben, finden Sie unten den vorgefertigten Code für Sie.
Code:
Unterzuweisung () Dim k As Long For k = 2 bis 8 Zellen (k, 3) .Value = DateDiff ("M", Zellen (k, 1), Zellen (k, 2)) Next k End Sub
Sie können diesen Code manuell ausführen oder die Taste F5 drücken, um das Ergebnis anzuzeigen.
