Funcția VBA DateDiff

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 care pot fi zile de an sau luni sau secunde și două date și rezultatul este un număr întreg.

Table of Contents

Toggle

Sunteți liber să utilizați această imagine pe site-ul dvs. web, șabloane etc., Vă rugăm să ne furnizați un link de atribuireCum să oferiți atribuire?Link către articol de către hyperlink
De exemplu:
Sursă: Funcția VBA DateDiff (wallstreetmojo.com)

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: Acest lucru 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 întâlnire pe care doriți să o găsiți diferența față de Data 1.Data 1: Care este prima întâlnire la care doriți să găsiți diferența.

Aici este formula Data 2 – Data 1.

[First Day of Week]: Care este prima zi a săptămânii? Putem fi de acord cu următoarele argumente.

[First Week Of the Year]: 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 Date1 As Date
   Dim Date2 As Date

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 Date1 As Date
   Dim Date2 As Date

   Date1 = "15-01-2018"
   Date2 = "15-01-2019"

End Sub

Pasul 4: Acum, pentru a stoca rezultatele, definiți încă o variabilă ca Long.

Cod:

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

Pasul 5: Acum atribuiți valoarea acestei variabile prin funcția DATEDIFF în VBA

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(

End Sub

Pasul 6: primul argumentul este ce fel de diferență avem nevoie între aceste două date. Să presupunem că trebuie să găsim numărul de zile, deci 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

Pasul 7: Care este prima întâlnire pentru a găsi diferența. Prima noastră întâlnire este „15-01-2018” pe care am atribuit-o deja variabilei „Data1”. Deci, furnizați numele variabilei aici.

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",Date1,

End Sub

Pasul 8: Care este a doua întâlnire pentru a găsi diferența. A doua dată este „15-01-2019”, care deține valoarea prin variabila „Data2”.

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", Date1, Date2)

End Sub

Pasul 9: Ignorați ultimii doi parametri. Acum atribuiți valoarea variabilei „Rezultat” prin caseta de mesaje VBA.

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", Date1, Date2)

    MsgBox Result

End Sub

Acum rulați codul folosind tasta F5 sau manual, vom obține diferența dintre aceste două date într-un număr de zile.

Deci, de la „15-01-2018” la 15-01-2019, „diferența exactă este de un an, astfel încât am obținut 365 de zile ca urmare.

Astfel, putem găsi diferența dintre două date în intervale de timp.

Exemplul # 2 – Pentru a găsi diferențe în luni

Cod:

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

Rulați acest cod folosind tasta F5 sau puteți rula manual pentru a afișa rezultatul așa cum este prezentat mai jos.

Exemplul # 3 – Pentru a găsi diferența în ani

Cod:

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

Rulați acest cod folosind tasta F5 sau manual pentru a vedea rezultatul.

Alocarea ca practică

Sper că ați înțeles funcția VBA DATEDIFF. Aruncați o privire la temele de mai jos pentru dvs. Găsiți diferența dintre datele de mai jos în „Luni”.

Dacă nu ați găsit calea, mai jos este codul readymade pentru dvs.

Cod:

Sub Assignment()

    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.

Articole recomandate

Acesta a fost un ghid pentru funcția VBA DateDiff. Aici aflăm cum să folosim funcția DateDiff pentru a găsi diferențe în zile, luni și ani în Excel VBA împreună cu exemple practice și un șablon descărcabil. Mai jos puteți găsi câteva articole utile Excel VBA –

• Funcția DATE în Excel
• Format Excel Data
• Funcția de dată în VBA
• DateAdd în VBA
• VBA COUNTA