VBA: n DATEDIFF-funktio on sisäänrakennettu toiminto VBA: ssa, joka on luokiteltu myös VBA: n päivämäärä- ja aikatoimintojen mukaan. Tätä funktiota käytetään kahden päivämäärän välisen eron saamiseen, tätä funktiota varten on kolme argumenttia, ensimmäinen argumentti on se osa mitä haluamme erosta joka voi olla vuoden päivää tai kuukautta tai sekuntia ja kaksi päivämäärää ja tulos on kokonaisluku.
DATEDIFF Toiminto VBA: ssa
DATEDIFF-funktio VBA: ssa laskee kahden päivämäärän erot päivinä, kuukausina, vuosineljänneksinä ja vuosina.
Excelissä kahden päivämäärän eron löytämisellä on monia tapoja. Kahden päivämäärän välisen eron laskemiseksi ei tarvita erityistä kaavaa.
Katso esimerkiksi alla olevaa kuvaa.
Jos haluamme laskea näiden kahden päivämäärän välisen eron, voimme yksinkertaisesti vähentää päivämäärän 1 päivämäärästä 2.
Se on antanut meille eron kahden päivämäärän välillä useissa päivissä. Tämä on tämän yleisen kaavan ongelma. Jos tarvitsemme eron kuukausina, vuosina, vuosineljänneksinä jne., Se ei voi antaa.
Tässä artikkelissa näytämme, kuinka tätä DateDiff-toimintoa käytetään VBA: ssa.
Mikä on DATEDIFF-funktio Excel VBA: ssa?
VBA: ssa DATEDIFF tarkoittaa "Päivämääräero kahden päivämäärän välillä".
Tämä toiminto voi antaa meille kahden päivämäärän välisen aikavälin määrän. Kun haluamme löytää eron kahden päivämäärän välillä, voimme löytää sen päivinä, viikkoina, kuukausina, vuosineljänneksinä jne.
Ymmärrä funktio tarkastelemalla alla olevaa funktion syntaksia.
Intervalli: Tämä ei ole muuta kuin miten haluat laskea päivämääräero. Onko päivinä, kuukausina, viikkoina, vuosineljänneksinä jne.… Alla on luettelo samoista.
Päivämäärä 1: Mikä on ensimmäinen päivämäärä, jonka haluat löytää eron.
Päivämäärä 2: Mikä on toinen päivämäärä, jonka haluat löytää eron päivämäärästä 1. Päiväys 1: Mikä on ensimmäinen päivämäärä, jonka haluat löytää eron.
Tässä kaava on Päivämäärä 2 - Päivämäärä 1.
(Viikon ensimmäinen päivä): Mikä on viikon ensimmäinen päivä? Voimme hyväksyä seuraavat perustelut.
(Vuoden ensimmäinen viikko): Mikä on vuoden ensimmäinen viikko. Voimme kirjoittaa seuraavat argumentit.
Esimerkkejä DATEDIFF-toiminnosta Excel VBA: ssa
Seuraavassa on esimerkkejä Excel VBA DateDiff -sovelluksesta.
Esimerkki 1 - Erojen löytäminen päivissä
Oletetaan, että sinulla on kaksi päivämäärää, "15-01-2018" ja "15-01-2019". Etsitään kaikenlaisia eroja näiden kahden päivämäärän välillä.
Vaihe 1: Luo ensin makron nimi.
Koodi:
Sub DateDiff_Example1 () End Sub
Vaihe 2: Määritä kaksi muuttujaa päivämääräksi.
Koodi:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Vaihe 3: Määritä nyt Date1-muuttujalle "15-01-2018" ja Date2-muuttujalle "15-01-2019".
Koodi:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Vaihe 4: Tulosten tallentamiseksi määritä nyt yksi muuttuja Pitkäksi.
Koodi:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Vaihe 5: Määritä nyt tämän muuttujan arvo VBA: n DATEDIFF-toiminnon kautta
Koodi:
Sub DateDiff_Example1 () Himmennä päivämäärä1 kuten Päivämäärä Dim Päivämäärä2 Kuten Päivämäärä Himmennä tulos Pitkä päivämäärä1 = "15-01-2018" Päivämäärä2 = "15-01-2019" Tulos = Päivämääräero (Loppu
Vaihe 6: Ensimmäinen argumentti on, millaista eroa tarvitsemme näiden kahden päivämäärän välillä. Oletetaan, että meidän on löydettävä päivien määrä, joten anna argumentti nimellä "D."
Koodi:
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.”
Jos et ole löytänyt tietä, alla on valmiin koodi sinulle.
Koodi:
Aliosoitus () Dim k niin kauan kuin k = 2 - 8 solua (k, 3). Arvo = DateDiff ("M", solut (k, 1), solut (k, 2)) Seuraava k End Sub
Voit suorittaa tämän koodin manuaalisesti tai painamalla F5-näppäintä nähdäksesi tuloksen.
