Šioje pamokoje apžvelgsime įvairias įmontuotas VBA datos funkcijas.
VBA datos funkcija
Norėdami grąžinti dabartinę datą, galite naudoti datos funkciją.
Funkcijos Data sintaksė yra Data (). Ji neturi argumentų.
Šis kodas parodo, kaip naudoti datos funkciją:
| 12345678 | Funkcija „TheDateFunction“ ()Sutemdykite datą kaip datątheDate = Data ()Derinimas. Spausdinkite datąPabaiga Sub |
Rezultatas yra toks:
VBA funkcija dabar
Galite naudoti funkciją Dabar, kad grąžintumėte dabartinę datą ir laiką.
Funkcijos Dabar sintaksė yra Dabar (). Ji neturi argumentų.
Šis kodas parodo, kaip naudotis funkcija Dabar:
| 12345678 | Sub UsingTheNowFunction ()Sutemdykite datą kaip datątheDate = Dabar ()Derinimas. Spausdinkite datąPabaiga Sub |
Rezultatas yra toks:
VBA laiko funkcija
Norėdami grąžinti esamą laiką, galite naudoti laiko funkciją.
Laiko funkcijos sintaksė yra laikas (). Ji neturi argumentų.
Šis kodas parodo, kaip naudoti laiko funkciją:
| 12345678 | Sub UseTheTimeFunction ()Sutemdykite laiką kaip datątheTime = laikas ()Derinimas. Spausdinkite laikąPabaiga Sub |
Rezultatas yra toks:
VBA „DateAdd“ funkcija
Galite naudoti funkciją „DateAdd“, kad prie datos ar laiko pridėtumėte datos/laiko intervalą, o funkcija grąžins gautą datą/laiką.
Funkcijos DateAdd sintaksė yra tokia:
DateAdd (intervalas, skaičius, data), kur:
- Intervalas - eilutė, nurodanti naudojamo intervalo tipą. Intervalas gali būti viena iš šių verčių:
„D“ - diena
„Ww“ - savaitė
„W“ - darbo diena
„M“ - mėnuo
„Q“ - ketvirtis
„Yyyy“ - metai
„Y“ - metų diena
„H“ - valanda
„N“ - minutė
„S“ - antras
- Skaičius - intervalų, kuriuos norite pridėti prie pradinės datos/laiko, skaičius.
- Data - pradinė data/laikas.
Pastaba: kai kode naudojate datas, jas turite pažymėti # arba kabutėmis.
Šis kodas parodo, kaip naudoti funkciją „DateAdd“:
| 123456789 | Sub UsingTheDateAddFunction ()Sutemdyti vėliau Data kaip datalaterDate = DateAdd ("m", 10, "2019-11-12")Derinimas. Spausdinti vėliauPabaiga Sub |
Rezultatas yra toks:
Funkcija VBA DateDiff
Galite naudoti funkciją DateDiff, kad gautumėte skirtumą tarp dviejų datų pagal nurodytą laiko intervalą.
Funkcijos DateDiff sintaksė yra tokia:
DateDiff (intervalas, data1, data2, [savaitės pirmoji diena], [pirmoji savaitė]), kur:
- Intervalas - eilutė, nurodanti naudojamo intervalo tipą. Intervalas gali būti viena iš šių verčių:
„D“ - diena
„Ww“ - savaitė
„W“ - darbo diena
„M“ - mėnuo
„Q“ - ketvirtis
„Yyyy“ - metai
„Y“ - metų diena
„H“ - valanda
„N“ - minutė
„S“ - antras
- Data1 - datos reikšmė, atspindinti ankstesnę datą.
- Data2 - datos reikšmė, atspindinti vėlesnę datą.
- Pirma savaitės diena (Neprivaloma) - konstanta, nurodanti savaitės dieną, kurią funkcija turėtų naudoti kaip pirmąją savaitės dieną. Jei tuščia sekmadienis naudojama kaip pirmoji savaitės diena. „Firstdayofweek“ gali būti viena iš šių reikšmių:
-vbSunday - sekmadienį naudoja kaip pirmąją savaitės dieną.
-vbMonday - naudoja pirmadienį kaip pirmąją savaitės dieną.
-vbTueday - naudoja antradienį kaip pirmąją savaitės dieną.
-vbTrečiadienis - trečiadienį naudoja kaip pirmąją savaitės dieną.
-vbThursday - naudoja ketvirtadienį kaip pirmąją savaitės dieną.
-vbFriday - penktadienį naudoja kaip pirmąją savaitės dieną.
-vbSaturday - šeštadienį naudoja kaip pirmąją savaitės dieną.
-vbUseSystemDayOfTheWeek - naudojama pirmoji savaitės diena, nurodyta jūsų sistemos nustatymuose.
- Pirmųjų metų savaitė (Neprivaloma) - konstanta, nurodanti pirmąją metų savaitę. Jei tuščia, sausio 1 -oji savaitė naudojama kaip pirmoji metų savaitė. Pirmųjų metų savaitė gali būti viena iš šių vertybių:
-vbFirstJan1 - naudoja savaitę, kurioje yra sausio 1 d.
-vbFirstFourDays - naudojama pirmoji savaitė, kurią sudaro mažiausiai keturios naujųjų metų dienos.
-vbFirstFullWeek - naudoja pirmąją pilną metų savaitę.
-vbSystem - naudoja pirmąją metų savaitę, kaip nurodyta jūsų sistemos nustatymuose.
Šis kodas parodo, kaip naudoti „DateDiff“ funkciją:
| 123456789 | Sub UsingTheDateDiffFunction ()Dim theDifferenceBetweenTwoDates as LongtheDifferenceBetweenTwoDates = DateDiff ("q", "2010-11-11", "2012-12-10")Derinimas. Spausdinkite „Diferencialas tarp dviejų datų“Pabaiga Sub |
Rezultatas yra toks:
VBA „DatePart“ funkcija
Galite naudoti funkciją „DatePart“ norėdami grąžinti tam tikros datos dalį (dieną, savaitę, ketvirtį, mėnesį ir tt).
Funkcijos DatePart sintaksė yra tokia:
DatePart (intervalas, data, [Firstdayofweek], [Firstweekofyear]), kur:
- Intervalas - eilutė, nurodanti grąžinimo datos dalį. Intervalas gali būti viena iš šių verčių:
„D“ - diena
„Ww“ - savaitė
„W“ - darbo diena
„M“ - mėnuo
„Q“ - ketvirtis
„Yyyy“ - metai
„Y“ - metų diena
„H“ - valanda
„N“ - minutė
„S“ - antras
- Data - data, kurios dalį norite grąžinti.
- Pirma savaitės diena (Neprivaloma) - konstanta, nurodanti savaitės dieną, kurią funkcija turėtų naudoti kaip pirmąją savaitės dieną. Jei tuščia sekmadienis naudojama kaip pirmoji savaitės diena. „Firstdayofweek“ gali būti viena iš šių reikšmių:
-vbSunday - sekmadienį naudoja kaip pirmąją savaitės dieną.
-vbMonday - naudoja pirmadienį kaip pirmąją savaitės dieną.
-vbTueday - naudoja antradienį kaip pirmąją savaitės dieną.
-vbTrečiadienis - trečiadienį naudoja kaip pirmąją savaitės dieną.
-vbThursday - ketvirtadienis naudojamas kaip pirmoji savaitės diena.
-vbFriday - penktadienį naudoja kaip pirmąją savaitės dieną.
-vbSaturday - šeštadienį naudoja kaip pirmąją savaitės dieną.
-vbUseSystemDayOfTheWeek - naudojama pirmoji savaitės diena, nurodyta jūsų sistemos nustatymuose.
- Pirmųjų metų savaitė (Neprivaloma) - konstanta, nurodanti pirmąją metų savaitę. Jei tuščia, sausio 1 -oji savaitė naudojama kaip pirmoji metų savaitė. Pirmųjų metų savaitė gali būti viena iš šių vertybių:
-vbFirstJan1 - naudoja savaitę, kurioje yra sausio 1 d.
-vbFirstFourDays - naudojama pirmoji savaitė, kurią sudaro mažiausiai keturios naujųjų metų dienos.
-vbFirstFullWeek - naudoja pirmąją pilną metų savaitę.
-vbSystem - naudoja pirmąją metų savaitę, kaip nurodyta jūsų sistemos nustatymuose.
Šis kodas parodo, kaip naudoti „DatePart“ funkciją:
| 123456789 | Sub, naudojant „TheDatePartFunction“ ()Paryškinkite „PartOfTheDate“ kaip sveiką skaičiųthePartOfTheDate = DatePart ("yyyy", "2009-12-12")Derinti. Spausdinti „PartOfTheDate“Pabaiga Sub |
Rezultatas yra toks:
VBA DateSerial funkcija
VBA „DateSerial“ funkcija įveda metus, mėnesį ir dieną ir grąžina datą.
Funkcijos DateSerial sintaksė yra tokia:
DateSerial (metai, mėnuo, diena), kur:
- Metai - sveikas skaičius nuo 100 iki 9999, nurodantis metus.
- Mėnuo - sveikas skaičius, nurodantis mėnesį.
- Diena - sveiką skaičių rodanti diena.
Šis kodas parodo, kaip naudoti „DateSerial“ funkciją:
| 123456789 | Sub, naudojant TheDateSerialFunction ()Sutemdykite datą kaip datątheDate = DateSerial (2010, 11, 10)Derinimas. Spausdinkite datąPabaiga Sub |
Rezultatas yra toks:
Funkcija VBA DateValue
Funkcija DateValue grąžina datą, kai jai pateikiama datos eilutė.
Funkcijos DateValue sintaksė yra:
DateValue (data), kur:
- Data - eilutė, vaizduojanti datą.
Šis kodas parodo, kaip naudoti funkciją „DateValue“:
| 123456789 | Sub UsingTheDateValueFunction ()Sutemdykite datą kaip datątheDate = DateValue ("2010 m. spalio 29 d.")Derinimas. Spausdinkite datąPabaiga Sub |
Rezultatas yra toks:
VBA dienos funkcija
Dienos funkciją galite naudoti norėdami grąžinti įvesties datos dieną.
Dienos funkcijos sintaksė yra tokia:
Diena (Data_value), kai:
- Date_value - data, iš kurios norite išgauti dieną.
Šis kodas parodo, kaip naudoti dienos funkciją:
| 123456789 | Funkcija „TheDayFunction“ ()„Dim theDay As Integer“theDay = diena ("2010-12-12")Derinimas. Spausdinkite dienąPabaiga Sub |
Rezultatas yra toks:
VBA valandos funkcija
Naudodami valandos funkciją galite grąžinti įvesties laiko valandą.
Valandos funkcijos sintaksė yra tokia:
Valanda (laikas), kur:
- Laikas - laikas, iš kurio norite išgauti valandą.
Šis kodas parodo, kaip naudotis valandos funkcija:
| 123456789 | Naudojant „TheHourFunction“ ()Užtemdykite valandą kaip sveikasis skaičiustheHour = Valanda ("2:14:17 AM")Derinimas. Spausdinkite valandąPabaiga Sub |
Rezultatas yra toks:
VBA minučių funkcija
Galite naudoti minutės funkciją, kad grąžintumėte įvesties laiko minutės vertę.
Minutės funkcijos sintaksė yra tokia:
Minutė (laikas), kur:
- Laikas - laikas, iš kurio norite išgauti minutės vertę.
Šis kodas parodo, kaip naudotis minutės funkcija:
| 123456789 | Sub, naudojant „TheMinuteFunction“ ()Dim theMinuteValue kaip sveikasistheMinuteValue = Minutė ("2:14:17 AM")Derinimas. Atspausdinkite „MinuteValue“Pabaiga Sub |
Rezultatas yra toks:
VBA antroji funkcija
Antrąją funkciją galite naudoti norėdami grąžinti antrąją įvesties laiko reikšmę.
Antrosios funkcijos sintaksė yra tokia:
Antras (laikas), kur:
- Laikas - laikas, iš kurio norite išgauti antrąją vertę.
Šis kodas parodo, kaip naudotis antrąja funkcija:
| 123456789 | Antra naudojant „TheSecondFunction“ ()Pritemdykite antrąją vertę kaip sveiką skaičiųtheSecondValue = Antra ("2:14:17 AM")Derinimas. Spausdinkite theSecondValuePabaiga Sub |
Rezultatas yra toks:
VBA mėnesio funkcija
Galite naudoti mėnesio funkciją, kad grąžintumėte įvesties datos mėnesį.
Mėnesio funkcijos sintaksė yra tokia:
Mėnuo (Data_value), kuriame:
- Date_value - data, iš kurios norite išgauti mėnesį.
Šis kodas parodo, kaip naudotis mėnesio funkcija:
| 12345678 | Sub UseTheMonthFunction ()Dim theMonth as IntegertheMonth = Mėnuo ("2010-11-18")Derinimas. Spausdinkite mėnesįPabaiga Sub |
Rezultatas yra toks:
VBA „MonthName“ funkcija
Galite naudoti funkciją „MonthName“, kad grąžintumėte mėnesio pavadinimą iš pateikto mėnesio numerio.
Funkcijos „MonthName“ sintaksė yra tokia:
„MonthName“ (mėnesio_skaičius, [Santrumpa]), kur:
- Mėnesio skaičius - sveikasis skaičius nuo 1 iki 12.
- Santrumpa (Neprivaloma) - nurodo, ar mėnesio pavadinimą reikia sutrumpinti. Jei tuščia, naudojama numatytoji reikšmė False.
| 12345678 | Sub UseTheMonthNameFunction ()Pritemdykite mėnesio pavadinimą kaip eilutętheMonthName = MonthName (12, tiesa)Derinimas. Atspausdinkite Mėnesio pavadinimąPabaiga Sub |
Rezultatas yra toks:
„VBA TimeSerial“ funkcija
„TimeSerial“ funkcija įveda valandą, minutę ir sekundę ir grąžina laiką.
„TimeSerial“ funkcijos sintaksė yra tokia:
„TimeSerial“ (valanda, minutė, sekundė), kur:
- Valanda - sveikasis skaičius nuo 0 iki 23, nurodantis valandos vertę.
- Minutė - sveikasis skaičius nuo 0 iki 59, nurodantis minutės vertę.
- Antra - sveikasis skaičius nuo 0 iki 59, nurodantis antrąją vertę.
Šis kodas parodo, kaip naudotis „TimeSerial“ funkcija:
| 12345678 | Sub UsingTheTimeSerialFunction ()Sutemdykite laiką kaip datątheTime = TimeSerial (1, 10, 15)Derinimas. Spausdinkite laikąPabaiga Sub |
Rezultatas yra toks:
Funkcija „VBA TimeValue“
Funkcija „TimeValue“ grąžina laiką iš datos ar laiko eilutės.
Funkcijos „TimeValue“ sintaksė yra tokia:
TimeValue (laikas), kur:
- Laikas - eilutė, vaizduojanti laiką.
Šis kodas parodo, kaip naudoti funkciją „TimeValue“:
| 12345678 | Sub UsingTheTimeValueFunction ()Sutemdykite laiką kaip datątheTime = TimeValue ("22:10:17")Derinimas. Spausdinkite laikąPabaiga Sub |
Rezultatas yra toks:
VBA savaitės dienos funkcija
Funkciją Savaitės diena galite grąžinti sveiką skaičių nuo 1 iki 7, nurodantį savaitės dieną nuo įvesties datos.
Savaitės dienos funkcijos sintaksė yra tokia:
Savaitės diena (data, [savaitės pirmoji diena]), kurioje:
- Data - data, iš kurios norite išgauti savaitės dienos vertę.
- Pirma savaitės diena (Neprivaloma) - konstanta, nurodanti savaitės dieną, kurią funkcija turėtų naudoti kaip pirmąją savaitės dieną. Jei tuščia sekmadienis naudojama kaip pirmoji savaitės diena. „Firstdayofweek“ gali būti viena iš šių reikšmių:
-vbSunday - sekmadienį naudoja kaip pirmąją savaitės dieną.
-vbMonday - naudoja pirmadienį kaip pirmąją savaitės dieną.
-vbTueday - naudoja antradienį kaip pirmąją savaitės dieną.
-vbTrečiadienis - trečiadienį naudoja kaip pirmąją savaitės dieną.
-vbThursday - ketvirtadienis naudojamas kaip pirmoji savaitės diena.
-vbFriday - penktadienį naudoja kaip pirmąją savaitės dieną.
-vbSaturday - šeštadienį naudoja kaip pirmąją savaitės dieną.
-vbUseSystemDayOfTheWeek - naudojama pirmoji savaitės diena, nurodyta jūsų sistemos nustatymuose.
Šis kodas parodo, kaip naudotis savaitės dienos funkcija:
| 1234567 | Sub, naudojant „Weeday“ funkciją ()Sumažinkite savaitės dieną kaip sveikąjį skaičiųtheWeekDay = savaitės diena („2019-11-20“)Derinimas. Spausdinkite savaitės dienąPabaiga Sub |
Rezultatas yra toks:
Funkcija „VBA WeekdayName“
Galite naudoti „WeekdayName“ funkciją, norėdami grąžinti savaitės dienos pavadinimą iš įvestos savaitės dienos numerio.
Funkcijos „WeekdayName“ sintaksė yra:
Savaitės dienos pavadinimas (savaitės diena, [Santrumpa], [savaitės pirmoji diena]), kur:
- Savaitės diena - sveikas skaičius nuo 1 iki 7.
- Santrumpa (Neprivaloma) -Nurodo, ar savaitės dienos pavadinimas turėtų būti sutrumpintas. Jei tuščia, naudojama numatytoji reikšmė False.
- Pirma savaitės diena (Neprivaloma) - konstanta, nurodanti savaitės dieną, kurią funkcija turėtų naudoti kaip pirmąją savaitės dieną. Jei tuščia sekmadienis naudojama kaip pirmoji savaitės diena. „Firstdayofweek“ gali būti viena iš šių reikšmių:
-vbSunday - sekmadienį naudoja kaip pirmąją savaitės dieną.
-vbMonday - naudoja pirmadienį kaip pirmąją savaitės dieną.
-vbTueday - naudoja antradienį kaip pirmąją savaitės dieną.
-vbTrečiadienis - trečiadienį naudoja kaip pirmąją savaitės dieną.
-vbThursday - ketvirtadienis naudojamas kaip pirmoji savaitės diena.
-vbFriday - penktadienį naudoja kaip pirmąją savaitės dieną.
-vbSaturday - šeštadienį naudoja kaip pirmąją savaitės dieną.
-vbUseSystemDayOfTheWeek - naudojama pirmoji savaitės diena, nurodyta jūsų sistemos nustatymuose.
| 12345678 | Sub, naudojant „TheWeekdayNameFunction“ ()Sumažinkite savaitės dienos pavadinimą kaip eilutętheWeekdayName = Savaitės dienos pavadinimas (4)Derinimas. Atspausdinkite savaitės pavadinimąPabaiga Sub |
Rezultatas yra toks:
VBA metų funkcija
Galite naudoti metų funkciją, kad grąžintumėte įvesties datos metus.
Metų funkcijos sintaksė yra tokia:
Metai (Data_value), kur:
- Date_value - data, iš kurios norite išgauti metus.
Šis kodas parodo, kaip naudotis metų funkcija:
| 12345678 | Sub, naudojant „TheYearFunction“ ()Užtemdykite metus kaip sveikąjį skaičiųtheYear = Metai ("2010-11-12")Derinimas. Spausdinkite metusPabaiga Sub |
Rezultatas yra toks:
Datų palyginimas VBA
Galite palyginti datas naudodami VBA operatorius>, <ir =. Šis kodas parodo, kaip palyginti dvi datas VBA.
| 12345678910111213141516171819 | Sub ComparingDates ()Pritemdyti datą Vienas kaip dataDim dateTwo As DatedateOne = "2010-10-10"dateTwo = "2010-11-11"Jei dateOne> dateTwo ThenDebug.Print "dateOne yra vėlesnė data"ElseIf dateOne = dateTwo ThenDerinti. Spausdinti „Abi datos yra lygios“KitasDebug.Print "dateTwo yra vėlesnė data"Pabaiga JeiPabaiga Sub |
Sužinokite daugiau apie tai, kaip formatuoti datas kaip eilutes, peržiūrėdami šią mokymo programą.
