Što je VBA DateSerial?

VBA DATESERIAL funkcija je ugrađena funkcija u Excelu. DATESERIAL funkcija vraća datum s datumom godine, mjeseca i dana. Recimo na primjer ako je današnji datum 18. srpnja 2019. Neki korisnici ga mogu napisati kao 18. srpnja 19. ili 18. srpnja. Formati datuma mogu biti različiti za više korisnika. To nam daje zamornu zadaću rada s većim brojem datuma u različitim formatima.

Kao što je gore definirano rješenje problema, format datuma može se razlikovati za više korisnika. Ovdje dolazi pomoć VBA za serijsku funkciju datuma. Vrlo je dobra funkcija dati vlastiti datum s vrijednostima koje odlučimo definirati. Javite nam detaljno o ovoj funkciji. DateSerial funkcija u VBA je funkcija datuma i vremena, tako da je vraćena vrijednost za ovu funkciju DATE. Metoda korištenja sintakse za ovu funkciju bit će sljedeća.

Sintaksa VBA DateSerial

Sintaksa funkcije VBA DateSerial u excelu je sljedeća:

Potrebna su tri argumenta godina, mjesec i dan.

  • Godina: Prihvaćeni raspon za ovaj dio argumenta u funkciji je od 100-9999. Vrsta podataka za argument trebala bi biti cijeli broj.
  • Mjesec: Prihvaćeni raspon za ovaj dio argumenta u funkciji je od 1-12. Vrsta podataka za argument trebala bi biti cijeli broj.
  • Dan: Prihvaćeni raspon za ovaj dio argumenta u funkciji je od 1-31. Vrsta podataka za argument trebala bi biti cijeli broj.

Ali ovdje je cool dio ove funkcije. Ako pružimo argument iznad prihvaćenog raspona, funkcija umjesto toga ne vraća pogrešku, izračunava daljnji dio raspona i prikazuje datum. Na primjer, ako navedem podatke kao serijski datum (2019., 14. 02.), sada znamo da u godini može biti samo 12 mjeseci, ali naveo sam 14 kao argument. Funkcija neće vratiti pogrešku, umjesto toga dodavat će dva dodatna mjeseca u tekućoj godini, tako da će izlaz biti 2020-02-02.

Kako koristiti VBA DateSerial funkciju u Excelu?

Naučit ćemo kako koristiti VBA DateSerial funkciju s nekoliko primjera u excelu.

Možete preuzeti ovaj VBA DateSerial Excel predložak ovdje - VBA DateSerial Excel predložak

Ispitajmo ovu funkciju na nekoliko primjera koji će nam učiniti mnogo jasnijima.

Primjer br. 1 - VBA DateSerial

Omogućimo najprije jednostavan datum varijabli pomoću funkcije serijskog datuma i pogledajte izlaz koji smo dobili.

Korak 1: Prije nego što započnemo s našim primjerima, prvo provjerite da li je omogućena kartica programera, a zatim prijeđite na odjeljak koda da biste otvorili VB uređivač klikom na Visual Basic kao što je prikazano na slici ispod.

Korak 2: Iz gornjeg prozora kliknite karticu Umetanje za umetanje modula. Radit ćemo u istom modulu za sve naše primjere.

Korak 3: Pokrenite podprocesu na sljedeći način i deklarirajte varijablu kao datum podataka.

Kodirati:

 Pod uzorak () Dim Dt kao datum završetka Sub

Korak 4: Sada ćemo dati datum varijabli pomoću funkcije serijskog datuma.

Kodirati:

 Pod uzorak () Dim Dt kao datum Dt = datumSerial (2019, 7, 2) Kraj Sub

Korak 5: Prikažite vrijednost pohranjenu u našoj varijabli pomoću funkcije msgbox.

Kodirati:

 Pod uzorak () Dim Dt kao datum Dt = datumSerial (2019, 7, 2) MsgBox Dt kraj pot

Korak 6: Kada izvršimo gornji kod dobili smo sljedeći rezultat.

Primjer # 2 - VBA DateSerial

Sada testirajmo teoriju koju smo gore objavili u uvodu da ako pružimo vrijednosti osim prihvaćenog raspona i funkcija izračunava datum za nas.

Korak 1: U istom modulu pokrenite još jedan podprocesu na sljedeći način.

Kodirati:

 Sub Sample1 () Kraj Sub

Korak 2: Sada definirajte varijablu s vrstom podataka o datumu.

Kodirati:

 Sub Uzorak1 () Dim Dt Kao datum završetka Sub

Korak 3: Dopustimo da unesemo DT varijablu koristeći serijsku funkciju datuma kao što je prikazano u nastavku.

Kodirati:

 Sub Uzorak1 () Dim Dt Kao datum Dt = DatumSerial (2019, 14, 2) Kraj Sub

Korak 4: Prikazuje vrijednost pohranjenu u Dt varijabli pomoću funkcije msgbox.

Kodirati:

 Pod uzorak1 () Dim Dt kao datum Dt = datumSerial (2019, 14, 2) MsgBox Dt kraj pot

5. korak: Sada izvršite gornji kôd i pogledajte donji rezultat na sljedeći način.

Vidimo da je godina izmijenjena jer smo argumentima dali dva dodatna mjeseca. U osnovi, ova funkcija dodala je 14 mjeseci u 2019. godinu, što nam je omogućilo drugi mjesec 2020. i drugi datum.

Primjer # 3 - VBA DateSerial

U gore navedenim primjerima, argumente smo iznijeli na opći način. Ali razgovarali smo i o tome kako korisnici mogu unijeti apsurdne vrijednosti u odjeljak datuma kao format, jer se pisanje datuma razlikuje od pojedinca do pojedinca. Usporedit ćemo dva formata datuma upotrebom funkcije serijskog odabira u ovom primjeru.

Korak 1: U istom modulu definirajte još jedan podproces kako slijedi u trećem primjeru.

Kodirati:

 Sub Sample2 () Kraj Sub

Korak 2: U ovom scenariju definirajte dvije varijable kao datume kao što je prikazano u nastavku.

Kodirati:

 Sub Uzorak2 () Dim Dt1, Dt2 kao datum završetka Pod

Korak 3: Sada ćemo u prvoj varijabli navesti redovan datum jednostavnim korištenjem dateserial funkcije.

Kodirati:

 Pod uzorak2 () Dim Dt1, Dt2 kao datum Dt1 = DatumSerial (2019, 12, 31) Kraj Sub

Korak 4: Sada ćemo za drugu varijablu navesti datum nepravilnim načinom pomoću dateserial funkcije kao što je prikazano u nastavku.

Kodirati:

 Pod uzorak2 () Dim Dt1, Dt2 kao datum Dt1 = DatumSerial (2019, 12, 31) Dt2 = DatumSerial (19, 12, 31) Kraj Sub

Korak 5: Sada ispisujte obje ove vrijednosti pomoću funkcije msgbox.

Kodirati:

 Pod uzorak2 () Dim Dt1, Dt2 kao datum Dt1 = DatumSerial (2019, 12, 31) Dt2 = DatumSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 Kraj Pot

Korak 6: Izvršite gornji kôd da biste pronašli sljedeći rezultat prikazan u nastavku.

Možemo vidjeti da su oba datuma ista. Dvocifrena godina 19. tumači se kao 2019. godina.

Stvari koje treba zapamtiti

  • To je funkcija datuma i vremena, tako da je izlaz u Date.
  • Ako je vrijednost pružena funkciji iznad prihvaćenog raspona funkcije, on automatski izračunava datum, a ne daje pogrešku.
  • Ako su vrijednosti argumenti veće od vrijednosti koju može imati cijeli broj, tada funkcija vraća pogrešku.

Preporučeni članci

Ovo je vodič za VBA DateSerial. Ovdje smo raspravljali o tome kako koristiti Excel VBA DateSerial funkciju zajedno s praktičnim primjerima i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. VBA InStr objasnio je s primjerima
  2. Vrsta podataka VBA Integer
  3. VBA ISNULL Objašnjeno primjerima
  4. Format VBA datuma (primjeri)

Kategorija:

VBA