VBA DateValue | Kako uporabiti funkcijo DateValue v Excelu VBA?

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 Date, ki je podana v obliki zapisa niza, pri čemer se prezrejo informacije o času, podane z nizom 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, ki 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 uporabiti funkcijo DateValue v Excelu, 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 na ukazni gumb v 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 () Dim myDate As Date 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.

To predlogo VBA DateValue Excel lahko prenesete tukaj - Predloga VBA DateValue Excel

Primer # 1 - Pridobite dan, mesec in leto od datuma

Sledi nekaj korakov za ustvarjanje in izvajanje programa v VBA. Ti vključujejo

1. korak: Pojdite na zavihek za razvijalce, postavite kazalko na celico na Excelovem listu in kliknite možnost »Vstavi« ter izberite »Ukazni gumb« pod možnostjo ActiveX Control, kot je prikazano na sliki.

Povlecite gumb, kamor želite, in v oknu z lastnostmi dodajte napis kot gumb Datum.

Korak 2: Dvokliknite gumb, ki ga bo preusmeril na projekt VBA in napišite kodo med ukaznim gumbom Private Sub in end 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 exampledate sta spremenljiva s podatkovnim tipom Date in Msgbox za prikaz izhoda.

3. korak: Med razvojem kode se bodo pojavile napake v 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 in v meniju za odpravljanje napak izberemo možnost Korak v točko. Če je naša koda brez napak, prikaže rezultat.

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.

Opomba: Za natančne rezultate je treba natančno upoštevati te korake.

2. primer - Uporaba DatePart za pridobivanje različnih delov datuma

1. korak: Pojdite na zavihek Excel Developer, postavite kazalko na celico na Excelovem listu in kliknite možnost »Vstavi« ter izberite »Ukazni gumb« pod možnostjo ActiveX Control, kot je prikazano na sliki.

2. korak: Povlecite gumb in pod lastnostmi dodajte naslov kot DatePart.

Dvokliknite ta gumb, ta se usmeri na list urejevalnika Visual Basic in prikaže na naslednji način.

3. korak: Razvijte kodo z uporabo DatePart z DateValue, kot je prikazano na sliki.

Koda:

 Private Sub Datepart1_Click () Dim partdate As Variant partdate = DateValue ("15.8.1991") MsgBox partdate MsgBox Datepart ("yyyy", partdate) MsgBox Datepart ("dd", partdate) MsgBox Datepart ("mm", partdate) MsgBox Datepart ("q", partdate) End Sub

V tem programu je DatePart1 ime makra, partDate pa ime argumenta s podatkovnim tipom 'variant'. Za prikaz leta, datuma, meseca in četrtletja je oblika uporabljena kot »llll«, »d«, »m« in »q«. Če naredimo napako v obliki, se prikaže naslednja napaka.

4. korak: Po uspešnem odpravljanju napak programa zaženite program s klikom na gumb za zagon z uporabo bližnjice excel F5.

Koda najprej prikaže celoten datum, nato pa po kliku vsakega OK v sporočilu prikaže vrednost leta za to vrednostjo datuma, mesečno vrednostjo, četrtletno vrednostjo.

Stvari, ki si jih je treba zapomniti o VBA DATEVALU

Med uporabo funkcije DateValue v Excelu VBA si morate zapomniti naslednje stvari

  • Napaka med izvajanjem 13 s sporočilom Type Mismatch se prikaže, ko datum, ki ga posreduje funkcija DateValue, ne more pretvoriti v veljaven datum. Potrebujemo datum v ustrezni obliki besedila
  • Ko iz argumenta niza poskušamo dobiti edini datum s kodo 'msgbox date (ime argumenta)', prikaže napako neusklajenosti tipa.
  • Rezultate funkcije DateValue lahko vidimo, ne da bi odprli urejevalnik VBA. To storite s klikom na ukazni gumb in izberite makro, ustvarjen za ustrezen program
  • When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.