DATEDIFF-funksjon i VBA er en innebygd funksjon i VBA som også er kategorisert under dato- og tidsfunksjon i VBA, denne funksjonen brukes til å få forskjellen mellom to datoer, denne funksjonen tar tre argumenter, det første argumentet er hvilken del av forskjellen vi ønsker som kan være årsdager eller måneder eller sekunder og to datoer, og resultatet er et helt tall.
DATEDIFF-funksjon i VBA
DATEDIFF-funksjonen i VBA beregner forskjellen mellom to datoer i dager, måneder, kvartaler og år.
I excel har det mange måter å finne forskjellen mellom to datoer. Du trenger ikke en spesiell formel for å beregne forskjellen mellom to datoer.
Se for eksempel på bildet nedenfor.
Hvis vi vil beregne forskjellen mellom disse to datoene, kan vi bare trekke datoen 1 fra dato 2.
Det har gitt oss forskjellen mellom to datoer på flere dager. Dette er problemet med denne generiske formelen. Hvis vi trenger forskjellen i måneder, år, kvartaler osv. … kan den ikke gi.
I denne artikkelen vil vi vise deg hvordan du bruker denne DateDiff-funksjonen i VBA.
Hva er DATEDIFF-funksjonen i Excel VBA?
DATEDIFF i VBA står for "Date Difference between two dates."
Denne funksjonen kan gi oss antall tidsintervaller mellom to datoer. Når vi vil finne forskjellen mellom to datoer, kan vi finne den i dager, uker, måneder, kvartaler osv …
For å forstå funksjonen, se på nedenstående syntaks for funksjonen.
Intervall: Dette er ikke annet enn på hvilken måte du vil beregne datoforskjellen. Enten det er i dager, måneder, uker, kvartaler osv. … Nedenfor er listen over det samme.
Dato 1: Hva er den første datoen du vil finne forskjellen.
Dato 2: Hva er den andre datoen du vil finne forskjellen fra Dato 1. Dato 1: Hva er den første datoen du vil finne forskjellen.
Her er formelen Dato 2 - Dato 1.
(Første ukedag): Hva er den første dagen i uken? Vi kan være enige i følgende argumenter.
(Årets første uke ): Hva er den første uken i året. Vi kan legge inn følgende argumenter.
Eksempler på DATEDIFF-funksjon i Excel VBA
Følgende er eksemplene på excel VBA DateDiff.
Eksempel 1 - Å finne forskjeller i dager
Anta at du har to datoer, “15-01-2018” og “15-01-2019”. La oss finne alle slags forskjeller mellom disse to datoene.
Trinn 1: Opprett et makronavn først.
Kode:
Sub DateDiff_Example1 () Slutt Sub
Trinn 2: Definer to variabler som dato.
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 Som Date End Sub
Trinn 3: Nå, for Date1-variabelen, tilordne “15-01-2018” og for Date2-variabelen, tilordne “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
Trinn 4: Nå, for å lagre resultater, definer en variabel til 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
Trinn 5: Tildel nå verdien for denne variabelen gjennom DATEDIFF-funksjonen i VBA
Kode:
Sub DateDiff_Example1 () Dim Date1 Som Date Dim Date2 Som Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff (End Sub
Trinn 6: Det første argumentet er hva slags forskjell vi trenger mellom disse to datoene. La oss si at vi må finne antall dager, så oppgi 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 funnet veien, er den ferdige koden nedenfor for deg.
Kode:
Underoppgave () Dim k så lenge For k = 2 til 8 celler (k, 3). Verdi = DateDiff ("M", celler (k, 1), celler (k, 2)) Neste k Avslut sub
Du kan kjøre denne koden manuelt eller trykke på F5-tasten for å se resultatet.
