Čo je funkcia VBA DateValue?
Funkcia DateValue je zabudovaná funkcia v programe Excel VBA v kategórii funkcia Dátum / čas. Funguje ako funkcia VBA aj funkcia listu vo VBA. Táto funkcia vráti sériové číslo alebo hodnotu dátumu uvedenú vo formáte reprezentácie reťazca, pričom ignoruje informácie o čase poskytnuté reťazcom Date. V programe Excel sa používa dvoma rôznymi spôsobmi. Táto funkcia sa používa ako vzorec hárka zadávajúci do bunky hárka. Používa sa ako kód makra v aplikácii VBA a zadáva sa cez editor jazyka Visual Basic spojený s programom Microsoft Excel.
V tomto článku sa dozvieme príklady VBA DATEVALUE a ako ju používať s jasným vysvetlením.
Vysvetlenie funkcie VBA Datevalue
Vo VBA používa DATEVALUE nasledujúcu syntax.
Táto funkcia používa iba jeden argument alebo parameter
- Dátum : Je to dátum vyjadrený vo formáte reťazca
- Vráti: Táto funkcia vráti hodnotu dátumu, keď sa použije ako funkcia VBA. Vráti hodnotu dátumu, keď sa použije ako funkcia pracovného hárka
Funkcia VBA DateValue dokáže interpretovať údaje reprezentované v textovom formáte, ktorý je uvedený v platnom formáte Excel. Ak reťazec obsahoval textovú reprezentáciu dňa v týždni, nie je schopný vrátiť hodnotu dátumu.
Výhodou funkcie VBA DateValue je extrahovanie hodnoty dátumu z reťazca a prevod dátumu s časom na jediný dátum. Môžeme jednoducho povedať, že keď je dátum uvedený s časom, táto funkcia slúži len na hodnotu dátumu a vyhýba sa hodnote času.
Ako používať Excel VBA DATEVALUE?
Ak chcete používať funkciu DateValue v programe Excel, musíte najskôr otvoriť editor VBA.
Ak chcete doň pridať riadky programu VBA, je potrebné umiestniť príkazové tlačidlo do pracovného hárka programu Excel. Na implementáciu riadkov programu vyžaduje užívateľ kliknutie na príkazové tlačidlo v hárku programu Excel. Aby ste mali platný výstup z programu, platný vstup sa zadáva prostredníctvom argumentu. Napríklad nasledujúci kód pomáha pri vytváraní makra na spustenie funkcie DateValue na extrahovanie hodnoty dátumu z textu vo formáte VBA.
Program VBA:
Sub Datebutton () Dim myDate As Date myDate = DateValue (“15. August 1991”) MsgBox Date (myDate) End Sub
Výsledkom tohto kódu je dátum ako 15 od daného vstupu.
Príklady DATEVALUE programu Excel VBA
Ďalej uvádzame príklady hodnoty DateValue v programe Excel VBA.
Príklad č. 1 - Získajte deň, mesiac a rok z dátumu
Na vytvorenie a spustenie programu vo VBA je potrebných niekoľko krokov. Patria medzi ne
Krok 1: Prejdite na kartu Vývojár, umiestnite kurzor na bunku v hárku programu Excel a kliknite na možnosť „Vložiť“ a v rámci ovládacieho prvku ActiveX vyberte možnosť „Príkazové tlačidlo“, ako je to znázornené na obrázku.
Potiahnite tlačidlo, kam chcete, a z okna vlastností zadajte titulok ako Datebutton.
Krok 2: Dvakrát kliknite na tlačidlo; presmeruje na projekt VBA a napíše kód medzi tlačidlo Súkromný podpríkaz a koncový sub.
Tento kód by mal byť vyvinutý nižšie, aby získal dátum, mesiac a rok.
Kód:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Year (Exampledate) MsgBox month (Exampledate) End Sub
V tomto kóde je Datebutton1_Click () názov a ukážka dátumu je premenná s typom údajov Date a Msgbox na zobrazenie výstupu.
Krok 3: Pri vývoji kódu sa vyskytnú chyby nesúladu typov VBA a je potrebné sa o ne postarať.
Krok 4: V tomto kroku spustite program kliknutím na možnosť spustenia.
Alebo môžeme program krok za krokom skontrolovať alebo odladiť výberom možnosti Krok do v ponuke Debug. Ak je náš kód bez akýchkoľvek chýb, zobrazí sa výstup.
Krok 5 : Po spustení programu sa najskôr zobrazí okno so správou s dátumom uvedeným v textovom vstupe. Ďalej kliknite na OK, aby ste znova videli hodnotu roka, kliknite na OK v okne správy, aby ste videli hodnotu mesiaca.
Príklad č. 2 - Použitie DatePart na získanie rôznych častí dátumu
Krok 1: Prejdite na kartu Excel Developer, umiestnite kurzor na bunku v hárku programu Excel a kliknite na možnosť „Vložiť“ a v rámci ovládacieho prvku ActiveX zvoľte „Príkazové tlačidlo“, ako je to znázornené na obrázku.
Krok 2: Presuňte tlačidlo a v rámci vlastností zadajte titulok ako DatePart.
Dvakrát kliknite na toto tlačidlo. Nasmeruje sa na hárok editora Visual Basic a zobrazí sa nasledovne.
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.
- Ak sa na získanie hodnôt použije DatePart, mal by sa dodržať vhodný formát. V opačnom prípade vedie „chyba chodu 5“ s volaním alebo argumentom neplatnej procedúry správy.
