DATEDIFF funkcija u VBA je ugrađena funkcija u VBA koja je također kategorizirana pod funkcijom datuma i vremena u VBA, ova funkcija se koristi za dobivanje razlike između dva datuma, ova funkcija uzima tri argumenta prvi argument je koji dio razlike želimo što mogu biti dani godine ili mjeseci ili sekunde i dva datuma, a rezultat je cijeli broj.
DATEDIFF funkcija u VBA
DATEDIFF Funkcija u VBA izračunava razliku između dva datuma u danima, mjesecima, tromjesečjima i godinama.
U Excelu pronalaženje razlike između dva datuma ima mnogo načina. Ne treba vam posebna formula za izračunavanje razlike između dva datuma.
Na primjer, pogledajte donju sliku.
Ako želimo izračunati razliku između ova dva datuma, možemo jednostavno oduzeti datum 1 od datuma 2.
Dao nam je razliku između dva datuma u određenom broju dana. To je problem ove generičke formule. Ako nam treba razlika u mjesecima, godinama, tromjesečjima itd. … ne može dati.
U ovom ćemo vam članku pokazati kako koristiti ovu funkciju DateDiff u VBA.
Što je funkcija DATEDIFF u programu Excel VBA?
DATEDIFF u VBA znači "Razlika u datumima između dva datuma."
Ova funkcija može nam dati broj vremenskog intervala između dva datuma. Kad želimo pronaći razliku između dva datuma, možemo je pronaći u danima, tjednima, mjesecima, tromjesečjima itd …
Da biste razumjeli funkciju, pogledajte donju sintaksu funkcije.
Interval: To je ništa drugo doli na koji način želite izračunati datumsku razliku. Bilo da je u danima, mjesecima, tjednima, tromjesečjima itd. … Ispod je popis istih.
Datum 1: Koji je prvi datum na kojem želite pronaći razliku.
Datum 2: Koji je drugi datum kada želite pronaći razliku u odnosu na Datum 1. Datum 1: Koji je prvi datum kada želite pronaći razliku.
Ovdje je formula Datum 2 - Datum 1.
(Prvi dan u tjednu): Koji je prvi dan u tjednu? Možemo se složiti sa sljedećim argumentima.
(Prvi tjedan u godini): Koji je prvi tjedan u godini. Možemo unijeti sljedeće argumente.
Primjeri funkcije DATEDIFF u programu Excel VBA
Slijede primjeri excela VBA DateDiff.
Primjer # 1 - Pronaći razlike u danima
Pretpostavimo da imate dva datuma, "15-01-2018" i "15-01-2019". Pronađimo sve vrste razlika između ova dva datuma.
Korak 1: Prvo stvorite ime makronaredbe.
Kodirati:
Sub DateDiff_Example1 () Kraj Sub
Korak 2: Definirajte dvije varijable kao datum.
Kodirati:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Korak 3: Sada za varijablu Date1 dodijelite “15-01-2018”, a za varijablu Date2 dodijelite “15-01-2019”.
Kodirati:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Korak 4: Sada, za pohranu rezultata, definirajte još jednu varijablu kao Long.
Kodirati:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Korak 5: Sada dodijelite vrijednost za ovu varijablu putem funkcije DATEDIFF u VBA
Kodirati:
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 (End Sub
6. korak: Prvi je argument kakva nam je razlika potrebna između ova dva datuma. Recimo da moramo pronaći broj dana, pa navedite argument kao "D."
Kodirati:
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.”
Ako niste pronašli put, dolje je gotov kod za vas.
Kodirati:
Pododjeljivanje () Dim k Koliko dugo traje k = 2 do 8 ćelija (k, 3) .Vrijednost = DateDiff ("M", ćelije (k, 1), ćelije (k, 2)) Sljedeće k Završi pod
Ovaj kôd možete pokrenuti ručno ili pritisnuti tipku F5 da biste vidjeli rezultat.
