VBA DateValue | Kako koristiti funkciju DateValue u programu Excel VBA?

Š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žak

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 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.

Napomena: Ove korake treba slijediti jasno da biste dobili točne rezultate.

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.