VBA DateSerial Function - Hogyan kell használni a DateSerial függvényt? (Példák)

Excel VBA DateSerial függvény

A VBA DateSerial függvénye a dátumot a felhasználók által megadott értékekből adja vissza. Meg kell adnunk, hogy mi az év, mi a nap és mi a hónap. Az eredmény a rendszer dátumformátumán alapul.

Az alábbiakban látható a DATESERIAL függvény szintaxisa .

# 1 - Év: meg kell adnunk az egész számot, ami az év? Egész számok megadása közben szem előtt kell tartanunk a dolgokat.

  • 0 és 9999 közötti számokat tudunk szolgáltatni.
  • A 0 és 99 közötti egy- és kétjegyű számokat 1930 és 2029 között kezeljük.
  • A negatív egész szám kivonásra kerül a 2000-es évből. Például, ha -1-et ad meg, akkor az eredmény 1999 lesz 2000 miatt - 1 = 1999.

# 2 - Hónap: meg kell adnunk az egész számot, ami a hónap? A szám beírása közben a dolgokat szem előtt kell tartanunk.

  • Csak 1 és 12 közötti számokat tudunk megadni.
  • Ha a megadott egész érték 0, akkor ez az előző év „december” hónapját jelenti.
  • Ha a megadott egész érték -1, akkor ez az előző év „november” hónapját jelenti. Így, amikor a negatív érték növekszik, az a visszaeső hónapot fogja képviselni.
  • Ha a megadott szám meghaladja a 12-et, azaz ha a szám 13, akkor ez a következő év „januárját” jelenti. Ha a szám 14, akkor azt a következő év „februárjának” hónapjaként kezeljük.

# 3 - Nap: meg kell adnunk az egész számot, mi az a nap? A szám beírása közben a dolgokat szem előtt kell tartanunk.

  • Az aktuális havi napokra egész számokat írhatunk be 1-től 31-ig.
  • Ha a szám 0, akkor az az előző hónap utolsó napját jelenti.
  • Ha a szám -1, akkor az az előző hónap második utolsó napját jelenti.
  • Ha e hónap utolsó napját +1 adja meg, akkor ez a következő hónap első napját jelenti. Például, ha augusztus utolsó napja 31, és ha a napot 31 + 1-ként adja meg, akkor ez szeptember első napját jelenti.

Hogyan kell használni a DATESERIAL funkciót a VBA-ban?

1. példa

A DATESERIAL függvény használatához kezdje el írni a makrókódot.

1. lépés: Indítsa el a másodlagos eljárást

Először hozzon létre egy VBA alfolyamatot, az alábbiak szerint.

2. lépés: Változó deklarálása

Nyújtson be egy változót DATE néven.

3. lépés: Rendelje hozzá a DateSerial függvényt ehhez a változóhoz.

Most ehhez a változóhoz rendelje hozzá a DATESERIAL függvényt.

4. lépés: Most írja be az év, a hónap és a nap értékeit a DateSerial függvénybe

A YEAR 2019-es, a MONTH 08-as és a DAY 05-ös ellátáshoz.

5. lépés: Az eredmény megjelenítése az Üzenetdobozban

Most mutassa meg a „Saját dátum” változó eredményét az üzenetmezőben.

Kód:

Opció Explicit Sub DateSerial_Example1 () Dim Mydate as Date Mydate = DateSerial (2019, 8, 5) MsgBox Mydate End Sub
6. lépés: Futtassa a kódot

Most futtassa ezt a kódot, hogy lássa az alábbi dátumot.

Az eredmény szerint „2019.08.05.”. Rendszeremben a dátumformátum „HH-NN-ÉÉÉÉ” formában van, ezért az eredmény is ugyanabban a formátumban van.

A dátum formátumát a VBA FORMÁT függvény használatával is megváltoztathatjuk. Alkalmazza a FORMAT függvényt az alábbiak szerint.

Kód:

Opció Explicit Sub DateSerial_Example1 () Dim Mydate as Date Mydate = DateSerial (2019, 8, 5) MsgBox Format (Mydate, "DD-MMM-YYYY") End Sub Sub

Ez a „NN-HH-ÉÉÉÉ” formátumot alkalmazza, és az eredmény a következő.

2. példa

Deklarálhatunk változókat is, és megadhatjuk az értékeket ezeknek a változóknak. Nézze meg például az alábbi kódot.

Kód:

Sub DateSerial_Example2 () Dim Mydate as Date Dim MyYear as Integer Dim MyHonth as Integer Dim MyDay As Integer MyYear = 2019 Szavam = 8 MyDay = 5 Mydate = DateSerial (MyYear, MyHonth, MyDay) MsgBox Format (Mydate-"YD-MM" ") Vége al

Instead of supplying year, month, and day directly to the DATESERIAL function, we have declared variables and assigned values to them. Then later, we have supplied variables to the DATESERIAL function.

This is how we can make use of variables in VBA to store values.

Example #3

Now we will experiment with the year. I will assign the year value as 1 and see the result.

Single & Double-digit numbers in YEAR represents a year from 1930 to 2029. So 01 means 2001, 02 means 2002, and so on.

Now let’s change the month number to 0 and see the result.

Look at the code here, Year is 2019, and the month is 0. But look at the result it says 05-Dec-2019, whereas a supplied year is 2019 it says 2018 i.e., the previous year.

Ez azért van, mert mivel a hónapot 0 DATESERIAL függvényként szolgáltattuk, az előző év utolsó hónapját veszi igénybe, és ennek megfelelően változtatja meg az évet is.

Így próbálkozzon különböző számokkal, hogy lássa a függvény hatását.

Dolgok, amikre emlékezni kell

  • Tudnia kell, hogy melyik szám melyik évet, hónapot és napköziot képviseli. Gondosan olvassa el a Szintaxis magyarázatát, hogy megértse.
  • Az eredmény a rendszer dátumformátumán alapul. Ha módosított eredményt szeretne, akkor a FORMAT függvényt kell alkalmaznia, a kényelemnek megfelelően említse meg a dátum formátumát.

érdekes cikkek...