Mi a VBA DateSerial?

A VBA DATEERIAL funkció egy beépített függvény az Excel programban. DÁTORI függvény egy dátumot ad vissza, megadva az év, a hónap és a nap értékét. Tegyük fel például, ha a mai dátum 2019. július 18. Egyes felhasználók ezt írhatják: 19-július 18-án vagy 19-jén 19-én. A dátumok formátumai több felhasználónál eltérőek lehetnek. Ez elválaszthatatlan feladatot ad nekünk, több dátummal, különböző formátumokban.

Mint a fentiekben meghatározott problémamegjegyzés, a dátumok formátuma több felhasználó számára eltérő lehet. Itt jön a dátum soros funkció a VBA-hoz. Nagyon jó funkció, ha saját dátummal készítjük azokat az értékeket, amelyeket meghatározunk. Részletesen ossza meg velünk ezt a funkciót. A DateSerial függvény a VBA-ban egy dátum- és időfüggvény, tehát ennek a funkciónak a visszatért értéke DATE. Ennek a függvénynek a szintaxisa használatának módja a következő.

A VBA DateSerial szintaxisa

A VBA DateSerial függvény szintaxisa az Excelben a következő:

Három érvre van szükség év, hónap és nap.

  • Év: A függvény argumentumának ezen része elfogadott tartománya 100-9999. Az argumentum adattípusának egésznek kell lennie.
  • Hónap: Az argumentum ezen részének a függvényben elfogadott tartománya 1-12. Az argumentum adattípusának egésznek kell lennie.
  • Nap: Az argumentum ezen részének elfogadott tartománya a függvényben 1-31. Az argumentum adattípusának egésznek kell lennie.

De itt van ennek a funkciónak a hűvös része. Ha az elfogadott tartomány feletti argumentumot adunk meg, akkor a funkció nem ad vissza hibát, kiszámítja a tartomány további részét és megjeleníti a dátumot. Például, ha a bemenetet soros sorrendként adom meg (2019, 14, 02), akkor tudjuk, hogy egy évben csak 12 hónap lehet, de érvként 14-et adtam meg. A függvény nem ad vissza hibát, hanem hozzáadja a tárgyév két további hónapját, tehát a output 2020-02-02 lesz.

Hogyan lehet használni a VBA DateSerial függvényt az Excelben?

Megtanuljuk, hogyan kell használni a VBA DateSerial függvényt néhány példával az Excelben.

Itt töltheti le a VBA DateSerial Excel sablont - VBA DateSerial Excel sablon

Vizsgáljuk meg ezt a funkciót néhány példával, amelyek sokkal világosabbá teszik számunkra a dolgokat.

1. példa - VBA DateSerial

Először adjunk meg egy egyszerű dátumot egy változónak a dátum soros funkció segítségével, és nézzük meg a kapott outputot.

1. lépés: Mielőtt elkezdenénk a példáinkkal, először ellenőrizze, hogy engedélyezve van-e a fejlesztői fül, majd lépjen a kódrészletre a VB szerkesztő megnyitásához, a Visual Basic-re kattintva, ahogy az alábbi képen látható.

2. lépés: A fenti ablakban kattintson a Beszúrás fülre a modul beszúrásához. Ugyanazon modulban fogunk dolgozni az összes példánkhoz.

3. lépés: Indítsa el az alfolyamatot az alábbiak szerint, és deklarálja a változót dátum adattípusként.

Kód:

 Alminta () Dim Dt mint dátum vége Sub

4. lépés: Adjon meg egy dátumot a változónak a dátum soros funkció használatával.

Kód:

 Alminta () Dim Dt As Date Dt = DateSerial (2019, 7, 2) End Sub

5. lépés: Az msgbox funkció segítségével jelenítse meg a változónkban tárolt értéket.

Kód:

 Alminta () Dim Dt Mint Dátum = DateSerial (2019, 7, 2) MsgBox Dt End Sub

6. lépés: A fenti kód végrehajtásakor a következő eredményt kapjuk.

2. példa - VBA DateSerial

Most próbáljuk ki azt az elméletet, amelyet a bevezetésben fentebb tárgyaltunk: ha az értékeket megadjuk az elfogadott tartományon kívül, és a függvény kiszámítja a dátumot nekünk.

1. lépés: Ugyanebben a modulban indítsa el a következő alprocesszort.

Kód:

 1. alminta () az al

2. lépés: Most definiáljon egy változót a dátum adattípusával.

Kód:

 Alminta1 () Dim Dt mint dátum vége Sub

3. lépés: Adjuk meg a bemenetet a DT változóhoz a dátum soros funkció segítségével, az alább látható módon.

Kód:

 Alminta1 () Dim Dt mint Dátum = DateSerial (2019, 14, 2) Befejezés Sub

4. lépés: Az msgbox funkció segítségével jelenítse meg a Dt változóban tárolt értéket.

Kód:

 Alminta1 () Dim Dt Mint Dátum = DateSerial (2019, 14, 2) MsgBox Dt End Sub

5. lépés: Most hajtsa végre a fenti kódot, és az alábbiak szerint nézze meg az eredményt.

Láthatjuk, hogy az év megváltozott, mivel két további hónapot adtunk az érveléshez. Alapvetően ez a funkció 14 hónapot adott hozzá a 2019-es évhez, amely 2020 második hónapját és 2. dátumát adott nekünk.

3. példa - VBA DateSerial

A fenti példákban az érveket általánosságban adtuk meg. Megvitatták azt, hogy a felhasználók hogyan tudnak abszurd értékeket megadni a dátum szakaszban formátumként, mivel a dátumok írása különbözik az egyes egyénektől. Két dátumformátumot hasonlítunk össze ebben a példában a dátum soros funkcióval.

1. lépés: Ugyanazon modulban definiáljon egy másik alprocesszort a következő példában a harmadik példához.

Kód:

 2. alminta () az al

2. lépés: Ebben a forgatókönyvben definiáljon két változót dátumként, az alább látható módon.

Kód:

 Alminta2 () Dim Dt1, Dt2 mint dátum vége Sub

3. lépés: Most az első változóban adjuk meg a dátumot egyszerű, szabályos módon, a dateerial függvény felhasználásával.

Kód:

 Alminta2 () Dim Dt1, Dt2 dátumként Dt1 = DateSerial (2019, 12, 31) End Sub

4. lépés: Most adjuk meg a második változó számára a dátumot szabálytalan módon, az alább látható módon a dateerial függvény felhasználásával.

Kód:

 Alminta2 () Dim Dt1, Dt2 dátumként Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) End Sub

5. lépés: Most nyomtassa ki mindkét értéket az msgbox funkcióval.

Kód:

 Alminta2 () Dim Dt1, Dt2 dátumként Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

6. lépés: Végezzük el a fenti kódot, hogy megtaláljuk az alábbi eredményt.

Láthatjuk, hogy mindkét dátum megegyezik. A két számjegyű 19 évet 2019-re kell értelmezni.

Dolgok, amikre emlékezni kell

  • Dátum és idő függvény, tehát a kimenet dátumban van.
  • Ha a funkcióhoz megadott érték meghaladja a függvény elfogadott tartományát, akkor automatikusan kiszámítja a dátumot, nem pedig hibát ad.
  • Ha az argumentumokhoz megadott értékek meghaladják azt az értéket, amelyet egy egész szám tarthat meg, akkor a függvény hibát ad vissza.

Ajánlott cikkek

Ez egy útmutató a VBA DateSerial-hoz. Itt megvitatjuk, hogyan lehet használni az Excel VBA DateSerial Function funkciót, valamint a gyakorlati példákat és a letölthető Excel sablont. Megnézheti más javasolt cikkeinket -

  1. A VBA InStr példákkal magyarázta
  2. VBA egész szám adattípus
  3. VBA ISNULL Példákkal magyarázva
  4. VBA dátumformátum (példák)

Kategória:

VBA