Funkcia DATEDIFF vo VBA je zabudovaná funkcia vo VBA, ktorá je tiež kategorizovaná pod funkciu dátumu a času vo VBA, táto funkcia slúži na získanie rozdielu medzi dvoma dátumami, táto funkcia má tri argumenty, prvým argumentom je, akú časť rozdielu chceme čo môžu byť rokové dni alebo mesiace alebo sekundy a dva dátumy a výsledkom je celé číslo.
Funkcia DATEDIFF vo VBA
Funkcia DATEDIFF vo VBA počíta rozdiel medzi dvoma dátumami v dňoch, mesiacoch, štvrťrokoch a rokoch.
Nájdenie rozdielu medzi dvoma dátumami v programe Excel má veľa spôsobov. Na výpočet rozdielu medzi dvoma dátumami nepotrebujete špeciálny vzorec.
Napríklad sa pozrite na obrázok nižšie.
Ak chceme vypočítať rozdiel medzi týmito dvoma dátumami, môžeme dátum 1 jednoducho odčítať od dátumu 2.
Dalo nám to rozdiel medzi dvoma dátumami za niekoľko dní. Toto je problém tohto všeobecného vzorca. Ak potrebujeme rozdiel v mesiacoch, rokoch, štvrtiach atď. … nemôže to dať.
V tomto článku si ukážeme, ako používať túto funkciu DateDiff vo VBA.
Čo je funkcia DATEDIFF v programe Excel VBA?
DATEDIFF vo VBA znamená „Rozdiel dátumu medzi dvoma dátumami.“
Táto funkcia nám môže dať číslo časového intervalu medzi dvoma dátumami. Keď chceme nájsť rozdiel medzi dvoma dátumami, nájdeme ho v dňoch, týždňoch, mesiacoch, štvrtiach atď …
Ak chcete funkcii porozumieť, pozrite sa na nižšie uvedenú syntax funkcie.
Interval: Toto nie je nič iné, iba to, ako chcete vypočítať rozdiel dátumov. Či už je to v dňoch, mesiacoch, týždňoch, štvrtiach atď. … Nižšie je uvedený zoznam tých istých.
Dátum 1: Aký je prvý deň, v ktorom chcete nájsť rozdiel.
Dátum 2: Aký je druhý dátum, kedy chcete zistiť rozdiel od dátumu 1. Dátum 1: Aký je prvý dátum, keď chcete nájsť rozdiel.
Tu je vzorec Dátum 2 - Dátum 1.
(Prvý deň v týždni): Aký je prvý deň v týždni? Môžeme súhlasiť s nasledujúcimi argumentmi.
(Prvý týždeň v roku): Aký je prvý týždeň v roku. Môžeme zadať nasledujúce argumenty.
Príklady funkcie DATEDIFF v programe Excel VBA
Nasledujú príklady programu Excel VBA DateDiff.
Príklad č. 1 - Vyhľadanie rozdielov v dňoch
Predpokladajme, že máte dva dátumy: 15. 01. 2018 a 15. 01. 2019. Poďme nájsť všetky druhy rozdielov medzi týmito dvoma dátumami.
Krok 1: Najskôr vytvorte názov makra.
Kód:
Sub DateDiff_Example1 () End Sub
Krok 2: Definujte dve premenné ako dátum.
Kód:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Krok 3: Teraz k premennej Date1 priraďte „15-01-2018“ a k premennej Date2 priraď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: Teraz, ak chcete uložiť výsledky, definujte ešte jednu premennú ako 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: Teraz priraďte hodnotu tejto premennej pomocou funkcie DATEDIFF vo 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: Prvý argument je, aký rozdiel potrebujeme medzi týmito dvoma dátumami. Povedzme, že musíme zistiť počet dní, preto zadajte argument „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.”
Ak ste nenašli cestu, nižšie je pripravený kód pre vás.
Kód:
Sub priradenie () Dim k As Long For k = 2 až 8 buniek (k, 3). Hodnota = DateDiff ("M", bunky (k, 1), bunky (k, 2)) Ďalej k Koniec Sub
Tento kód môžete spustiť manuálne alebo môžete zobraziť výsledok stlačením klávesu F5.
