VBA funkcija DATEDIFF yra įmontuota funkcija VBA, kuri taip pat skirstoma pagal VBA datos ir laiko funkciją. Ši funkcija naudojama norint gauti skirtumą tarp dviejų datų, ši funkcija užima tris argumentus. Pirmasis argumentas yra tai, kokios skirtumo dalies mes norime kurios gali būti metų dienos ar mėnesiai ar sekundės ir dvi datos, o rezultatas yra sveikas skaičius.
DATEDIFF funkcija VBA
VBA funkcija DATEDIFF apskaičiuoja dviejų datų, dienų, mėnesių, ketvirčių ir metų, skirtumą.
„Excel“ programoje yra daug būdų, kaip rasti skirtumą tarp dviejų datų. Norint apskaičiuoti dviejų datų skirtumą, nereikia specialios formulės.
Pavyzdžiui, pažiūrėkite į žemiau esantį vaizdą.
Jei norime apskaičiuoti šių dviejų datų skirtumą, galime tiesiog atimti datą 1 iš 2.
Tai davė mums skirtumą tarp dviejų datų per kelias dienas. Tai yra šios bendros formulės problema. Jei mums reikia skirtumo mėnesiais, metais, ketvirčiais ir kt., Tai negali suteikti.
Šiame straipsnyje mes parodysime, kaip naudoti šią „DateDiff“ funkciją VBA.
Kas yra „DATEDIFF“ funkcija „Excel VBA“?
VBA DATEDIFF reiškia „Datos skirtumas tarp dviejų datų“.
Ši funkcija gali suteikti mums laiko intervalo tarp dviejų datų skaičių. Kai norime rasti skirtumą tarp dviejų datų, galime tai rasti dienomis, savaitėmis, mėnesiais, ketvirčiais ir kt.
Norėdami suprasti funkciją, žiūrėkite žemiau esančią funkcijos sintaksę.
Intervalas: tai ne kas kita, o tai, kaip norite apskaičiuoti dienų skirtumą. Nesvarbu, ar tai dienos, mėnesiai, savaitės, ketvirčiai ir kt. Žemiau pateikiamas tų pačių sąrašas.
1 data: kokia yra pirmoji data, kuria norite rasti skirtumą.
2 data: kokia yra antroji data, kuria norite rasti skirtumą nuo 1 datos. 1 data: kokia yra pirmoji data, kuria norite rasti skirtumą.
Čia formulė yra Data 2 - Data 1.
(Pirmoji savaitės diena): kokia yra pirmoji savaitės diena? Galime sutikti su šiais argumentais.
(Pirmoji metų savaitė): kokia yra pirmoji metų savaitė. Galime įvesti šiuos argumentus.
„Excel VBA“ funkcijos DATEDIFF pavyzdžiai
Toliau pateikiami „Excel VBA DateDiff“ pavyzdžiai.
1 pavyzdys - rasti skirtumus per dienas
Tarkime, kad turite dvi datas: „2018-01-15“ ir „2019-01-15“. Rasime įvairiausių skirtumų tarp šių dviejų datų.
1 veiksmas: pirmiausia sukurkite makrokomandos pavadinimą.
Kodas:
Sub DateDiff_Example1 () End Sub
2 žingsnis: Apibrėžkite du kintamuosius kaip datą.
Kodas:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
3 žingsnis: Dabar kintamajam Date1 priskirkite „2018-01-15“, o Date2 kintamajam - 2019-01-15.
Kodas:
Sub DateDiff_Example1 () Dim Date1 as Date Dim Date2 As Date Date1 = "2018-01-15" Date2 = "2019-01-15" End Sub
4 žingsnis: Dabar, norėdami išsaugoti rezultatus, apibrėžkite dar vieną kintamąjį kaip „Long“.
Kodas:
Sub DateDiff_Example1 () Dim Date1 as Date Dim Date2 As Date Dim Rezultatas As Long Date1 = "2018-01-15" Date2 = "2019-01-15" End Sub
5 žingsnis: Dabar priskirkite šio kintamojo vertę naudodami funkciją DATEDIFF VBA
Kodas:
Sub DateDiff_Example1 () Dim Date1 as Date Dim Date2 As Date Dim Rezultatas As Long Date1 = "2018-01-15" Date2 = "2019-01-15" Rezultatas = DateDiff (End Sub
6 žingsnis: Pirmasis argumentas yra tai, kokio skirtumo mums reikia tarp šių dviejų datų. Tarkime, mums reikia rasti dienų skaičių, todėl argumentą pateikite kaip „D.“
Kodas:
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.”
Jei neradote kelio, žemiau pateikiamas paruoštas kodas.
Kodas:
Pavadinimas () Dim k As Long For k = 2–8 langeliai (k, 3). Vertė = DateDiff („M“, ląstelės (k, 1), ląstelės (k, 2)) Kitas k End Sub
Galite pamatyti šį kodą rankiniu būdu arba paspausti klavišą F5, kad pamatytumėte rezultatą.
