Co je funkce VBA DateValue?
Funkce DateValue je vestavěná funkce v aplikaci Excel VBA v kategorii funkce Datum / čas. Funguje jako funkce VBA i funkce listu ve VBA. Tato funkce vrací sériové číslo nebo hodnotu Date poskytovanou ve formátu reprezentace řetězce a ignoruje informace o čase poskytnuté řetězcem Date. V aplikaci Excel se používá dvěma různými způsoby. Tato funkce se používá jako vzorec listu zadávající do buňky listu. Používá se jako kód makra v aplikaci VBA a zadává se pomocí editoru jazyka Visual Basic přidruženého k aplikaci Microsoft Excel.
V tomto článku se naučíme příklady VBA DATEVALUE a jak je používat s jasným vysvětlením.
Vysvětlení funkce VBA Datevalue
Ve VBA používá DATEVALUE následující syntaxi.
Tato funkce používá pouze jeden argument nebo parametr
- Datum : Je to datum vyjádřené ve formátu řetězce
- Vrací: Tato funkce vrací hodnotu data, když je použita jako funkce VBA. Vrátí hodnotu data, když se použije jako funkce listu
Funkce VBA DateValue dokáže interpretovat data reprezentovaná v textovém formátu uvedeném v platném formátu Excel. Není možné vrátit hodnotu data, pokud řetězec obsahoval textovou reprezentaci dne v týdnu.
Mezi výhody funkce VBA DateValue patří extrakce hodnoty data z řetězce a převod data s časem na jediné datum. Můžeme jednoduše říci, že když je datum uvedeno s časem, tato funkce pouze hodnotu data vyhne hodnotě času.
Jak používat Excel VBA DATEVALUE?
Chcete-li použít funkci DateValue v aplikaci Excel, musíte nejprve otevřít editor VBA.
Chcete-li do něj přidat řádky programu VBA, je třeba do příkazového tlačítka umístit příkazové tlačítko. Chcete-li implementovat řádky programu, uživatel vyžaduje klepnutí na příkazové tlačítko v listu aplikace Excel. Chcete-li mít platný výstup z programu, je platný vstup zadán argumentem. Například následující kód pomáhá vytvoření makra ke spuštění funkce DateValue k extrakci hodnoty data z textu ve VBA.
Program VBA:
Sub Datebutton () Dim myDate As Date myDate = DateValue („15. srpna 1991“) MsgBox Date (myDate) End Sub
Výsledkem tohoto kódu je datum 15 z daného vstupu.
Příklady Excel VBA DATEVALUE
Níže jsou uvedeny příklady DateValue v aplikaci Excel VBA.
Příklad č. 1 - Získejte den, měsíc a rok z data
K vytvoření a spuštění programu ve VBA je dodrženo několik kroků. Mezi ně patří
Krok 1: Přejděte na kartu Vývojář, umístěte kurzor na buňku v listu aplikace Excel a klikněte na možnost „Vložit“ a vyberte „Příkazové tlačítko“ pod ovládacím prvkem ActiveX, jak je znázorněno na obrázku.
Přetáhněte tlačítko na požadované místo a v okně vlastností zadejte titulek jako Datebutton.
Krok 2: Poklepejte na tlačítko; přesměruje se na projekt VBA a zapíše kód mezi tlačítko Soukromý dílčí příkaz a koncový díl.
Tento kód by měl být vyvinut níže, aby získal datum, měsíc a rok.
Kód:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox rok (Exampledate) MsgBox měsíc (Exampledate) End Sub
V tomto kódu je Datebutton1_Click () název a ukázkové datum jsou proměnné s datovým typem Date a Msgbox pro zobrazení výstupu.
Krok 3: Při vývoji kódu dojde k chybám nesouladu typu VBA a je třeba se o ně postarat.
Krok 4: V tomto kroku spusťte program kliknutím na možnost spuštění.
Nebo můžeme program zkontrolovat nebo ladit krok za krokem, výběrem možnosti Krok do v nabídce Debug. Pokud je náš kód bez chyb, zobrazí výstup.
Krok 5 : Když je program spuštěn, nejprve zobrazí okno se zprávou s datem uvedeným v textovém vstupu. Dále klikněte na OK pro opětovné zobrazení hodnoty roku, klikněte na OK v okně se zprávou pro zobrazení hodnoty měsíce.
Příklad č. 2 - Použití DatePart k získání různých částí data
Krok 1: Přejděte na kartu Vývojář aplikace Excel, umístěte kurzor na buňku v listu aplikace Excel a klikněte na možnost „Vložit“ a vyberte „Příkazové tlačítko“ pod ovládacím prvkem ActiveX, jak je znázorněno na obrázku.
Krok 2: Přetáhněte tlačítko a pod vlastnostmi uveďte titulek jako DatePart.
Poklepejte na toto tlačítko. Směruje na list editoru jazyka a zobrazuje se následujícím způsobem.
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.
- Když se k získání hodnot používá DatePart, měl by se dodržovat příslušný formát. Jinak vede „chybu běhu 5“ s hlášením nebo argumentem neplatné procedury zprávy.
