Što je VBA DateValue funkcija?
Funkcija DateValue je ugrađena funkcija u programu Excel VBA pod kategorijom funkcije Datum / vrijeme. Radi u funkciji VBA i kao radni list u vba. Ova funkcija vraća serijski broj ili vrijednost datuma koja je navedena u formatu predstavljanja niza, zanemarujući informacije o vremenu koje daje datumski niz. 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 aplikaciji VBA koja ga unosi putem Visual Basic Editora povezanog 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 u Excel radni list da biste na njega dodali retke VBA programa. Da bi implementirao linije 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 myDate = DateValue (“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.
Ovaj VBA DateValue Excel predložak možete preuzeti ovdje - VBA DateValue Excel PredložakPrimjer # 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 pokazivač na ćeliju na Excelovom listu i kliknite opciju "Insert" 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 koji će preusmjeriti na VBA projekt i napišite kod između naredbenog gumba Private Sub 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 () naziv, a datum datuma su 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 možemo provjeriti ili otkloniti pogreške u programu korak po korak odabirom opcije Korak u izbornik u 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 pokazivač na ćeliju na Excelovom listu i kliknite opciju "Umetni" i odaberite "Command Button" pod ActiveX Control, kao što je prikazano na slici.
Korak 2: Povucite gumb i navedite naslov kao DatePart pod svojstvima.
Dvaput pritisnite ovaj gumb, on usmjerava na list Visual Basic Editor i prikazuje se na sljedeći način.
Korak 3: Razvijte kôd pomoću DatePart-a s DateValue kako je prikazano na slici.
Kodirati:
Private Sub Datepart1_Click () Zatamni partdate kao varijantu partdate = DateValue ("15.8.1991") MsgBox partdate MsgBox Datepart ("yyyy", partdate) MsgBox Datepart ("dd", partdate) MsgBox Datepart ("mm", partdate) MsgBox Datepart ("q", partdate) Kraj Sub 
U ovom je programu DatePart1 naziv makronaredbe, a partDate naziv argumenta s tipom podataka 'varijanta'. Za prikaz godine, datuma, mjeseca i tromjesečja format se primjenjuje kao "yyyy", "d", "m" i "q". Ako pogriješimo u formatu, prikazuje se sljedeća pogreška.
Korak 4: Nakon uspješnog otklanjanja pogrešaka u programu, pokrenite program klikom na gumb za pokretanje koristi Excel prečac F5.
Kôd prvo prikazuje puni datum, a nakon klika na svaki OK iz okvira msgbox prikazuje vrijednost godine nakon te vrijednosti Datum, Mjesečna vrijednost, Kvartalna vrijednost.
Stvari koje treba zapamtiti o VBA DATEVALU
Tijekom upotrebe funkcije DateValue u programu Excel VBA morate se sjetiti sljedećih stvari
- Pogreška vremena izvođenja 13 s porukom Tip Mismatch prikazuje se kada datum dostavljen funkciji DateValue ne može pretvoriti u važeći datum. Trebamo datum je odgovarajući format teksta
- Kada iz argumenta niza pokušamo dobiti jedini datum s kodom 'msgbox date (naziv argumenta)', on prikazuje pogrešku neusklađenosti tipa.
- Izlaz funkcije DateValue možemo vidjeti bez otvaranja VBA uređivača. To se vrši klikom na naredbeni gumb i odabirom makronaredbe stvorene za odgovarajući 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.