Šajā apmācībā mēs apskatīsim dažādas iebūvētās VBA datuma funkcijas.
VBA datuma funkcija
Varat izmantot datuma funkciju, lai atgrieztu pašreizējo datumu.
Funkcijas Datums sintakse ir Datums (). Tam nav argumentu.
Šis kods parāda, kā izmantot datuma funkciju:
12345678 | Sub, izmantojot funkciju TheDateFunction ()Aptumšojiet datumu kā datumudatums = datums ()Atkļūdot. Izdrukāt datumuBeigu apakš |
Rezultāts ir šāds:
VBA tagad funkcija
Varat izmantot funkciju Tagad, lai atgrieztu pašreizējo datumu un laiku.
Funkcijas Tagad sintakse ir Tagad (). Tam nav argumentu.
Šis kods parāda, kā izmantot funkciju Tagad:
12345678 | Sub, izmantojot funkciju TheNowFunction ()Aptumšojiet datumu kā datumudatums = tagad ()Atkļūdot. Izdrukāt datumuBeigu apakš |
Rezultāts ir šāds:
VBA laika funkcija
Varat izmantot laika funkciju, lai atgrieztu pašreizējo laiku.
Laika funkcijas sintakse ir laiks (). Tam nav argumentu.
Šis kods parāda, kā izmantot laika funkciju:
12345678 | Sub, izmantojot TheFimeFunction ()Aptumšojiet laiku kā datumutheTime = laiks ()Atkļūdošana. Izdrukājiet laikuBeigu apakš |
Rezultāts ir šāds:
VBA datuma pievienošanas funkcija
Varat izmantot funkciju DateAdd, lai datumam vai laikam pievienotu datuma/laika intervālu, un funkcija atgriezīs iegūto datumu/laiku.
Funkcijas DateAdd sintakse ir šāda:
DateAdd (intervāls, numurs, datums), kur:
- Intervāls - virkne, kas nosaka izmantojamā intervāla veidu. Intervāls var būt viena no šīm vērtībām:
“D” - diena
“Ww” - nedēļa
“W” - darba diena
“M” - mēnesis
“Q” - ceturksnis
“Gggg” - gads
“Y” - gada diena
“H” - stunda
“N” - minūte
“S” - otrais
- Skaitlis - to intervālu skaits, kurus vēlaties pievienot sākotnējam datumam/laikam.
- Datums - sākotnējais datums/laiks.
Piezīme. Izmantojot kodā datumus, tie jāapraksta ar # vai pēdiņām.
Šis kods parāda, kā izmantot funkciju DateAdd:
123456789 | Sub, izmantojotTheDateAddFunction ()Dim vēlākDatums kā datumslaterDate = DateAdd ("m", 10, "11.11.2019.")Atkļūdot. Drukāt vēlākBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA DateDiff
Funkciju DateDiff varat izmantot, lai iegūtu atšķirību starp diviem datumiem, pamatojoties uz noteiktu laika intervālu.
Funkcijas DateDiff sintakse ir šāda:
DateDiff (Intervāls, Datums1, Datums2, [Pirmā nedēļa], [Pirmā nedēļa]), kur:
- Intervāls - virkne, kas nosaka izmantojamā intervāla veidu. Intervāls var būt viena no šīm vērtībām:
“D” - diena
“Ww” - nedēļa
“W” - darba diena
“M” - mēnesis
“Q” - ceturksnis
“Gggg” - gads
“Y” - gada diena
“H” - stunda
“N” - minūte
“S” - otrais
- Date1 - datuma vērtība, kas apzīmē agrāko datumu.
- Datums2 - datuma vērtība, kas apzīmē vēlāko datumu.
- Nedēļas pirmā diena (Neobligāti) - konstante, kas norāda nedēļas dienu, kas funkcijai jāizmanto kā pirmā nedēļas diena. Ja tukša svētdiena tiek izmantota kā pirmā nedēļas diena. Nedēļas pirmā diena var būt viena no šīm vērtībām:
-vbSunday - izmanto svētdienu kā pirmo nedēļas dienu.
-vbMonday - izmanto pirmdienu kā pirmo nedēļas dienu.
-vbTuesday - izmanto otrdienu kā nedēļas pirmo dienu.
-vbTrešdiena - izmanto trešdienu kā pirmo nedēļas dienu.
-vbThursday - izmanto ceturtdienu kā pirmo nedēļas dienu.
-vbPiektdiena - izmanto piektdienu kā nedēļas pirmo dienu.
-vbSesturday - izmanto sestdienu kā pirmo nedēļas dienu.
-vbUseSystemDayOfTheWeek - tiek izmantota pirmā nedēļas diena, kas norādīta jūsu sistēmas iestatījumos.
- Pirmā nedēļa (Neobligāti) - konstante, kas norāda gada pirmo nedēļu. Ja tukšs, 1. janvāra nedēļa tiek izmantota kā gada pirmā nedēļa. Pirmā gada nedēļa var būt viena no šīm vērtībām:
-vbFirstJan1 - izmanto nedēļu, kurā ir 1. janvāris.
-vbFirstFourDays - izmanto pirmo nedēļu, kurā ir vismaz četras dienas jaunajā gadā.
-vbFirstFullWeek - izmanto gada pirmo pilno nedēļu.
-vbSystem - izmanto gada pirmo nedēļu, kā norādīts jūsu sistēmas iestatījumos.
Šis kods parāda, kā izmantot funkciju DateDiff:
123456789 | Sub, izmantojotTheDateDiffFunction ()Samaziniet diferenciāciju starp diviem datumiem tik ilgitheDifferenceBetweenTwoDates = DateDiff ("q", "11/11/2010", "10/12/2012")Atkļūdošana. Izdrukājiet theDifferenceBetweenTwoDatesBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA DatePart
Jūs varat izmantot funkciju DatePart, lai atgrieztu konkrēta datuma daļu (dienu, nedēļu, ceturksni, mēnesi utt.).
Funkcijas DatePart sintakse ir šāda:
DatePart (intervāls, datums, [Pirmā nedēļas diena], [Pirmā nedēļa]), kur:
- Intervāls - virkne, kas nosaka atgriešanās datuma daļu. Intervāls var būt viena no šīm vērtībām:
“D” - diena
“Ww” - nedēļa
“W” - darba diena
“M” - mēnesis
“Q” - ceturksnis
“Gggg” - gads
“Y” - gada diena
“H” - stunda
“N” - minūte
“S” - otrais
- Datums - datums, no kura vēlaties, lai funkcija atgrieztu daļu.
- Nedēļas pirmā diena (Neobligāti) - konstante, kas norāda nedēļas dienu, kas funkcijai jāizmanto kā pirmā nedēļas diena. Ja tukša svētdiena tiek izmantota kā pirmā nedēļas diena. Nedēļas pirmā diena var būt viena no šīm vērtībām:
-vbSunday - izmanto svētdienu kā pirmo nedēļas dienu.
-vbMonday - izmanto pirmdienu kā pirmo nedēļas dienu.
-vbTuesday - izmanto otrdienu kā nedēļas pirmo dienu.
-vbTrešdiena - izmanto trešdienu kā pirmo nedēļas dienu.
-vbThursday - izmanto ceturtdienu kā pirmo nedēļas dienu.
-vbPiektdiena - izmanto piektdienu kā nedēļas pirmo dienu.
-vbSesturday - izmanto sestdienu kā pirmo nedēļas dienu.
-vbUseSystemDayOfTheWeek - tiek izmantota pirmā nedēļas diena, kas norādīta jūsu sistēmas iestatījumos.
- Pirmā nedēļa (Neobligāti) - konstante, kas norāda gada pirmo nedēļu. Ja tukšs, 1. janvāra nedēļa tiek izmantota kā gada pirmā nedēļa. Pirmā gada nedēļa var būt viena no šīm vērtībām:
-vbFirstJan1 - izmanto nedēļu, kurā ir 1. janvāris.
-vbFirstFourDays - izmanto pirmo nedēļu, kurā ir vismaz četras dienas jaunajā gadā.
-vbFirstFullWeek - izmanto gada pirmo pilno nedēļu.
-vbSystem - izmanto gada pirmo nedēļu, kā norādīts jūsu sistēmas iestatījumos.
Šis kods parāda, kā izmantot funkciju DatePart:
123456789 | Sub, izmantojot funkcijuDatePartFunction ()Izgaismojiet partneraDatumu kā veselu skaitlithePartOfTheDate = DatePart ("gggg", "12/12/2009")Atkļūdot. Izdrukāt datumuPartOfTheDateBeigu apakš |
Rezultāts ir šāds:
VBA DateSerial funkcija
Funkcija VBA DateSerial ņem ievades gadu, mēnesi un dienu un atgriež datumu.
Funkcijas DateSerial sintakse ir šāda:
DateSerial (gads, mēnesis, diena), kur:
- Gads - vesels skaitlis no 100 līdz 9999, kas apzīmē gadu.
- Mēnesis - vesels skaitlis, kas apzīmē mēnesi.
- Diena - vesela skaitļa vērtība, kas apzīmē dienu.
Šis kods parāda, kā izmantot funkciju DateSerial:
123456789 | Sub, izmantojotTheDateSerialFunction ()Aptumšojiet datumu kā datumutheDate = DateSerial (2010, 11, 10)Atkļūdot. Izdrukāt datumuBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA DateValue
Funkcija DateValue atgriež datumu, kad tiek dota datuma virkne.
Funkcijas DateValue sintakse ir šāda:
DateValue (datums) kur:
- Datums - virkne, kas attēlo datumu.
Šis kods parāda, kā izmantot funkciju DateValue:
123456789 | Sub UsingTheDateValueFunction ()Aptumšojiet datumu kā datumutheDate = DateValue ("2010. gada 29. oktobris")Atkļūdot. Izdrukāt datumuBeigu apakš |
Rezultāts ir šāds:
VBA dienas funkcija
Funkciju Diena varat izmantot, lai atgrieztu ievades datuma dienu.
Funkcijas Diena sintakse ir šāda:
Diena (datuma_vērtība), kurā:
- Date_value - datums, no kura vēlaties iegūt dienu.
Šis kods parāda, kā izmantot dienas funkciju:
123456789 | ApakšdaļaDayFunction ()Dim theDay As IntegertheDay = diena ("10/12/2010")Atkļūdot. Izdrukāt dienuBeigu apakš |
Rezultāts ir šāds:
VBA stundu funkcija
Jūs varat izmantot stundu funkciju, lai atgrieztu ievades laika stundu.
Stundas funkcijas sintakse ir šāda:
Stunda (laiks), kur:
- Laiks - laiks, no kura vēlaties iegūt stundu.
Šis kods parāda, kā izmantot stundu funkciju:
123456789 | Sub, izmantojot funkciju TheHourFunction ()Izgaismojiet stundu kā veselu skaitlitheHour = Stunda ("2:14:17 AM")Atkļūdošana. Izdrukājiet stunduBeigu apakš |
Rezultāts ir šāds:
VBA minūšu funkcija
Jūs varat izmantot minūtes funkciju, lai atgrieztu ievades laika minūšu vērtību.
Minūšu funkcijas sintakse ir šāda:
Minūte (laiks), kur:
- Laiks - laiks, no kura vēlaties iegūt minūtes vērtību.
Šis kods parāda, kā izmantot minūtes funkciju:
123456789 | Sub, izmantojot TheMinuteFunction ()DimMinuteValue aptumšojiet kā veselu skaitlitheMinuteValue = Minūte ("2:14:17 AM")Atkļūdošana. Izdrukājiet MinuteValueBeigu apakš |
Rezultāts ir šāds:
VBA otrā funkcija
Varat izmantot otro funkciju, lai atgrieztu ievades laika otro vērtību.
Otrās funkcijas sintakse ir šāda:
Otrais (laiks), kur:
- Laiks - laiks, no kura vēlaties iegūt otro vērtību.
Šis kods parāda, kā izmantot otro funkciju:
123456789 | Sub, izmantojot TheSecondFunction ()Dim theSecondValue kā vesels skaitlistheSecondValue = Otrais ("2:14:17 AM")Atkļūdošana. Izdrukājiet theSecondValueBeigu apakš |
Rezultāts ir šāds:
VBA mēneša funkcija
Funkciju Mēnesis varat izmantot, lai atgrieztu ievades datuma mēnesi.
Mēneša funkcijas sintakse ir šāda:
Mēnesis (datuma_vērtība), kur:
- Date_value - datums, no kura vēlaties iegūt mēnesi.
Šis kods parāda, kā izmantot mēneša funkciju:
12345678 | Sub, izmantojot funkciju TheMonthFunction ()Aptumšojiet mēnesi kā veselu skaitlitheMonth = Mēnesis ("18.11.2010.")Atkļūdot. Drukāt mēnesiBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA MonthName
Funkciju MonthName varat izmantot, lai no ievadītā mēneša numura atgrieztu mēneša nosaukumu.
Funkcijas MonthName sintakse ir šāda:
MonthName (mēneša_skaitlis, [saīsinājums]), kur:
- Mēneša_skaitlis - vesela skaitļa vērtība no 1 līdz 12.
- Saīsināt (Neobligāti) - Norāda, vai mēneša nosaukums ir jāsaīsina. Ja tukšs, tiek izmantota noklusējuma vērtība False.
12345678 | Sub, izmantojot funkciju TheMonthNameFunction ()Aptumšojiet mēneša nosaukumu kā virknitheMonthName = MonthName (12, True)Atkļūdošana. Izdrukājiet mēneša nosaukumuBeigu apakš |
Rezultāts ir šāds:
VBA TimeSerial funkcija
Funkcija TimeSerial aizņem ievades stundu, minūti un sekundi un atgriež laiku.
Funkcijas TimeSerial sintakse ir šāda:
TimeSerial (stunda, minūte, sekunde), kur:
- Stunda - vesels skaitlis no 0 līdz 23, kas apzīmē stundas vērtību.
- Minūte - vesels skaitlis no 0 līdz 59, kas apzīmē minūtes vērtību.
- Otrais - vesela skaitļa vērtība no 0 līdz 59, kas apzīmē otro vērtību.
Šis kods parāda, kā izmantot TimeSerial funkciju:
12345678 | Sub, izmantojot TheTimeSerialFunction ()Aptumšojiet laiku kā datumutheTime = TimeSerial (1, 10, 15)Atkļūdošana. Izdrukājiet laikuBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA TimeValue
Funkcija TimeValue atgriež laiku no datuma vai laika virknes attēlojuma.
Funkcijas TimeValue sintakse ir šāda:
TimeValue (Time) kur:
- Laiks - virkne, kas attēlo laiku.
Šis kods parāda, kā izmantot funkciju TimeValue:
12345678 | Sub UsingTheTimeValueFunction ()Aptumšojiet laiku kā datumutheTime = TimeValue ("22:10:17")Atkļūdošana. Izdrukājiet laikuBeigu apakš |
Rezultāts ir šāds:
VBA nedēļas dienas funkcija
Varat izmantot nedēļas dienas funkciju, lai atgrieztu veselu skaitli no 1 līdz 7, kas apzīmē nedēļas dienu no ievades datuma.
Funkcijas Weekday sintakse ir šāda:
Nedēļas diena (datums, [nedēļas pirmā diena]), kur:
- Datums - datums, no kura vēlaties iegūt nedēļas dienas vērtību.
- Nedēļas pirmā diena (Neobligāti) - konstante, kas norāda nedēļas dienu, kas funkcijai jāizmanto kā pirmā nedēļas diena. Ja tukša svētdiena tiek izmantota kā pirmā nedēļas diena. Nedēļas pirmā diena var būt viena no šīm vērtībām:
-vbSunday - izmanto svētdienu kā pirmo nedēļas dienu.
-vbMonday - izmanto pirmdienu kā pirmo nedēļas dienu.
-vbTuesday - izmanto otrdienu kā nedēļas pirmo dienu.
-vbTrešdiena - izmanto trešdienu kā pirmo nedēļas dienu.
-vbThursday - izmanto ceturtdienu kā pirmo nedēļas dienu.
-vbPiektdiena - izmanto piektdienu kā nedēļas pirmo dienu.
-vbSesturday - izmanto sestdienu kā pirmo nedēļas dienu.
-vbUseSystemDayOfTheWeek - tiek izmantota pirmā nedēļas diena, kas norādīta jūsu sistēmas iestatījumos.
Šis kods parāda, kā izmantot nedēļas dienas funkciju:
1234567 | Sub, izmantojotWeekdayFunction ()Dim theWeekDay kā vesels skaitlistheWeekDay = nedēļas diena ("20.11.2019.")Atkļūdot. Izdrukāt nedēļas dienuBeigu apakš |
Rezultāts ir šāds:
Funkcija VBA WeekdayName
Varat izmantot funkciju WeekdayName, lai no ievadītā nedēļas dienas numura ievadītu nedēļas dienas nosaukumu.
Funkcijas WeekdayName sintakse ir šāda:
Nedēļas dienas nosaukums (nedēļas diena, [saīsinājums], [nedēļas pirmā diena]), kur:
- Nedēļas diena - vesela skaitļa vērtība no 1 līdz 7.
- Saīsināt (Neobligāti) -Norāda, vai darba dienas nosaukums ir jāsaīsina. Ja tukšs, tiek izmantota noklusējuma vērtība False.
- Nedēļas pirmā diena (Neobligāti) - konstante, kas norāda nedēļas dienu, kas funkcijai jāizmanto kā pirmā nedēļas diena. Ja tukša svētdiena tiek izmantota kā pirmā nedēļas diena. Nedēļas pirmā diena var būt viena no šīm vērtībām:
-vbSunday - izmanto svētdienu kā pirmo nedēļas dienu.
-vbMonday - izmanto pirmdienu kā pirmo nedēļas dienu.
-vbTuesday - izmanto otrdienu kā nedēļas pirmo dienu.
-vbTrešdiena - izmanto trešdienu kā pirmo nedēļas dienu.
-vbThursday - izmanto ceturtdienu kā pirmo nedēļas dienu.
-vbPiektdiena - izmanto piektdienu kā nedēļas pirmo dienu.
-vbSesturday - izmanto sestdienu kā pirmo nedēļas dienu.
-vbUseSystemDayOfTheWeek - tiek izmantota pirmā nedēļas diena, kas norādīta jūsu sistēmas iestatījumos.
12345678 | Sub, izmantojotWeekdayNameFunction ()Aptumšojiet nedēļas dienu nosaukumu kā virknitheWeekdayName = Nedēļas dienas nosaukums (4)Atkļūdot. Izdrukāt nedēļas dienu nosaukumuBeigu apakš |
Rezultāts ir šāds:
VBA gada funkcija
Varat izmantot funkciju Gads, lai atgrieztu ievades datuma gadu.
Gada funkcijas sintakse ir šāda:
Gads (datuma_vērtība), kur:
- Date_value - datums, no kura vēlaties iegūt gadu.
Šis kods parāda, kā izmantot gada funkciju:
12345678 | Apakš, izmantojot funkcijuYearFunction ()Aptumšojiet gadu kā veselu skaitlitheYear = Gads ("11/12/2010")Atkļūdot. Drukāt gaduBeigu apakš |
Rezultāts ir šāds:
Datumu salīdzināšana VBA
Jūs varat salīdzināt datumus, izmantojot VBA operatorus>, <un =. Šis kods parāda, kā salīdzināt divus datumus VBA.
12345678910111213141516171819 | Sub ComparingDates ()Dim kā viens datumsDima kā datumsdateOne = "10.10.2010"dateTwo = "11/11/2010"Ja datums Viens> datums Divi TadAtkļūdot. Izdrukāt "dateOne ir vēlākais datums"ElseIf dateOne = dateTwo ThenAtkļūdot. Drukāt "Abi datumi ir vienādi"CitādiAtkļūdot. Izdrukāt "dateTwo ir vēlākais datums"Beigas JaBeigu apakš |
Lai uzzinātu vairāk par datumu formatēšanu kā virknes, skatiet šo apmācību.