Kaj je funkcija VBA DateValue?
Funkcija DateValue je vgrajena funkcija v Excelu VBA pod kategorijo funkcije Datum / čas. Deluje tako kot funkcija VBA kot funkcija delovnega lista v VBA. Ta funkcija vrne serijsko številko ali vrednost datuma, ki je podana v obliki zapisa niza, pri čemer se prezrejo informacije o času, ki jih navede niz datuma. V Excelu se uporablja na dva različna načina. Ta funkcija se uporablja kot formula delovnega lista, ki se vnese v celico delovnega lista. Uporablja se kot koda makra v aplikaciji VBA in jo vnese prek urejevalnika Visual Basic, povezanega z Microsoft Excel.
V tem članku bomo spoznali primere VBA DATEVALUE in kako ga uporabiti z jasno razlago.
Pojasnilo funkcije VBA Datevalue
V VBA DATEVALUE uporablja naslednjo skladnjo.
Ta funkcija uporablja samo en argument ali parameter
- Datum : To je datum, predstavljen v obliki niza
- Vrne: ta funkcija vrne vrednost datuma, ko se uporablja kot funkcija VBA. Vrne datumsko vrednost, ko se uporablja kot funkcija delovnega lista
Funkcija VBA DateValue lahko interpretira podatke, predstavljene v besedilni obliki, ki je omenjena v veljavni Excelovi obliki. Datumske vrednosti ne more vrniti, če je niz vključeval besedilno predstavitev dneva v tednu.
Prednosti funkcije VBA DateValue so pridobivanje vrednosti datuma iz niza in pretvorba datuma s časom v edini datum. Preprosto lahko rečemo, da kadar je datum podan s časom, ta funkcija samo vrednost datuma, ki se izogne časovni vrednosti.
Kako uporabiti Excel VBA DATEVALUE?
Če želite v Excelu uporabiti funkcijo DateValue, morate najprej odpreti urejevalnik VBA.
Ukazni gumb je treba namestiti na Excelov delovni list, da mu dodate vrstice programa VBA. Za izvedbo vrstic programa mora uporabnik klikniti ukazni gumb na Excelovem listu. Če želite imeti veljaven izhod iz programa, je z argumentom podan veljaven vnos. Naslednja koda na primer pomaga pri ustvarjanju makra za zagon funkcije DateValue za pridobivanje vrednosti datuma iz besedila v VBA.
VBA program:
Gumb Sub Date () Zatemni moj datum kot datum myDate = DateValue (“15. avgust 1991”) MsgBox Date (myDate) End Sub
Rezultat te kode je od danega vnosa datum 15.
Primeri Excel VBA DATEVALUE
Spodaj so primeri DateValue v Excelu VBA.
Primer # 1 - Pridobite dan, mesec in leto od datuma
Sledi nekaj korakov za ustvarjanje in izvajanje programa v VBA. Ti vključujejo
Korak 1: Pojdite na zavihek za razvijalce, postavite kazalko na celico na Excelovem listu in kliknite možnost »Vstavi« ter izberite »Ukazni gumb« pod nadzorom ActiveX, kot je prikazano na sliki.
Povlecite gumb, kamor želite, in v oknu z lastnostmi dodajte napis kot gumb Datum.
2. korak: Dvoklik na gumb; preusmeril se bo na projekt VBA in napisal kodo med gumbom Private Sub-command in koncem sub.
Kodo je treba razviti spodaj, da dobite datum, mesec in leto.
Koda:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Leto (Exampledate) MsgBox Month (Exampledate) End Sub
V tej kodi je Datebutton1_Click () ime in primer datuma sta spremenljivka s podatkovnim tipom Date in Msgbox za prikaz izhoda.
3. korak: Med razvojem kode se bodo pojavile napake pri neujemanju vrste VBA, ki jih je treba poskrbeti zanje.
4. korak: V tem koraku zaženite program, tako da kliknete možnost za zagon.
Lahko pa program preverimo ali odpravimo napake korak za korakom, tako da v meniju za odpravljanje napak izberemo možnost Korak v Če je naša koda brez napak, prikaže izhod.
5. korak : Ko se program zažene, najprej prikaže okno za sporočilo z datumom, navedenim pri vnosu besedila. Nato kliknite V redu, če želite znova videti vrednost leta, v oknu za sporočilo kliknite V redu, da vidite vrednost meseca.
2. primer - Uporaba DatePart za pridobivanje različnih delov datuma
Korak 1: Pojdite na zavihek Excel Developer, postavite kazalko na celico na Excelovem listu in kliknite možnost »Vstavi« ter izberite »Command Button« pod ActiveX Control, kot je prikazano na sliki.
2. korak: Povlecite gumb in pod lastnostmi dodajte naslov kot DatePart.
Dvokliknite ta gumb. Usmeri na list urejevalnika Visual Basic in se prikaže na naslednji način.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- Ko se DatePart uporablja za pridobivanje vrednosti, je treba upoštevati ustrezno obliko. V nasprotnem primeru vodi 'napaka med izvajanjem 5' s klicem ali argumentom neveljavnega sporočila.
