Funkce DATEDIFF ve VBA je vestavěná funkce ve VBA, která je také kategorizována pod funkci data a času ve VBA, tato funkce se používá k získání rozdílu mezi dvěma daty, tato funkce má tři argumenty, první argument je, jakou část rozdílu chceme což mohou být rokové dny nebo měsíce nebo sekundy a dvě data a výsledkem je celé číslo.
Funkce DATEDIFF ve VBA
Funkce DATEDIFF ve VBA vypočítá rozdíl mezi dvěma daty ve dnech, měsících, čtvrtletích a letech.
V Excelu má nalezení rozdílu mezi dvěma daty mnoho způsobů. K výpočtu rozdílu mezi dvěma daty nepotřebujete speciální vzorec.
Podívejte se například na obrázek níže.
Pokud chceme vypočítat rozdíl mezi těmito dvěma daty, můžeme jednoduše odečíst datum 1 od data 2.
Dalo nám to rozdíl mezi dvěma daty za několik dní. To je problém tohoto obecného vzorce. Pokud potřebujeme rozdíl v měsících, letech, čtvrtinách atd. … nemůže to dát.
V tomto článku vám ukážeme, jak používat tuto funkci DateDiff ve VBA.
Co je funkce DATEDIFF v aplikaci Excel VBA?
DATEDIFF ve VBA znamená „Rozdíl v datech mezi dvěma daty.“
Tato funkce nám může dát číslo časového intervalu mezi dvěma daty. Když chceme najít rozdíl mezi dvěma daty, můžeme ho najít ve dnech, týdnech, měsících, čtvrtletích atd …
Chcete-li funkci porozumět, podívejte se na níže uvedenou syntaxi funkce.
Interval: Toto nic, ale jakým způsobem chcete vypočítat rozdíl v datech. Ať už je to ve dnech, měsících, týdnech, čtvrtletích atd.… Níže je uveden stejný seznam.
Datum 1: Jaké je první datum, kdy chcete najít rozdíl.
Datum 2: Jaký je druhý den, kdy chcete najít rozdíl od Datum 1. Datum 1: Jaký je první den, který chcete najít rozdíl.
Zde je vzorec Datum 2 - Datum 1.
(První den v týdnu): Jaký je první den v týdnu? Můžeme souhlasit s následujícími argumenty.
(První týden v roce): Jaký je první týden v roce. Můžeme zadat následující argumenty.
Příklady funkce DATEDIFF v aplikaci Excel VBA
Následují příklady aplikace Excel VBA DateDiff.
Příklad č. 1 - Hledání rozdílů ve dnech
Předpokládejme, že máte dvě data, „15-01-2018“ a „15-01-2019“. Najdeme všechny druhy rozdílů mezi těmito dvěma daty.
Krok 1: Nejprve vytvořte název makra.
Kód:
Sub DateDiff_Example1 () End Sub
Krok 2: Definujte dvě proměnné jako datum.
Kód:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Krok 3: Nyní pro proměnnou Date1 přiřaďte „15-01-2018“ a pro proměnnou Date2 přiřaďte „15-01-2019“.
Kód:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Krok 4: Chcete-li uložit výsledky, definujte ještě jednu proměnnou jako Long.
Kód:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Krok 5: Nyní přiřaďte hodnotu této proměnné pomocí funkce DATEDIFF ve VBA
Kód:
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 (End Sub
Krok 6: Prvním argumentem je, jaký rozdíl potřebujeme mezi těmito dvěma daty. Řekněme, že musíme zjistit počet dní, proto zadejte argument jako „D.“
Kód:
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.”
Pokud jste cestu nenašli, níže je pro vás připravený kód.
Kód:
Sub Assignment () Dim k As Long For k = 2 To 8 Cells (k, 3). Value = DateDiff ("M", Cells (k, 1), Cells (k, 2)) Next k End Sub
Tento kód můžete spustit ručně nebo stisknutím klávesy F5 zobrazíte výsledek.
