Mi a VBA DateValue függvény?
A DateValue függvény az Excel VBA beépített függvénye a Dátum / idő függvény kategóriában. VBA és munkalap funkcióként egyaránt működik a VBA-ban. Ez a függvény a karakterlánc-reprezentációs formátumban megadott Date sorozatszámát vagy értékét adja vissza, figyelmen kívül hagyva a Date string által megadott időinformációkat. Az Excel kétféle módon használható. Ezt a függvényt munkalap-képletként használják, ha belépnek egy munkalap cellába. Makrókódként használják a VBA alkalmazásban, a Microsoft Excel programhoz társított Visual Basic Editoron keresztül adja meg.
Ebben a cikkben megismerjük a VBA DATEVALUE példáit és annak használatát világos magyarázattal.
A VBA Datevalue függvény magyarázata
A VBA-ban a DATEVALUE a következő szintaxist használja.
Ez a függvény csak egyetlen argumentumot vagy paramétert használ
- Dátum : Ez a karakterlánc formátumban megjelenített dátum
- Visszatér: Ez a függvény visszaadja a dátum értékét, amikor VBA-függvényként használják. Visszaadja a dátumértéket, ha munkalapfüggvényként használják
A VBA DateValue függvény képes értelmezni a szöveg formátumban ábrázolt adatokat, amelyeket érvényes Excel formátumban említenek. Nem tudja visszaadni a dátumértéket, ha a karakterlánc tartalmazza a hétköznap szöveges ábrázolását.
A VBA DateValue függvény előnyei a dátumérték kibontása a karaktersorozatból és a dátum időbeli átalakítása az egyetlen dátumra. Egyszerűen annyit tehetünk, hogy amikor egy dátumot idővel adunk meg, ez a függvény csak dátumértéket kerül, elkerülve az időértéket.
Hogyan kell használni az Excel VBA DATEVALUE értéket?
Az Excel DateValue függvényének használatához először meg kell nyitnia a VBA szerkesztőt.
A parancsgombot el kell helyezni az Excel munkalapon, hogy hozzá lehessen adni a VBA program sorait. A program sorainak megvalósításához a felhasználónak meg kell kattintania a parancs gombra az excel lapon. Ahhoz, hogy érvényes kimenete legyen a programnak, érvényes argumentumot adunk meg. Például az alábbi kód segít egy makró létrehozásában a DateValue függvény futtatásához, hogy kivonja a dátumértéket a VBA szövegéből.
VBA program:
Sub Datebutton () Dim myDate As Date dátum myDate = DateValue (“1991. augusztus 15.”) MsgBox Date (myDate) End Sub
Ennek a kódnak a dátuma a megadott bemenet 15-ös értéke.
Példák az Excel VBA DATEVALUE-ra
Az alábbiakban bemutatjuk a DateValue példáit az Excel VBA-ban.
1. példa - Nap, hónap és év beszerzése dátumtól
Néhány lépést követünk a program VBA-ban történő létrehozásához és végrehajtásához. Ezek közé tartozik
1. lépés: Lépjen a Fejlesztő fülre, helyezze a kurzort az Excel lap egyik cellájára, kattintson a „Beszúrás” lehetőségre, és válassza az „ActiveX vezérlő” alatt a „Parancs gomb” lehetőséget, az ábra szerint.
Húzza a Gombot a kívánt helyre, és adja meg a feliratot Datebuttonként a tulajdonságok ablakban.
2. lépés: Kattintson duplán a gombra; átirányítja a VBA projektre, és beírja a kódot a Privát alparancs gomb és a végalj közé.
A kódot az alábbiak szerint kell fejleszteni, hogy megkapja a dátumot, a hónapot és az évet.
Kód:
Privát Sub Datebutton1_Click () Dimenziós példány mint Date Exampledate = DateValue ("2019. április 19.") MsgBox dátum MsgBox év (példázott) MsgBox hónap (példázott) Vége al
Ebben a kódban a Datebutton1_Click () a név és a példa dátum változó a Dátum adattípus és az Msgbox segítségével a kimenet megjelenítéséhez.
3. lépés: A kód fejlesztése közben a VBA típus nem megfelelő hibái jelentkeznek, és ezeket gondozniuk kell.
4. lépés: Ebben a lépésben futtassa a programot a futtatás opcióra kattintva.
Vagy lépésről lépésre ellenőrizhetjük vagy hibakereshetjük a programot, a Hibakeresés menü Beállítás opciójának kiválasztásával. Ha kódunk hibátlan, akkor megjeleníti a kimenetet.
5. lépés : A program végrehajtása után először megjeleníti az üzenetdobozt a szövegbevitelben megadott dátummal. Ezután kattintson az OK gombra az évérték újbóli megtekintéséhez, az üzenet mezőben kattintson az OK gombra a hónap értékének megtekintéséhez.
2. példa - A DatePart használata a dátum különböző részeinek megszerzéséhez
1. lépés: Lépjen az Excel Developer fülre, helyezze a kurzort az Excel lap egyik cellájára, majd kattintson az „Insert” opcióra, és válassza az ActiveX Control alatt a „Command Button” lehetőséget, az ábra szerint.
2. lépés: Húzza a gombot, és adja meg a feliratot DatePart néven a tulajdonságok alatt.
Kattintson duplán erre a gombra. A Visual Basic Editor lapra irányul, és a következőképpen jelenik meg.
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.
- Amikor a DatePart-ot használja az értékek lekérésére, a megfelelő formátumot kell követni. Ellenkező esetben az "futási idő hiba 5" az érvénytelen üzenethívással vagy argumentummal vezet.
