VBA DateDiff - Primer po korakih za uporabo funkcije DateDiff VBA Excel

Funkcija DATEDIFF v VBA je vgrajena funkcija v VBA, ki je prav tako razvrščena pod funkcijo datuma in časa v VBA; ta funkcija se uporablja za razliko med dvema datumoma, ta funkcija zajema tri argumente. ki so lahko letni dnevi ali meseci ali sekunde in dva datuma, rezultat pa je celo število.

DATEDIFF Funkcija v VBA

Funkcija DATEDIFF v VBA izračuna razliko med dvema datumoma v dnevih, mesecih, četrtletjih in letih.

V Excelu je iskanje razlike med dvema datumoma na več načinov. Za izračun razlike med dvema datumoma ne potrebujete posebne formule.

Na primer, poglejte spodnjo sliko.

Če želimo izračunati razliko med tema datumoma, lahko preprosto odštejemo datum 1 od datuma 2.

Dala nam je razliko med dvema datumoma v številu dni. To je težava te generične formule. Če potrebujemo razliko v mesecih, letih, četrtletjih itd., Ne more dati.

V tem članku vam bomo pokazali, kako uporabljati to funkcijo DateDiff v VBA.

Kaj je funkcija DATEDIFF v Excelu VBA?

DATEDIFF v VBA pomeni "Razlika v datumih med dvema datumoma."

Ta funkcija nam lahko določi število časovnih intervalov med dvema datumoma. Ko želimo ugotoviti razliko med dvema datumoma, jo lahko najdemo v dneh, tednih, mesecih, četrtletjih itd.

Če želite razumeti funkcijo, si oglejte spodnjo sintakso funkcije.

Interval: To ni nič drugega kot na kakšen način želite izračunati datumsko razliko. Ali je v dneh, mesecih, tednih, četrtletjih itd. … Spodaj je seznam istih.

Datum 1: Kateri je prvi datum, ko želite ugotoviti razliko.

Datum 2: Kateri je drugi datum, ko želite najti razliko od datuma 1. Datum 1: Kateri datum prvi želite najti razliko.

Tu je formula datum 2 - datum 1.

(Prvi dan v tednu): Kateri je prvi dan v tednu? Lahko se strinjamo z naslednjimi argumenti.

(Prvi teden v letu): Kateri je prvi teden v letu. Vnesemo lahko naslednje argumente.

Primeri funkcije DATEDIFF v Excelu VBA

Sledijo primeri excela VBA DateDiff.

Primer # 1 - Najti razlike v dnevih

Recimo, da imate dva datuma, "15-01-2018" in "15-01-2019". Poiščimo vse vrste razlik med tema datumoma.

1. korak: Najprej ustvarite ime makra.

Koda:

Sub DateDiff_Example1 () Konec Sub


2. korak: Dve spremenljivki določite kot datum.

Koda:

Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub

3. korak: Zdaj spremenljivki Date1 dodelite »15-01-2018«, spremenljivki Date2 pa »15-01-2019«.

Koda:

Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub

4. korak: Zdaj za shranjevanje rezultatov določite še eno spremenljivko kot Long.

Koda:

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

5. korak: Zdaj dodelite vrednost tej spremenljivki s funkcijo DATEDIFF v VBA

Koda:

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 argument je, kakšno razliko potrebujemo med tema datumoma. Recimo, da moramo najti število dni, zato argument navedite kot »D.«

Koda:

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.”

Če poti niste našli, je spodaj že pripravljena koda za vas.

Koda:

Sub Assignment () Dim k As Long For k = 2 do 8 celic (k, 3) .Value = DateDiff ("M", Celice (k, 1), Celice (k, 2)) Next k End Sub

To kodo lahko zaženete ročno ali pritisnete tipko F5, da vidite rezultat.

Zanimive Članki...