Ebben az oktatóanyagban a különböző beépített VBA dátumfüggvényeket fogjuk végigjárni.
VBA dátum funkció
A Dátum funkcióval visszaadhatja az aktuális dátumot.
A Dátum függvény szintaxisa a Dátum (). Nincsenek érvei.
A következő kód bemutatja a Dátum funkció használatát:
12345678 | A TheDateFunction () használataHalványítsa el a dátumot dátumkénttheDate = Dátum ()Hibakeresés. Nyomtassa ki a dátumotEnd Sub |
Az eredmény:
VBA most funkció
A Most funkcióval visszaadhatja az aktuális dátumot és időt.
A Now függvény szintaxisa a Now (). Nincsenek érvei.
A következő kód bemutatja a Now funkció használatát:
12345678 | SubTheTheNowFunction ()Halványítsa el a dátumot dátumkénttheDate = Most ()Hibakeresés. Nyomtassa ki a dátumotEnd Sub |
Az eredmény:
VBA időfunkció
Az Idő funkcióval visszaállíthatja az aktuális időt.
Az időfüggvény szintaxisa az idő (). Nincsenek érvei.
A következő kód bemutatja az időfüggvény használatát:
12345678 | ATimeFunction () használataAz Időt dátumként tompítsatheTime = Time ()Hibakeresés. Nyomtassa ki az időtEnd Sub |
Az eredmény:
VBA DateAdd függvény
A DateAdd függvénnyel dátumot/időintervallumot adhat hozzá egy dátumhoz vagy időhöz, és a függvény visszaadja a kapott dátumot/időt.
A DateAdd függvény szintaxisa a következő:
DateAdd (intervallum, szám, dátum), ahol:
- Időköz - Egy karakterlánc, amely meghatározza a használandó intervallum típusát. Az intervallum az alábbi értékek egyike lehet:
„D” - nap
"Ww" - hét
„W” - hétköznap
„M” - hónap
„Q” - negyedév
„Yyyy” - év
„Y” - az év napja
"H" - óra
„N” - perc
„S” - második
- Szám - Az eredeti dátumhoz/időhöz hozzáadni kívánt intervallumok száma.
- Dátum - Az eredeti dátum/idő.
Megjegyzés: Amikor dátumokat használ a kódban, azokat # vagy idézőjelek közé kell írni.
A következő kód bemutatja a DateAdd függvény használatát:
123456789 | SubTheTheDateAddFunction ()Dátum későbblaterDate = DateAdd ("m", 10, "2019.11.12.")Hibakeresés. Nyomtatás későbbDátumEnd Sub |
Az eredmény:
VBA DateDiff függvény
A DateDiff függvénnyel két dátum közötti különbséget kaphat egy meghatározott időintervallum alapján.
A DateDiff függvény szintaxisa a következő:
DateDiff (Időköz, Dátum1, Dátum2, [Hét első napja], [Első hét]), ahol:
- Időköz - Egy karakterlánc, amely meghatározza a használandó intervallum típusát. Az intervallum az alábbi értékek egyike lehet:
„D” - nap
"Ww" - hét
„W” - hétköznap
„M” - hónap
„Q” - negyedév
„Yyyy” - év
„Y” - az év napja
"H" - óra
„N” - perc
„S” - második
- Dátum1 - A korábbi dátumot képviselő dátumérték.
- Dátum2 - A későbbi dátumot képviselő dátumérték.
- A hét első napja (Választható) - Állandó, amely meghatározza azt a hét napot, amelyet a függvény a hét első napjaként használ. Ha üres vasárnapot használ a hét első napjául. A Firstdayofweek az alábbi értékek egyike lehet:
-vbSunday - a vasárnapot használja a hét első napjául.
-vbMonday - a hétfőt használja a hét első napjául.
-vbTuesday - a kedd a hét első napja.
-vbSzerda - a szerdát használja a hét első napjául.
-vbThursday - a csütörtököt használja a hét első napjául.
-vbPéntek - a pénteki napot használja a hét első napjául.
-vbSaturday - a szombatot használja a hét első napjául.
-vbUseSystemDayOfTheWeek - a rendszer beállításai által meghatározott hét első napját használja.
- Az év első hete (Választható) - Az év első hetét meghatározó állandó. Ha üres, akkor a január 1. hetet kell használni az év első hetének. Az első hét lehet az alábbi értékek egyike:
-vbFirstJan1 - a január 1 -ét tartalmazó hetet használja.
-vbFirstFourDays - az első hetet használja, amely legalább négy napot tartalmaz az új évben.
-vbFirstFullWeek - az év első teljes hetét használja.
-vbSystem - az év első hetét használja a rendszerbeállítások szerint.
A következő kód bemutatja a DateDiff függvény használatát:
123456789 | SubTheTheDateDiffFunction ()Halványítsa el a DifferenceBetweenTwoDates dátumottheDifferenceBetweenTwoDates = DátumDiff ("q", "2010.11.11.", "2012.10.10.")Hibakeresés. Nyomtassa ki a DifferenceBetweenTwoDates lehetőségetEnd Sub |
Az eredmény:
VBA DatePart funkció
A DatePart függvény segítségével visszaadhatja az adott dátum egy részét (nap, hét, negyedév, hónap stb.).
A DatePart függvény szintaxisa a következő:
DatePart (Időköz, Dátum, [Hét első napja], [Első hét]), ahol:
- Időköz - Egy karakterlánc, amely meghatározza a visszaadandó dátum részét. Az intervallum az alábbi értékek egyike lehet:
„D” - nap
"Ww" - hét
„W” - hétköznap
„M” - hónap
„Q” - negyedév
„Yyyy” - év
„Y” - az év napja
"H" - óra
„N” - perc
„S” - második
- Dátum - Az a dátum, amelytől a függvény egy részét vissza szeretné adni.
- A hét első napja (Választható) - Állandó, amely meghatározza azt a hét napot, amelyet a függvény a hét első napjaként használ. Ha üres vasárnapot használ a hét első napjául. A Firstdayofweek az alábbi értékek egyike lehet:
-vbSunday - a vasárnapot használja a hét első napjául.
-vbMonday - a hétfőt használja a hét első napjául.
-vbTuesday - a kedd a hét első napja.
-vbSzerda - a szerdát használja a hét első napjául.
-vbThursday - a csütörtököt használja a hét első napjául.
-vbPéntek - a pénteki napot használja a hét első napjául.
-vbSaturday - a szombatot használja a hét első napjául.
-vbUseSystemDayOfTheWeek - a rendszer beállításai által meghatározott hét első napját használja.
- Az év első hete (Választható) - Az év első hetét meghatározó állandó. Ha üres, akkor a január 1. hetet kell használni az év első hetének. Az első hét lehet az alábbi értékek egyike:
-vbFirstJan1 - a január 1 -ét tartalmazó hetet használja.
-vbFirstFourDays - az első hetet használja, amely legalább négy napot tartalmaz az új évben.
-vbFirstFullWeek - az év első teljes hetét használja.
-vbSystem - az év első hetét használja a rendszerbeállítások szerint.
A következő kód bemutatja a DatePart függvény használatát:
123456789 | SubTheTheDatePartFunction ()A PartOfTheDate dimenziója egész számkéntthePartOfTheDate = DatePart ("éééé", "2009.12.12.")Hibakeresés. Nyomtassa ki a PartOfTheDate dátumotEnd Sub |
Az eredmény:
VBA DateSerial függvény
A VBA DateSerial függvény beviteli évet, hónapot és napot ad meg, és visszaad egy dátumot.
A DateSerial függvény szintaxisa a következő:
DateSerial (év, hónap, nap), ahol:
- Év - 100 és 9999 közötti egész szám, amely az évet jelöli.
- Hónap - A hónapot ábrázoló egész érték.
- Nap - egész érték, amely a napot jelöli.
A következő kód bemutatja a DateSerial függvény használatát:
123456789 | SubTheTheDateSerialFunction ()Halványítsa el a dátumot dátumkénttheDate = DateSerial (2010, 11, 10)Hibakeresés. Nyomtassa ki a dátumotEnd Sub |
Az eredmény:
VBA DateValue függvény
A DateValue függvény egy dátumot ad vissza, amikor egy dátum karakterláncot ábrázol.
A DateValue függvény szintaxisa a következő:
DateValue (Dátum) ahol:
- Dátum - A dátumot jelképező karakterlánc.
A következő kód bemutatja a DateValue függvény használatát:
123456789 | Sub UsingTheDateValueFunction ()Halványítsa el a dátumot dátumkénttheDate = DateValue ("2010. október 29.")Hibakeresés. Nyomtassa ki a dátumotEnd Sub |
Az eredmény:
VBA nappali funkció
A Nap funkcióval visszaadhatja a beviteli dátum napját.
A napi függvény szintaxisa a következő:
Nap (Dátum_érték), ahol:
- Dátum_érték - Az a dátum, amelyből ki szeretné vonni a napot.
A következő kód bemutatja a Nap funkció használatát:
123456789 | A TheDayFunction () használataHalványítsa el a Napot egész számkénttheDay = nap ("10/12/2010")Hibakeresés. Nyomtassa ki a napotEnd Sub |
Az eredmény:
VBA óra funkció
Az Óra funkció segítségével visszaadhatja a beviteli idő óráját.
Az Óra függvény szintaxisa a következő:
Óra (idő), ahol:
- Idő - Az az idő, amelyből ki kívánja venni az órát.
A következő kód bemutatja az Óra funkció használatát:
123456789 | A TheHourFunction () használataHalványítsa el az órát egész számkénttheHour = Óra ("2:14:17 AM")Hibakeresés. Nyomtassa ki az ÓratEnd Sub |
Az eredmény:
VBA percfunkció
A percfunkció segítségével visszaadhatja a bemeneti idő percértékét.
A percfüggvény szintaxisa a következő:
Perc (idő), ahol:
- Idő - Az az idő, amelyből ki akarja nyerni a percértéket.
A következő kód bemutatja a percfunkció használatát:
123456789 | SubTheTheMinuteFunction ()A MinuteValue dimenziója egész számkénttheMinuteValue = Perc ("2:14:17 AM")Hibakeresés. Nyomtassa ki a MinuteValue értéketEnd Sub |
Az eredmény:
VBA második funkció
A Second Function segítségével visszaadhatja a bemeneti idő második értékét.
A második függvény szintaxisa:
Második (idő) ahol:
- Idő - Az az idő, amelyből ki szeretné vonni a második értéket.
A következő kód bemutatja a második funkció használatát:
123456789 | ASecondFunction funkció használata ()A Második Érték dimenziója egész számkénttheSecondValue = Második ("2:14:17 AM")Hibakeresés. Nyomtassa ki a Második értéketEnd Sub |
Az eredmény:
VBA Hónap funkció
A Hónap funkcióval visszaadhatja a beviteli dátum hónapját.
A Hónap függvény szintaxisa:
Hónap (Dátum_érték), ahol:
- Dátum_érték - Az a dátum, amelyből ki szeretné vonni a hónapot.
A következő kód bemutatja a Hónap funkció használatát:
12345678 | SubTheTheMonthFunction ()Halványítsa a hónapot egész számkénttheMonth = hónap ("2010.11.18.")Hibakeresés. Nyomtassa ki a HónapotEnd Sub |
Az eredmény:
VBA MonthName függvény
A MonthName függvénnyel visszaadhatja a hónap nevét egy megadott hónapszámból.
A MonthName függvény szintaxisa a következő:
MonthName (hónap_hónapja, [Rövidítés]) ahol:
- Hónap_szám - 1 és 12 közötti egész érték.
- Rövidítés (Választható) - Megadja, hogy a hónap nevét rövidíteni kell -e. Ha üres, a Hamis alapértelmezett értéket használja.
12345678 | SubTheTheMonthNameFunction ()Halványítsa el a Hónap nevet karakterlánckénttheMonthName = MonthName (12, igaz)Hibakeresés. Nyomtassa ki a HónevetEnd Sub |
Az eredmény:
VBA TimeSerial funkció
A TimeSerial funkció egy órát, percet és másodpercet vesz igénybe, és visszaad egy időt.
A TimeSerial függvény szintaxisa a következő:
TimeSerial (óra, perc, másodperc), ahol:
- Óra - 0 és 23 közötti egész szám, amely az óra értékét jelzi.
- Perc - 0 és 59 közötti egész szám, amely a percértéket jelenti.
- Második - 0 és 59 közötti egész szám, amely a második értéket képviseli.
A következő kód bemutatja a TimeSerial funkció használatát:
12345678 | A TheTimeSerialFunction alhasználata ()Az Időt dátumként tompítsatheTime = TimeSerial (1, 10, 15)Hibakeresés. Nyomtassa ki az időtEnd Sub |
Az eredmény:
VBA TimeValue függvény
A TimeValue függvény Időt ad vissza egy dátum vagy idő karakterlánc -ábrázolásából.
A TimeValue függvény szintaxisa a következő:
TimeValue (Idő) ahol:
- Idő - Az időt jelképező karakterlánc.
A következő kód bemutatja a TimeValue függvény használatát:
12345678 | Sub UsingTheTimeValueFunction ()Az Időt dátumként tompítsatheTime = TimeValue ("22:10:17")Hibakeresés. Nyomtassa ki az időtEnd Sub |
Az eredmény:
VBA hétköznapi funkció
A Hétköznap funkcióval 1-7 közötti egész számot adhat vissza a beviteli dátumtól számítva.
A hétköznapi függvény szintaxisa a következő:
Hétköznap (dátum, [hét első napja]), ahol:
- Dátum - Az a dátum, amelyből ki kívánja vonni a hétköznapi értéket.
- A hét első napja (Választható) - Állandó, amely meghatározza azt a hét napot, amelyet a függvény a hét első napjaként használ. Ha üres vasárnapot használ a hét első napjául. A Firstdayofweek az alábbi értékek egyike lehet:
-vbSunday - a vasárnapot használja a hét első napjául.
-vbMonday - a hétfőt használja a hét első napjául.
-vbTuesday - a kedd a hét első napja.
-vbSzerda - a szerdát használja a hét első napjául.
-vbThursday - a csütörtököt használja a hét első napjául.
-vbPéntek - a pénteki napot használja a hét első napjául.
-vbSaturday - a szombatot használja a hét első napjául.
-vbUseSystemDayOfTheWeek - a rendszer beállításai által meghatározott hét első napját használja.
A következő kód bemutatja a hétköznapi funkció használatát:
1234567 | AWeekdayFunction funkció használata ()Halványítsa be a hét napját egész számkénttheWeekDay = Hétköznap ("2019/11/20")Hibakeresés. Nyomtassa ki a Hét napotEnd Sub |
Az eredmény:
VBA WeekdayName függvény
A WeekdayName függvénnyel visszaadhatja a hét napja nevét a megadott hétköznapi számból.
A WeekdayName függvény szintaxisa a következő:
HétköznapNév (Hétköznap, [Rövidítés], [Hét első napja]), ahol:
- Hétköznap - 1 és 7 közötti egész érték.
- Rövidítés (Választható) -Megadja, hogy a hétköznap nevét rövidíteni kell -e. Ha üres, a Hamis alapértelmezett értéket használja.
- A hét első napja (Választható) - Állandó, amely meghatározza azt a hét napot, amelyet a függvény a hét első napjaként használ. Ha üres vasárnapot használ a hét első napjául. A Firstdayofweek az alábbi értékek egyike lehet:
-vbSunday - a vasárnapot használja a hét első napjául.
-vbMonday - a hétfőt használja a hét első napjául.
-vbTuesday - a kedd a hét első napja.
-vbSzerda - a szerdát használja a hét első napjául.
-vbThursday - a csütörtököt használja a hét első napjául.
-vbPéntek - a pénteki napot használja a hét első napjául.
-vbSaturday - a szombatot használja a hét első napjául.
-vbUseSystemDayOfTheWeek - a rendszer beállításai által meghatározott hét első napját használja.
12345678 | Rész AWeekdayNameFunction ()Halványítsa el aWeekdayName karakterláncottheWeekdayName = HétköznapNév (4)Hibakeresés. Nyomtassa ki aWeekdayName nevetEnd Sub |
Az eredmény:
VBA éves funkció
Az Év függvénnyel visszaadhatja a beviteli dátum évét.
Az év funkció szintaxisa:
Év (Dátum_érték) ahol:
- Dátum_érték - Az a dátum, amelyből ki szeretné venni az évet.
A következő kód bemutatja az Év funkció használatát:
12345678 | SubTheTheYearFunction ()Fényesítse az évet egész számkénttheYear = Év ("2010/11/12")Hibakeresés. Nyomtassa ki az évetEnd Sub |
Az eredmény:
Dátumok összehasonlítása VBA -ban
A dátumokat összehasonlíthatja a VBA>, <és = operátoraival. A következő kód bemutatja, hogyan lehet összehasonlítani két dátumot a VBA -ban.
12345678910111213141516171819 | Sub ComparingDates ()Dátum halványítása Egy dátumkéntDátum halványításaKettő dátumkéntdateOne = "2010.10.10."dateTwo = "2010.11.11."Ha dateOne> dateTwo ThenDebug.Print "dateOne a későbbi dátum"ElseIf dateOne = dateTwo ThenHibakeresés. Nyomtatás "A két dátum egyenlő"MásDebug.Print "dateTwo a későbbi dátum"Vége HaEnd Sub |
Ha többet szeretne megtudni a dátumok karakterláncokká formázásáról, tekintse meg ezt az oktatóanyagot.