DateDiff funkcija u Excelu VBA

VBA Datediff funkcija pruža razliku između dva navedena intervala. Ovdje se interval može navesti kao sati / mjeseci / dana… itd. Kako je odredio korisnik. To je ugrađena funkcija u Excelu i kategorizirana je kao funkcija " Datum / Vrijeme ". Može se koristiti kao " VBA " funkcija u Excelu.

Sintaksa :

Parametar ili argumenti koji se koriste u funkciji DateDiff.

1. Interval:

  • Obavezno je.
  • Vrsta: - Izraz vrste niza.
  • Izračunava razliku između dva datuma.
Podešavanje (interval) Opis / Obrazloženje
„S” sekunde
„N” minuta
„H” Sati
„D” dana
„W” radni dan
„M” mjeseci
„Ww” Tjedan
„Y” Dan u godini
„Q” Četvrtina
„Gggg” Godina

2. Datum1:

  • Obavezno je.
  • Vrsta: - Datum.
  • Predstavlja datum / vrijeme početka za izračun datumifa.

3. Datum2:

  • Obavezno je.
  • Vrsta: - Datum.
  • Predstavlja krajnji datum / vrijeme za izračun datumifa.

4. Prvi dan u tjednu:

  • To nije obavezno.
  • Vrsta: - numerička ili tekstna.
  • Određuje dan koji se koristi kao prvi dan u tjednu.
  • Ako se ovaj argument ili parametar propusti, on pretpostavlja nedjelju (VbSunday) kao prvi dan u tjednu.

5. Prvi tjedan u godini

  • To nije obavezno.
  • Vrsta: - numerička ili tekstna.
  • Određuje dan koji se koristi kao prvi tjedan u godini.
  • Ako se ovaj argument ili parametar propusti, on pretpostavlja 1. siječnja (vbFirstJan1) kao prvi tjedan u godini.

Kako omogućiti Excel karticu u Excelu?

Kartica za programere obavezna je na Excel vrpci za pokretanje i pisanje makronaredbe VBA. Ispod su sljedeći koraci za omogućavanje kartice programerima u excelu VBA:

Korak 1: Idite na karticu izbornika Datoteka .

Korak 2: U izborniku File kliknite na opcije koje se nalaze na posljednjoj listi dostupnih opcija na popisu.

Korak 3: Kliknite na Prilagodi vrpcu za pristup opcijama prilagodbe vrpce.

4. korak: Ovdje u opcijama za prilagodbu možete vidjeti opciju za razvojne programere . Označite ga tako da se aktivira na glavnoj vrpci programa excel i lako mu se može pristupiti. Nakon provjere opcije za razvojne programere kliknite U redu .

Čim pritisnete OK, na kartici Excel vrpce možete vidjeti karticu Developer aktivnu s hrpom različitih opcija dostupnih ispod. Pogledajte snimku zaslona u nastavku.

Kako se koristi funkcija DateDiff u Excelu VBA?

Ispod su sljedeći koraci za upotrebu DateDiff funkcije u Excelu VBA:

Ovaj VBA DateDiff Excel predložak možete preuzeti ovdje - VBA Predložak DateDiff Excel

Primjer 1

U ovom primjeru slijedite dolje navedene korake za upotrebu DateDiff funkcije u VBA:

1. korak: prvo stvorite ime makronaredbe.

Kodirati:

 Sub bb () Kraj Sub

Korak 2: Dvije varijable su definirane kao datum i dodijeljen im je datum.

Kodirati:

 Sub bb () Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/2010 9:00:00 # dt2 = # 4/19/2019 11:00:00 # Kraj Sub

Korak 3: Napišite sintaksu funkcije Datediff uzimajući potreban argument i dodijelite je kroz okvir VBA poruke.

Kodirati:

 Sub bb () Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/2010 09:00:00 # dt2 = # 4/19/2019 11:00:00 # MsgBox DateDiff ("h", dt1, dt2) Kraj Sub

Korak 4: Pokrenite kôd pritiskom na tipku F5 ili klikom na gumb Reproduciraj. Tako da će se rezultat prikazati u okviru s porukama.

Primjer 2

U primjeru u nastavku, funkcija datiriranja izračunava broj godina između dva datuma „09/06/2016“ i „16/12/2020“. Ovdje se ne uzimaju u obzir neobavezni parametri.

Kodirati:

 Sub AA () 'Razlika u godini MsgBox DateDiff ("yyyy", "09/06/2016", "16/12/2020") Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 3

U primjeru u nastavku, funkcija datiriranja izračunava broj mjeseci između dva datuma "09/06/2016" i "16/12/2020". Ovdje se ne uzimaju u obzir neobavezni parametri.

Kodirati:

 Sub AA1 () 'mjesečna razlika MsgBox DateDiff ("m", "09/06/2016", "16/12/2020") Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 4

U primjeru u nastavku, funkcija datiriranja izračunava broj tjedana između dva datuma "09/06/2016" i "16/12/2020". Ovdje se ne uzimaju u obzir neobavezni parametri.

Kodirati:

 Sub AA2 () 'razlika u tjednima MsgBox DateDiff ("ww", "09/06/2016", "16/12/2020") Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 5

U primjeru u nastavku, funkcija " dateiff " izračunava broj četvrtina između dva datuma "09/06/2016" i "16/12/2020". Ovdje se ne uzimaju u obzir neobavezni parametri.

Kodirati:

 Sub AA3 () 'razlika četvrtine MsgBox DateDiff ("q", "09/06/2016", "16/12/2020") Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 6

U primjeru u nastavku, funkcija " dateiff " izračunava broj dana između dva datuma "09/06/2016" i "16/12/2020". Ovdje se ne uzimaju u obzir neobavezni parametri.

Kodirati:

 Sub AA4 () 'razlika dana MsgBox DateDiff ("d", "09/06/2016", "16/12/2020") Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 7

U primjeru u nastavku, funkcija „ dateiff “ izračunava broj sati između dva datuma i vremena „9:00 dana 01.01.2010. “ I „11:00 dana 19.04.04.“.

Kodirati:

 Podbb1 () 'Izračunajte broj sati između 1. 1. 2010. 9:00 i 19.4.2014. 11:00 Dim dt1 Kao Datum Dim dt2 Kao Datum dt1 = # 1/1/2010 9:00:00 # dt2 = # 4/19/2019 11:00:00 # MsgBox DateDiff ("h", dt1, dt2) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer br. 8

U primjeru u nastavku, funkcija " dateiff " izračunava broj sekundi između dva datuma i vremena "9:00 dana 01.01.2010. " I "11:00 dana 19.04.04."

Kodirati:

 Sub bb2 () 'Izračunajte broj sekundi između 1. 1. 2010. 9:00 i 19.4.2014. 11:00 Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/2010 9:00:00 # dt2 = # 4/19/2019 11:00:00 # MsgBox DateDiff ("s", dt1, dt2) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 9

U primjeru u nastavku, funkcija „ dateiff “ izračunava broj minuta između dva datuma i vremena „9:00 01. 01. 2010.“ i „11:00 19. 04. 2019“.

Kodirati:

 Pod bb3 () 'Izračunajte broj minuta između 1. 1. 9.9. Do 19.4.2014. 11:00 Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/2010 9:00:00 # dt2 = # 4/19/2019 11:00:00 # MsgBox DateDiff ("n", dt1, dt2) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 10

Ako je argument naveden kao "w" (tjedana), funkcija "Datediff" vraća broj cijelog tjedna između dva datuma. Djelomični tjedni se zanemaruju. U primjeru, funkcija " DateDiff " izračunava cijeli tjedan između datuma 01.01.2010. I 19.4.

Kodirati:

 Podbb4 () 'Izračunajte broj tjedana između 1. 1. 2010. i 19. 4. 2010. Dim dt1 kao Datum Dim dt2 Kao Datum dt1 = # 1/1/2010 # dt2 = # 4/19/2010 # MsgBox DateDiff ("w", dt1, dt2) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer br. 11

Ako je argument naveden kao "ww" (kalendarski tjedan), funkcija "Datediff" daje broj tjedana između početka tjedna koji sadrži Datum1 i početka tjedna koji sadrži Datum2.

Kodirati:

 Pod bb5 () 'Izračunajte broj kalendarskih tjedana između 1. 1. 2010. i 19.4.2014.' Prvi dan u tjednu = ponedjeljak Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/2010 # dt2 = # 4/19/2019 # MsgBox DateDiff ("ww", dt1, dt2, vbMonday) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Primjer 12

U primjeru u nastavku, funkcija "datiiff" koristi se za datume "1/1/1990" i "1/1/1998"

Kodirati:

 Podcc () Dim dt1 Kao datum Dim dt2 Kao datum dt1 = # 1/1/1990 9:00:00 AM # dt2 = # 1/11/1998 11:00:00 # MsgBox ("red 1:" & DateDiff ("h", dt1, dt2)) MsgBox ("red 2:" & DateDiff ("s", dt1, dt2)) MsgBox ("red 3:" & DateDiff ("n", dt1, dt2)) MsgBox ("red 4:" & DateDiff ("d", dt1, dt2)) MsgBox ("redak 5:" & DateDiff ("m", dt1, dt2)) MsgBox ("red 6:" & DateDiff ("q", dt1, dt2)) MsgBox ("redak 7:" & DateDiff ("w", dt1, dt2)) MsgBox ("red 8:" & DateDiff ("ww", dt1, dt2)) MsgBox ("red 9: "& DateDiff (" y ", dt1, dt2)) MsgBox (" redak 10: "& DateDiff (" yyyy ", dt1, dt2)) Kraj Sub

Za pokretanje programa pritisnite karticu " F8 " ili " Run ". Rezultat će biti prikazan u okviru s porukama.

Zatim kliknite na " U redu " za sljedeći rezultat.

Zaključak

Funkcija " DateDiff " pomaže u određivanju koliko određenih vremenskih intervala postoji između dva navedena datuma i vremena.

Preporučeni članci

Ovo je vodič za VBA DateDiff. Ovdje smo raspravljali o tome kako koristiti funkciju DateDiff u Excelu VBA zajedno s praktičnim primjerima i download-om Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA izjaviti niz (primjeri)
  2. Kompletan vodič za VBA o pogrešci
  3. Metoda lista zaštite u VBA
  4. Stupci VBA | Predložak Excela
  5. VBA okružje

Kategorija:

VBA