DATEDIFF-funktion i VBA er en indbygget funktion i VBA, som også er kategoriseret under dato- og tidsfunktion i VBA, denne funktion bruges til at få forskellen mellem to datoer, denne funktion tager tre argumenter, det første argument er, hvilken del af forskellen vi ønsker som kan være årsdage eller måneder eller sekunder og to datoer, og resultatet er et heltal.
DATEDIFF-funktion i VBA
DATEDIFF-funktionen i VBA beregner forskellen mellem to datoer i dage, måneder, kvartaler og år.
I Excel er det mange måder at finde forskellen mellem to datoer. Du har ikke brug for en særlig formel for at beregne forskellen mellem to datoer.
Se for eksempel på nedenstående billede.
Hvis vi vil beregne forskellen mellem disse to datoer, kan vi simpelthen trække datoen 1 fra dato 2.
Det har givet os forskellen mellem to datoer på et antal dage. Dette er problemet med denne generiske formel. Hvis vi har brug for forskellen i måneder, år, kvartaler osv. … kan den ikke give.
I denne artikel viser vi dig, hvordan du bruger denne DateDiff-funktion i VBA.
Hvad er DATEDIFF-funktionen i Excel VBA?
DATEDIFF i VBA står for "Date Difference between two dates."
Denne funktion kan give os antallet af tidsintervallet mellem to datoer. Når vi vil finde forskellen mellem to datoer, kan vi finde den i dage, uger, måneder, kvartaler osv …
For at forstå funktionen skal du se på nedenstående syntaks for funktionen.
Interval: Dette er intet andet end på hvilken måde du vil beregne datoforskellen. Uanset om det er i dage, måneder, uger, kvartaler osv. … Nedenfor er listen over det samme.
Dato 1: Hvad er den første date, du vil finde forskellen.
Dato 2: Hvad er den anden dato, hvor du vil finde forskellen fra dato 1. Dato 1: Hvad er den første dato, du vil finde forskellen.
Her er formlen Dato 2 - Dato 1.
(Første ugedag): Hvad er den første ugedag? Vi kan være enige i følgende argumenter.
(Årets første uge): Hvad er den første uge i året. Vi kan indtaste følgende argumenter.
Eksempler på DATEDIFF-funktion i Excel VBA
Følgende er eksempler på excel VBA DateDiff.
Eksempel 1 - At finde forskelle i dage
Antag, at du har to datoer, “15-01-2018” og “15-01-2019”. Lad os finde alle mulige forskelle mellem disse to datoer.
Trin 1: Opret først et makronavn.
Kode:
Sub DateDiff_Example1 () Afslut sub
Trin 2: Definer to variabler som dato.
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 Som Date End Sub
Trin 3: Til dato1-variablen tildeles “15-01-2018” og til dato2-variablen, tildeles “15-01-2019”.
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Trin 4: For at gemme resultater skal du definere en variabel mere som Lang.
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 Som Date Dim Resultat Som Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Trin 5: Tildel nu værdien for denne variabel gennem DATEDIFF-funktionen i VBA
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 Som Date Dim Resultat Som Long Date1 = "15-01-2018" Date2 = "15-01-2019" Resultat = DateDiff (End Sub
Trin 6: Det første argument er, hvilken slags forskel vi har brug for mellem disse to datoer. Lad os sige, at vi skal finde antallet af dage, så angiv argumentet som "D."
Kode:
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.”
Hvis du ikke har fundet vejen, er den færdige kode nedenfor.
Kode:
Underopgave () Dim k så længe For k = 2 til 8 celler (k, 3). Værdi = DateDiff ("M", Celler (k, 1), Celler (k, 2)) Næste k Afslut sub
Du kan køre denne kode manuelt eller trykke på F5-tasten for at se resultatet.
