A DATEDIFF függvény a VBA-ban egy beépített függvény a VBA-ban, amelyet a VBA dátum- és időfüggvénye alá is besorolnak, ezt a függvényt használjuk a két dátum közötti különbség megszerzésére, ez a függvény három argumentumot vesz fel, az első érv az, hogy a különbség milyen részét akarjuk amely lehet nap, hónap vagy másodperc és két dátum, és az eredmény egy egész szám.
DATEDIFF Funkció a VBA-ban
A DATEDIFF függvény a VBA-ban két dátum közötti különbséget számítja ki napokban, hónapokban, negyedévekben és években.
Az Excel programban sokféleképpen lehet megtalálni a két dátum közötti különbséget. Nem kell külön képlet a két dátum közötti különbség kiszámításához.
Nézze meg például az alábbi képet.
Ha ki akarjuk számolni a két dátum közötti különbséget, akkor egyszerűen kivonhatjuk az 1. dátumot a 2. dátumból.
Ez megadta számunkra a két dátum közötti különbséget számos nap alatt. Ez a probléma ezzel az általános képlettel. Ha szükségünk van a különbségre hónapokban, években, negyedévekben stb., Akkor az nem adhat meg.
Ebben a cikkben megmutatjuk, hogyan kell használni ezt a DateDiff függvényt a VBA-ban.
Mi a DATEDIFF függvény az Excel VBA-ban?
A DATEDIFF a VBA-ban a „ Dátumkülönbség két dátum között” rövidítést jelenti.
Ez a függvény megadhatja számunkra a két dátum közötti időintervallum számát. Amikor meg akarjuk találni a különbséget két dátum között, megtalálhatjuk napokban, hetekben, hónapokban, negyedekben stb.
A függvény megértéséhez nézze meg a függvény alábbi szintaxisát.
Időköz: Ez nem más, mint hogy miként szeretné kiszámítani a dátumkülönbséget. Legyen szó napokban, hónapokban, hetekben, negyedévekben stb. … Az alábbiakban felsoroljuk az azonosakat.
1. dátum: Mi az az első dátum, amelyen meg akarja találni a különbséget.
2. dátum: Mi a második dátum, amelyen meg akarja találni a különbséget az 1. dátumtól? 1. dátum: Mi az az első dátum, amelyen meg szeretné találni a különbséget.
Itt a képlet a 2. dátum - 1. dátum.
(A hét első napja): Mi a hét első napja? Egyetértünk a következő érvekkel.
(Az év első hete): Mi az év első hete. A következő érveket adhatjuk meg.
Példák a DATEDIFF függvényre az Excel VBA-ban
Az alábbiakban bemutatjuk az Excel VBA DateDiff példáit.
1. példa - Különbségek keresése napokban
Tegyük fel, hogy két dátumod van: „2018-01-15” és „2019-01-15”. Keressünk mindenféle különbséget e két dátum között.
1. lépés: Először hozzon létre egy makrónevet.
Kód:
Sub DateDiff_Example1 () End Sub
2. lépés: Két változó meghatározása dátumként.
Kód:
Sub DateDiff_Példa1 () Dim Date1 As Date Dim Date2 As Date End Sub
3. lépés: Most a Date1 változóhoz rendelje hozzá a „2018-01-15”, a Date2 változóhoz pedig a „2019-01-15” értéket.
Kód:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "2018-01-15" Date2 = "2019-01-15" End Sub
4. lépés: Az eredmények tárolásához adjon meg még egy változót Hosszúként.
Kód:
Sub DateDiff_Example1 () Dim Date1 as Date Dim Date2 As Date Dim eredmény hosszú idő1 = "2018-01-15" Date2 = "2019-01-15" End Sub
5. lépés: Most rendelje hozzá ennek a változónak az értékét a VBA DATEDIFF függvényén keresztül
Kód:
Sub DateDiff_Example1 () Dim Date1 as Date Dim Date2 As Date Dim eredmény Long Date1 = "2018-01-15" Date2 = "2019-01-15" Result = DateDiff (End Sub
6. lépés: Az első érv az, hogy milyen különbségre van szükségünk e két dátum között. Tegyük fel, hogy meg kell találnunk a napok számát, ezért adja meg az argumentumot „D” -ként.
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.”
Ha még nem találta az utat, az alábbiakban olvashatja az elkészített kódot.
Kód:
Kiosztás () Dim k olyan hosszú, mint k = 2 - 8 cella (k, 3). Érték = DateDiff ("M", cellák (k, 1), cellák (k, 2)) Következő k End Sub
Futtathatja ezt a kódot manuálisan, vagy megnyomhatja az F5 billentyűt az eredmény megtekintéséhez.
