Kas yra „VBA DateValue“ funkcija?
„DateValue“ funkcija yra „Excel VBA“ integruota funkcija pagal „Data / laikas“ funkcijos kategoriją. Tai veikia kaip VBA funkcija ir VBA darbalapio funkcija. Ši funkcija grąžina eilutės numerį arba „Date“ reikšmę, pateiktą eilutės atvaizdavimo formatu, nepaisydama laiko eilutės pateiktos informacijos. „Excel“ programoje jis naudojamas dviem skirtingais būdais. Ši funkcija naudojama kaip darbalapio formulė, įvedama į darbalapio langelį. Jis naudojamas kaip makrokodas VBA programoje, įvedant jį per „Visual Basic“ redaktorių, susietą su „Microsoft Excel“.
Šiame straipsnyje mes sužinosime VBA DATEVALUE pavyzdžius ir kaip jį naudoti su aiškiu paaiškinimu.
VBA duomenų reikšmės funkcijos paaiškinimas
VBA DATEVALUE naudoja šią sintaksę.
Ši funkcija naudoja tik vieną argumentą ar parametrą
- Data : tai data, pateikiama eilutės formatu
- Grąžina: ši funkcija grąžina datos vertę, kai ji naudojama kaip VBA funkcija. Ji grąžina datos vertę, kai ji naudojama kaip darbalapio funkcija
Funkcija „VBA DateValue“ gali interpretuoti duomenis, pateikiamus teksto formatu, kuris paminėtas tinkamu „Excel“ formatu. Ji negali grąžinti datos vertės, jei eilutėje yra savaitės dienos tekstas.
Funkcijos „VBA DateValue“ pranašumai yra datos vertės išskyrimas iš eilutės ir datos su laiku konvertavimas į vienintelę datą. Paprasčiausiai galime pasakyti, kad kai data nurodoma su laiku, ši funkcija reiškia tik datos reikšmę, išvengiant laiko vertės.
Kaip naudoti „Excel VBA DATEVALUE“?
Norėdami naudoti „Excel“ funkciją „DateValue“, pirmiausia turite atidaryti VBA redaktorių.
Norint pridėti VBA programos eilutes, „Excel“ darbalapyje reikia įdėti komandų mygtuką. Norėdami įgyvendinti programos eilutes, vartotojas reikalauja spustelėti komandų mygtuką „Excel“ lape. Norint turėti galiojantį programos išėjimą, tinkamas įvestis pateikiama per argumentą. Pvz., Šis kodas padeda sukurti makrokomandą, kad būtų paleista funkcija „DateValue“, kad būtų išgauta datos reikšmė iš VBA teksto.
VBA programa:
Sub Datebutton () Dim myDate As Date myDate = DateValue („1991 m. Rugpjūčio 15 d.“) „MsgBox“ data („myDate“) Pabaiga Sub
Šio kodo data yra 15 iš nurodyto įvesties.
„Excel VBA DATEVALUE“ pavyzdžiai
Toliau pateikiami „DateValue“ pavyzdžiai „Excel VBA“.
1 pavyzdys - gaukite dieną, mėnesį ir metus nuo datos
Norint sukurti ir vykdyti programą VBA, atliekami keli veiksmai. Tarp jų yra
1 žingsnis: Eikite į skirtuką „Kūrėjas“, padėkite žymeklį ant langelio „Excel“ lape ir spustelėkite parinktį „Įterpti“ ir pasirinkite „Komandos mygtukas“ po „ActiveX“ valdikliu, kaip parodyta paveikslėlyje.
Vilkite mygtuką norimoje vietoje ir ypatybių lange pateikite antraštę kaip „Datebutton“.
2 žingsnis: dukart spustelėkite mygtuką; jis peradresuos į VBA projektą ir parašys kodą tarp „Private Sub-command“ mygtuko ir pabaigos sub.
Kodas turėtų būti sukurtas taip, kaip nurodyta toliau, kad gautumėte datą, mėnesį ir metus.
Kodas:
„Private Sub Datebutton1_Click ()“ Dim Exampledate as Date Exampledate = DateValue („2019 m. Balandžio 19 d.“) „MsgBox“ data „MsgBox“ metai („Exampleemplate“) „MsgBox“ mėnesio („Exampleample“) pabaigos dalis
Šiame kode Datebutton1_Click () yra vardas ir datos pavyzdys, kintantys su Data data tipu ir Msgbox, kad būtų rodoma išvestis.
3 žingsnis: Kuriant kodą, atsiras VBA tipo neatitikimo klaidų, todėl jomis reikia pasirūpinti.
4 žingsnis: Šiame žingsnyje paleiskite programą spustelėdami paleidimo parinktį.
Arba galime patikrinti arba derinti programą žingsnis po žingsnio, meniu Derinti pasirinkdami parinktį Įeiti į. Jei mūsų kodas yra be klaidų, jis rodo išvestį.
5 žingsnis : Kai programa vykdoma, ji pirmiausia parodo pranešimų langelį su data, nurodyta teksto įvestyje. Tada spustelėkite Gerai, kad vėl pamatytumėte metų vertę, tada spustelėkite Gerai pranešimo laukelyje, kad pamatytumėte mėnesio vertę.
2 pavyzdys - „DatePart“ naudojimas norint gauti skirtingas datos dalis
1 žingsnis: Eikite į „Excel Developer“ skirtuką, padėkite žymeklį ant langelio „Excel“ lape ir spustelėkite parinktį „Įterpti“, o „ActiveX“ valdiklyje pasirinkite „Komandos mygtukas“, kaip parodyta paveikslėlyje.
2 žingsnis: Vilkite mygtuką ir po savybėmis nurodykite antraštę kaip „DatePart“.
Dukart spustelėkite šį mygtuką. Jis nukreipia į „Visual Basic“ redaktoriaus lapą ir rodomas taip.
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.
- Kai vertėms gauti naudojama „DatePart“, reikia laikytis tinkamo formato. Priešingu atveju tai sukelia „vykdymo laiko klaidą 5“ su pranešimo netinkamu procedūros iškvietimu ar argumentu.
