Mis on funktsioon VBA DateValue?
Funktsioon DateValue on Exceli VBA-s sisseehitatud funktsioon kategooria Kuupäev / kellaaeg all. See töötab nii VBA kui ka VBA töölehe funktsioonina. See funktsioon tagastab stringi esitusvormingus antud kuupäeva seerianumbri või väärtuse, ignoreerides stringi Kuupäev pakutavat teavet aja kohta. Seda kasutatakse Excelis kahel erineval viisil. Seda funktsiooni kasutatakse töölehe valemina, mis sisestatakse töölehe lahtrisse. Seda kasutatakse makrokoodina VBA rakenduses, sisestades selle Microsoft Exceliga seotud Visual Basic Editori kaudu.
Selles artiklis õpime näiteid VBA DATEVALUE-st ja selle kasutamise kohta koos selge selgitusega.
Funktsiooni VBA andmevalue selgitus
VBA-s kasutab DATEVALUE järgmist süntaksit.
See funktsioon kasutab ainult ühte argumenti või parameetrit
- Kuupäev : see on stringi vormingus kujutatud kuupäev
- Tagastab: see funktsioon tagastab kuupäeva väärtuse, kui seda kasutatakse VBA-funktsioonina. See tagastab kuupäevaväärtuse, kui seda kasutatakse töölehe funktsioonina
Funktsioon VBA DateValue suudab tõlgendada andmeid, mis on esitatud kehtivas Exceli vormingus mainitud tekstivormingus. See ei saa kuupäeva väärtust tagastada, kui string sisaldab nädalapäeva teksti.
Funktsiooni VBA DateValue eelised on kuupäeva väärtuse eraldamine stringist ja kuupäeva teisendamine kellaaega ainsaks kuupäevaks. Võime lihtsalt öelda, et kui kuupäev antakse ajaga, siis see funktsioon ainult kuupäeva väärtus, vältides aja väärtust.
Kuidas kasutada Exceli VBA DATEVALUE?
Funktsiooni DateValue kasutamiseks Excelis tuleb kõigepealt avada VBA-redaktor.
VBA programmi ridade lisamiseks tuleb Exceli töölehele panna käsunupp. Programmi ridade rakendamiseks peab kasutaja klõpsama Exceli lehel oleval käsunupul. Programmi kehtiva väljundi saamiseks antakse argumendi kaudu kehtiv sisend. Näiteks aitab järgmine kood makro loomisel funktsiooni DateValue käivitamiseks, et VBA tekstist kuupäeva väärtus välja tõmmata.
VBA programm:
Sub Datebutton () Dim myDate As Date myDate = DateValue (“15. august 1991”) MsgBox Date (myDate) End Sub
Selle koodi tulemuseks on antud sisendi kuupäev 15.
Exceli VBA DATEVALUE näited
Allpool on toodud näited kuupäeva väärtusest Exceli VBA-s.
Näide # 1 - hankige kuupäevast kuupäev, kuu ja aasta
VBA-s programmi loomiseks ja käivitamiseks järgitakse väheseid samme. Nende hulka kuuluvad
1. samm: minge vahekaardile Arendaja, asetage kursor Exceli lehe lahtrisse ja klõpsake valikul „Sisesta” ja valige ActiveX-i juhtimise all „Käsunupp”, nagu joonisel näidatud.
Lohistage nupp soovitud kohta ja andke omaduste aknast pealkiri Datebuttonina.
2. samm: topeltklõpsake nuppu; see suunab projekti VBA ja kirjutab koodi nupu Privaatne alamkäsu ja lõpuosa vahele.
Kuupäeva, kuu ja aasta saamiseks tuleks kood välja töötada järgmiselt.
Kood:
Privaatne alamkuupäevaklahv1_Click () Mõõtke näide näiteks kuupäeva näide = kuupäeva väärtus ("19. aprill 2019") MsgBoxi kuupäev MsgBoxi aasta (näide) MsgBoxi kuu (näide) lõpp alam
Selles koodis on Datebutton1_Click () nimi ja kuupäeva näidis muutuvad koos väljundi kuvamiseks andmetüübiga Date ja Msgbox.
3. samm: koodi väljatöötamisel ilmnevad VBA tüübi mittevastavuse vead, mis peavad nende eest hoolitsema.
4. samm: käivitage selles etapis programm, klõpsates käsku Käivita.
Või saame programmi samm-sammult kontrollida või siluda, valides menüü Silumine alt suvandi Astu sisse. Kui meie koodil pole vigu, kuvab see väljundi.
5. samm : kui programm on käivitatud, kuvatakse kõigepealt tekstikastis määratud kuupäevaga sõnumikast. Seejärel klõpsake aasta väärtuse uuesti kuvamiseks nuppu OK, kuu väärtuse nägemiseks klõpsake sõnumikastil nuppu OK.
Näide # 2 - kuupäevaosa kasutamine kuupäeva erinevate osade hankimiseks
1. samm: minge vahekaardile Exceli arendaja, asetage kursor Exceli lehe lahtrisse ja klõpsake valikul „Lisa” ja valige ActiveX-i juhtimise all käsknupp ”, nagu on näidatud joonisel.
2. samm: lohistage nuppu ja andke omaduste all pealkiri DatePart.
Topeltklõpsake sellel nupul. See suunab lehele Visual Basic Editor ja kuvatakse järgmiselt.
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.
- Kui väärtuste saamiseks kasutatakse DatePart, tuleks järgida sobivat vormingut. Vastasel juhul viib see käitusaja vea 5 sõnumi kehtetu protseduuri väljakutse või argumendiga.
