Kaj je VBA DateSerial?
VBA DATESERIAL funkcija je vgrajena funkcija v Excelu. DATESERIAL funkcija vrne datum z datumom leta, meseca in dneva. Recimo na primer, če je današnji datum 18. julij 2019. Nekateri uporabniki ga lahko napišejo kot 18. julij 19. ali 18. julij 19.. Oblike datumov so lahko za več uporabnikov različne. To nam daje dolgočasno nalogo dela z večjim številom datumov v različnih formatih.
Kot je navedeno zgoraj opisano težavo, se lahko oblika datumov razlikuje za več uporabnikov. Tu je v pomoč VBA za serijsko funkcijo datumov. Zelo dobra funkcija je, da si sami določimo datum z vrednostmi, ki jih izberemo za definiranje. O tej funkciji nas podrobno seznanite. DateSerial funkcija v VBA je funkcija datuma in časa, zato je vrnjena vrednost te funkcije DATE. Način uporabe skladnje za to funkcijo bo naslednji.
Sintaksa VBA DateSerial
Sintaksa funkcije VBA DateSerial v excelu je naslednja:
Traja tri argumente leto, mesec in dan.
- Leto: Sprejeti obseg za ta del argumenta v funkciji je od 100-9999. Vrsta podatkov za argument mora biti celo število.
- Mesec: Sprejeti obseg za ta del argumenta v funkciji je od 1-12. Vrsta podatkov za argument mora biti celo število.
- Dan: Sprejeti obseg za ta del argumenta v funkciji je od 1-31. Vrsta podatkov za argument mora biti celo število.
Tu pa je kul del te funkcije. Če navedemo argument nad sprejetim razponom, funkcija namesto tega ne vrne napake, izračuna nadaljnji del obsega in prikaže datum. Na primer, če navedem vnos kot zaporedni datum (2019, 14, 02), zdaj vemo, da je v letu lahko le 12 mesecev, vendar sem navedel 14 kot argument. Funkcija ne bo vrnila napake, namesto tega bo dodala dva dodatna meseca v tekočem letu, tako da bo rezultat 2020-02-02.
Kako uporabljati funkcijo VBA DateSerial v Excelu?
Spoznali bomo uporabo funkcije VBA DateSerial z nekaj primeri v excelu.
To predlogo VBA DateSerial Excel lahko prenesete tukaj - VBA DateSerial predlogo ExcelPreizkusimo to funkcijo z nekaj primeri, ki nam bodo stvari veliko bolj jasni.
Primer # 1 - VBA DatumSerial
Najprej zagotovimo enostaven datum spremenljivki z uporabo zaporedne funkcije datuma in si oglejte izhod, ki ga dobimo.
Korak 1: Preden začnemo z našimi primeri, se najprej prepričajte, da je omogočen zavihek razvijalca, nato pa se premaknite na razdelek s kodo, da odprete urejevalnik VB, tako da kliknete Visual Basic, kot je prikazano na spodnji sliki.
2. korak: V zgornjem oknu kliknite jeziček Vstavi, da vstavite modul. Za vse naše primere bomo delali v istem modulu.
3. korak: Zaženite podproces kot sledi in deklarirajte spremenljivko kot datum podatkov.
Koda:
Pod vzorec () Dim Dt kot datum konca Sub
4. korak: Zdaj omogočimo spremenljivki datum z uporabo zaporedne funkcije datuma.
Koda:
Pod vzorec () Dim Dt kot datum Dt = datumSerial (2019, 7, 2) konec pod
5. korak: s funkcijo msgbox prikažite vrednost, shranjeno v naši spremenljivki.
Koda:
Pod vzorec () Dim Dt kot datum Dt = datumSerial (2019, 7, 2) MsgBox Dt konec pod
6. korak: Ko izvedemo zgornjo kodo, dobimo naslednji rezultat.
Primer # 2 - VBA DateSerial
Zdaj preizkusimo teorijo, ki smo jo obravnavali zgoraj v uvodu, da če navedemo vrednosti razen sprejetega obsega in funkcija izračuna datum za nas.
1. korak: V istem modulu zaženite še en podproces, kot sledi.
Koda:
Sub Sample1 () Konec Sub
2. korak: Zdaj določite spremenljivko z datumom vrste podatkov.
Koda:
Pod vzorec1 () Dim Dt kot datum konca Sub
Korak 3: Vnesite spremenljivko DT z uporabo serijske funkcije datuma, kot je prikazano spodaj.
Koda:
Pod vzorec1 () Dim Dt kot datum Dt = datumSerial (2019, 14, 2) konec pod
4. korak: s funkcijo msgbox prikažite vrednost, shranjeno v spremenljivki Dt.
Koda:
Pod vzorec1 () Dim Dt kot datum Dt = datumSerial (2019, 14, 2) MsgBox Dt konec pod
5. korak: Zdaj izvedite zgornjo kodo in poglejte spodnji rezultat na naslednji način.
Vidimo, da se je leto spremenilo, saj smo argumentom zagotovili dva dodatna meseca. V bistvu je ta funkcija leta 2019 dodala 14 mesecev, kar nam je prineslo drugi mesec 2020 in 2. datum.
Primer # 3 - VBA DateSerial
V zgornjih primerih smo argumente podali na splošno. Pogovorili smo se o tem, kako lahko uporabniki vnesejo absurdne vrednosti v razdelek z datumi kot obliko, saj je pisanje datumov od posameznika do posameznika drugačno. V tem primeru bomo primerjali dva formata datumov z uporabo funkcije za serijsko določanje datumov.
1. korak: v istem modulu določite še en podproces, kot sledi za tretji primer.
Koda:
Sub Sample2 () Konec Sub
2. korak: V tem scenariju določite dve spremenljivki kot datume, kot je prikazano spodaj.
Koda:
Pod vzorec2 () Dim Dt1, Dt2 kot datum konca Sub
Korak 3: Zdaj v prvi spremenljivki omogočimo datum na preprost reden način z uporabo dataserial funkcije.
Koda:
Pod vzorec2 () Dim Dt1, Dt2 kot datum Dt1 = datumSerial (2019, 12, 31) konec pod
Korak 4: Zdaj za drugo spremenljivko navedemo datum nepravilno z uporabo dataserial funkcije, kot je prikazano spodaj.
Koda:
Pod vzorec2 () Dim Dt1, Dt2 kot datum Dt1 = datumSerial (2019, 12, 31) Dt2 = datumSerial (19, 12, 31) konec pod
5. korak: Zdaj natisnite obe vrednosti s funkcijo msgbox.
Koda:
Pod vzorec2 () Dim Dt1, Dt2 kot datum Dt1 = datumSerial (2019, 12, 31) Dt2 = datumSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 konec pod
6. korak: Izvedite zgornjo kodo in poiščite spodnji rezultat, prikazan spodaj.
Vidimo, da sta oba datuma enaka. Dvomestno leto 19 se razlaga kot 2019.
Stvari, ki jih je treba zapomniti
- To je funkcija datuma in časa, tako da je izhod v datumu.
- Če je vrednost, dana funkciji, večja od sprejetega obsega funkcije, samodejno izračuna datum, namesto da poda napako.
- Če so vrednosti, predložene argumentom, večje od vrednosti, ki jo lahko vsebuje celo število, potem funkcija vrne napako.
Priporočeni članki
To je vodnik za VBA DateSerial. Tukaj smo razpravljali o uporabi Excelove VBA DateSerial funkcije skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -
- VBA InStr je pojasnil s primeri
- Vrsta podatkov vrste VBA Integer
- VBA ISNULL Pojasnjeno s primeri
- Oblika datuma VBA (primeri)