Funcția DATEDIFF în VBA este o funcție încorporată în VBA, care este, de asemenea, clasificată în funcție de dată și oră în VBA, această funcție este utilizată pentru a obține diferența dintre două date, această funcție ia trei argumente, primul argument este ce parte a diferenței dorim care poate fi zile de an sau luni sau secunde și două date și rezultatul este un număr întreg.
Funcția DATEDIFF în VBA
Funcția DATEDIFF în VBA calculează diferența dintre două date în zile, luni, trimestre și ani.
În Excel, găsirea diferenței dintre două întâlniri are mai multe moduri. Nu aveți nevoie de o formulă specială pentru a calcula diferența dintre două date.
De exemplu, uitați-vă la imaginea de mai jos.
Dacă vrem să calculăm diferența dintre aceste două date, putem pur și simplu scădea data 1 din data 2.
Ne-a dat diferența între două date într-un număr de zile. Aceasta este problema cu această formulă generică. Dacă avem nevoie de diferența în luni, ani, trimestre, etc … nu se poate da.
În acest articol, vă vom arăta cum să utilizați această funcție DateDiff în VBA.
Ce este funcția DATEDIFF în Excel VBA?
DATEDIFF în VBA înseamnă „Diferența datei între două date”.
Această funcție ne poate da numărul intervalului de timp dintre două date. Când vrem să găsim diferența dintre două date, o putem găsi în zile, săptămâni, luni, trimestre, etc …
Pentru a înțelege funcția, uitați-vă la sintaxa de mai jos a funcției.
Interval: nu este altceva decât în ce mod doriți să calculați diferența de dată. Indiferent dacă este vorba de zile, luni, săptămâni, trimestre, etc.… Mai jos este lista aceluiași.
Data 1: Care este prima întâlnire la care doriți să găsiți diferența.
Data 2: Care este a doua dată la care doriți să găsiți diferența față de Data 1. Data 1: Care este prima dată la care doriți să găsiți diferența.
Aici formula este Data 2 - Data 1.
(Prima zi a săptămânii): Care este prima zi a săptămânii? Putem fi de acord cu următoarele argumente.
(Prima săptămână a anului): Care este prima săptămână a anului. Putem introduce următoarele argumente.
Exemple de funcții DATEDIFF în Excel VBA
Următoarele sunt exemple de Excel VBA DateDiff.
Exemplul # 1 - Pentru a găsi diferențe în zile
Să presupunem că aveți două date, „15-01-2018” și „15-01-2019”. Să găsim tot felul de diferențe între aceste două date.
Pasul 1: Creați mai întâi un nume de macro.
Cod:
Sub DateDiff_Example1 () End Sub
Pasul 2: definiți două variabile ca dată.
Cod:
Sub DateDiff_Example1 () Dim Data1 Ca Data Dim Data2 Ca Data End Sub
Pasul 3: Acum, pentru variabila Date1, atribuiți „15-01-2018” și pentru variabila Date2, atribuiți „15-01-2019”.
Cod:
Sub DateDiff_Example1 () Dim Data1 Ca Data Dim Data2 Ca Data Date1 = "15-01-2018" Data2 = "15-01-2019" End Sub
Pasul 4: Acum, pentru a stoca rezultatele, definiți încă o variabilă ca Long.
Cod:
Sub DataDiff_Example1 () Dim Data1 Ca Data Dim Data2 Ca Data Dim Rezultat ca Long Date1 = "15-01-2018" Data2 = "15-01-2019" End Sub
Pasul 5: Acum atribuiți valoarea acestei variabile prin funcția DATEDIFF în VBA
Cod:
Sub DateDiff_Example1 () Dim Data1 Ca Data Dim Data2 Ca Data Dim Rezultat ca Long Date1 = "15-01-2018" Data2 = "15-01-2019" Rezultat = DateDiff (End Sub
Pasul 6: primul argument este ce fel de diferență avem nevoie între aceste două date. Să presupunem că trebuie să găsim numărul de zile, așa că furnizați argumentul ca „D.”
Cod:
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.”
Dacă nu ați găsit calea, mai jos este codul readymade pentru dvs.
Cod:
Subsignment () Dim k As Long For k = 2 To 8 Cells (k, 3) .Value = DateDiff ("M", Cells (k, 1), Cells (k, 2)) Next k End Sub
Puteți rula acest cod manual sau apăsați tasta F5 pentru a vedea rezultatul.
