VBA funkcija DATEDIFF ir iebūvēta funkcija VBA, kas arī tiek klasificēta pēc datuma un laika funkcijas VBA, šo funkciju izmanto, lai iegūtu starpību starp diviem datumiem, šai funkcijai ir trīs argumenti, pirmais arguments ir tā, kādu starpības daļu mēs vēlamies kas var būt gada dienas vai mēneši vai sekundes un divi datumi, un rezultāts ir vesels skaitlis.
DATEDIFF Funkcija VBA
Funkcija DATEDIFF VBA aprēķina starpību starp diviem datumiem dienās, mēnešos, ceturkšņos un gados.
Programmā Excel ir daudz veidu, kā atrast atšķirību starp diviem datumiem. Lai aprēķinātu starpību starp diviem datumiem, jums nav nepieciešama īpaša formula.
Piemēram, apskatiet zemāk redzamo attēlu.
Ja mēs vēlamies aprēķināt starpību starp šiem diviem datumiem, mēs varam vienkārši atņemt 1. datumu no 2. datuma.
Tas mums ir devis atšķirību starp diviem datumiem vairākās dienās. Šī ir šīs vispārīgās formulas problēma. Ja mums ir vajadzīga atšķirība mēnešos, gados, ceturkšņos utt. … tā nevar dot.
Šajā rakstā mēs parādīsim, kā izmantot šo DateDiff funkciju VBA.
Kas ir funkcija DATEDIFF programmā Excel VBA?
VBA datums DATEDIFF nozīmē “Datumu atšķirība starp diviem datumiem”.
Šī funkcija var dot mums laika intervāla numuru starp diviem datumiem. Kad mēs vēlamies atrast atšķirību starp diviem datumiem, mēs to varam atrast dienās, nedēļās, mēnešos, ceturkšņos utt.
Lai saprastu funkciju, aplūkojiet zemāk redzamo funkcijas sintaksi.
Intervāls: tas nekas, bet kā jūs vēlaties aprēķināt datumu starpību. Vai tas notiek pēc dienām, mēnešiem, nedēļām, ceturkšņiem utt. Zemāk ir to pašu saraksts.
1. datums: kāds ir pirmais datums, kurā vēlaties atrast atšķirību.
2. datums: kāds ir otrais datums, kurā vēlaties atrast atšķirību no 1. datuma. 1. datums: kāds ir pirmais datums, kurā vēlaties atrast atšķirību.
Šeit formula ir 2. datums - 1. datums.
(Nedēļas pirmā diena): Kāda ir nedēļas pirmā diena? Mēs varam piekrist šādiem argumentiem.
(Gada pirmā nedēļa): Kāda ir gada pirmā nedēļa. Mēs varam ievadīt šādus argumentus.
Funkcijas DATEDIFF piemēri programmā Excel VBA
Šie ir Excel VBA DateDiff piemēri.
1. piemērs - lai atrastu atšķirības dienās
Pieņemsim, ka jums ir divi datumi: “15-01-2018” un “15-01-2019”. Atradīsim visu veidu atšķirības starp šiem diviem datumiem.
1. darbība: vispirms izveidojiet makro nosaukumu.
Kods:
Sub DateDiff_Example1 () Beigas Sub
2. darbība: definējiet divus mainīgos kā datumu.
Kods:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
3. solis: Tagad mainīgajam Date1 piešķiriet “15-01-2018” un mainīgajam Date2 - “15-01-2019”.
Kods:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
4. solis: Tagad, lai saglabātu rezultātus, definējiet vēl vienu mainīgo kā Long.
Kods:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Rezultāts As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
5. solis: Tagad piešķiriet šī mainīgā vērtību, izmantojot VBA funkciju DATEDIFF
Kods:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Rezultāts As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Rezultāts = DateDiff (End Sub
6. solis: pirmais arguments ir tas, kāda veida atšķirība mums ir nepieciešama starp šiem diviem datumiem. Pieņemsim, ka mums jāatrod dienu skaits, tāpēc norādiet argumentu kā “D.”
Kods:
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.”
Ja neesat atradis ceļu, zemāk ir jums gatavais kods.
Kods:
Apakšpiešķiršana () Dim k tik ilgi, kamēr k = 2 līdz 8 šūnas (k, 3). Vērtība = DateDiff ("M", šūnas (k, 1), šūnas (k, 2)) Nākamā k Beigas Sub
Jūs varat palaist šo kodu manuāli vai nospiest taustiņu F5, lai redzētu rezultātu.
