Što je VBA DateValue funkcija?
Funkcija DateValue je ugrađena funkcija u programu Excel VBA pod kategorijom funkcije Datum / vrijeme. Djeluje i kao VBA funkcija i kao radni list u VBA. Ova funkcija vraća serijski broj ili vrijednost datuma u obliku predstavljanja niza, zanemarujući informacije o vremenu koje daje niz datuma. U Excelu se koristi na dva različita načina. Ova se funkcija koristi kao formula radnog lista koja ulazi u ćeliju radnog lista. Koristi se kao makro kod u VBA aplikaciji, unoseći ga kroz Visual Basic Editor povezan s Microsoft Excelom.
U ovom ćemo članku naučiti primjere VBA DATEVALA i kako ga koristiti s jasnim objašnjenjem.
Objašnjenje funkcije VBA datumske vrijednosti
U VBA, DATEVALUE koristi sljedeću sintaksu.
Ova funkcija koristi samo jedan argument ili parametar
- Datum : To je datum predstavljen u formatu niza
- Vraća: Ova funkcija vraća vrijednost datuma kada se koristi kao VBA funkcija. Vraća vrijednost datuma kada se koristi kao funkcija radnog lista
VBA DateValue funkcija može interpretirati podatke predstavljene u tekstualnom formatu koji se spominje u važećem Excel formatu. Ne može vratiti vrijednost datuma ako je niz sadržavao tekstualni prikaz radnog dana.
Prednosti funkcije VBA DateValue su izdvajanje vrijednosti datuma iz niza i pretvaranje datuma s vremenom u jedini datum. Jednostavno možemo reći da kada je datum dan s vremenom, ova funkcija samo vrijednost datuma izbjegavajući vremensku vrijednost.
Kako koristiti Excel VBA DATEVALUE?
Da biste koristili funkciju DateValue u Excelu, prvo morate otvoriti VBA editor.
Naredbeni gumb potrebno je smjestiti na Excel radni list da biste mu dodali retke programa VBA. Da bi implementirao retke programa, korisnik treba kliknuti na naredbeni gumb u excel listu. Da bi se dobio valjani izlaz iz programa, valjani se unos daje argumentom. Na primjer, sljedeći kod pomaže u stvaranju makronaredbe za pokretanje funkcije DateValue za izdvajanje vrijednosti datuma iz teksta u VBA.
VBA program:
Tipka za datum pod () Zatamni moj datum kao datum moj datum = vrijednost ((15. kolovoza 1991.)) Datum msgBox (moj datum) Kraj pod
Ovaj kod rezultira datumom 15 od datog unosa.
Primjeri Excel VBA DATEVALUE
Ispod su primjeri DateValue u programu Excel VBA.
Primjer # 1 - Dobivanje dana, mjeseca i godine od datuma
Slijedi nekoliko koraka za stvaranje i izvršavanje programa u VBA. To uključuje
Korak 1: Idite na karticu Developer, postavite kursor na ćeliju na Excelovom listu i kliknite opciju "Umetni" i odaberite "Command Button" pod ActiveX Control, kao što je prikazano na slici.
Povucite gumb gdje želite i dodajte naslov kao gumb Datum iz prozora svojstava.
Korak 2: Dvaput pritisnite gumb; preusmjerit će se na VBA projekt i napisati kod između gumba Private Sub-command i krajnjeg sub-a.
Kôd treba razviti na sljedeći način da bi se dobio datum, mjesec i godina.
Kodirati:
Private Sub Datebutton1_Click () Dim Primjer datuma Kao datum Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Godina (Exampledate) MsgBox Month (Exampledate) End Sub
U ovom je kodu Datebutton1_Click () ime, a primjer datuma je varijabilni s tipom podataka Date i Msgbox za prikaz rezultata.
Korak 3: Tijekom razvijanja koda dogodit će se pogreške u nepodudaranju tipa VBA i treba se pobrinuti za njih.
Korak 4: U ovom koraku pokrenite program klikom na opciju pokretanja.
Ili program možemo provjeriti ili otkloniti pogreške korak po korak, odabirom opcije Korak u pod izborniku Otklanjanje pogrešaka. Ako je naš kod bez grešaka, prikazuje izlaz.
Korak 5 : Kada se program izvrši, prvo prikazuje okvir za poruke s datumom navedenim u unosu teksta. Zatim kliknite U redu da biste ponovno vidjeli vrijednost godine, kliknite U redu na okviru za poruku da biste vidjeli vrijednost mjeseca.
Primjer # 2 - Korištenje DateParta za dobivanje različitih dijelova datuma
Korak 1: Idite na karticu Excel Developer, postavite kursor na ćeliju na Excelovom listu i kliknite opciju "Umetni" i odaberite "Naredbeni gumb" pod ActiveX kontrolom, kao što je prikazano na slici.
Korak 2: Povucite gumb i navedite naslov kao DatePart pod svojstvima.
Dvaput kliknite ovaj gumb. Usmjerava se na list Visual Basic Editor i prikazuje se na sljedeći 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.
- Kada se DatePart koristi za dobivanje vrijednosti, treba slijediti odgovarajući format. Inače, vodi 'pogreška vremena izvođenja 5' s pozivom ili argumentom nevažeće poruke.
