VBA kuupäevafunktsioonid

Selles õpetuses tutvume erinevate sisseehitatud VBA kuupäevafunktsioonidega.

VBA kuupäeva funktsioon

Funktsiooni Kuupäev saate kasutada praeguse kuupäeva tagastamiseks.

Funktsiooni Kuupäev süntaks on Kuupäev (). Sellel pole argumente.

Järgmine kood näitab teile, kuidas kasutada kuupäeva funktsiooni:

12345678

Alamfunktsioon TheDateFunction ()Dim theDate as DatetheDate = Kuupäev ()Silumine. Prindi kuupäevEnd Sub

Tulemuseks on:

VBA nüüd funktsioon

Funktsiooni Now abil saate praeguse kuupäeva ja kellaaja tagastada.

Funktsiooni Now süntaks on Now (). Sellel pole argumente.

Järgmine kood näitab teile, kuidas funktsiooni Now kasutada:

12345678

AlamfunktsioonTheNowFunction ()Dim theDate as DatetheDate = kohe ()Silumine. Prindi kuupäevEnd Sub

Tulemuseks on:

VBA ajafunktsioon

Kellaaja tagastamiseks saate kasutada funktsiooni Aeg.

Ajafunktsiooni süntaks on aeg (). Sellel pole argumente.

Järgmine kood näitab teile, kuidas ajafunktsiooni kasutada:

12345678

Alamfunktsioon TheTimeFunction ()Pimendage aeg kuupäevakstheTime = Time ()Silumine. Printige aegEnd Sub

Tulemuseks on:

Funktsioon VBA DateAdd

Funktsiooni DateAdd abil saate kuupäevale või kellaajale lisada kuupäeva/ajavahemiku ning funktsioon tagastab saadud kuupäeva/kellaaja.

Funktsiooni DateAdd süntaks on järgmine:

DateAdd (intervall, arv, kuupäev), kus:

• Intervall - string, mis määrab kasutatava intervalli tüübi. Intervall võib olla üks järgmistest väärtustest:

"D" - päev
"Ww" - nädal
"W" - nädalapäev
"M" - kuu
“Q” - veerand
“Aaaa” - aasta
"Y" - aasta päev
"H" - tund
"N" - minut
"S" - teine

• Number - intervallide arv, mille soovite lisada algsele kuupäevale/kellaajale.
• Kuupäev - algne kuupäev/kellaaeg.

Märkus. Kui kasutate koodis kuupäevi, peate need ümbritsema # või jutumärkidega.

Järgmine kood näitab, kuidas funktsiooni DateAdd kasutada:

123456789

Alam, kasutadesTheDateAddFunction ()Dim hiljemDate As DatelaterDate = DateAdd ("m", 10, "11.12.2019")Silumine. Trüki hiljem KuupäevEnd Sub

Tulemuseks on:

Funktsioon VBA DateDiff

Funktsiooni DateDiff saate kasutada kahe kuupäeva erinevuse kindlaksmääratud ajavahemiku põhjal saamiseks.

Funktsiooni DateDiff süntaks on järgmine:

DateDiff (intervall, kuupäev1, kuupäev2, [nädala esimene päev], [aasta esimene nädal]), kus:

• Intervall - string, mis määrab kasutatava intervalli tüübi. Intervall võib olla üks järgmistest väärtustest:

"D" - päev
"Ww" - nädal
"W" - nädalapäev
"M" - kuu
“Q” - veerand
“Aaaa” - aasta
"Y" - aasta päev
"H" - tund
"N" - minut
"S" - teine

• Kuupäev1 - kuupäeva väärtus, mis tähistab varasemat kuupäeva.
• Kuupäev2 - kuupäeva väärtus, mis tähistab hilisemat kuupäeva.
• Nädala esimene päev (Valikuline) - konstant, mis määrab nädalapäeva, mida funktsioon peaks kasutama nädala esimesena. Kui nädala esimeseks päevaks kasutatakse tühja pühapäeva. Firstdayofweek võib olla üks järgmistest väärtustest:

-vbSunday - kasutab pühapäeva nädala esimesena.
-vbMonday - kasutab esmaspäeva nädala esimesena.
-vbTesday - kasutab nädala esimest päeva teisipäeval.
-vbKolmapäev - kasutab nädala kolmapäeva nädala esimesena.
-vbThursday - kasutab neljapäeva nädala esimesena.
-vbFriday - kasutab nädala esimest päeva reedel.
-vbSaturday - kasutab nädala esimest päeva laupäeval.
-vbUseSystemDayOfTheWeek - kasutab teie süsteemi seadetes määratud nädala esimest päeva.

• Aasta esimene nädal (Valikuline) - konstant, mis määrab aasta esimese nädala. Kui see on tühi, kasutatakse aasta esimeseks nädalaks 1. jaanuari nädalat. Aasta esimene nädal võib olla üks järgmistest väärtustest:

-vbFirstJan1 - kasutab nädalat, mis sisaldab 1. jaanuari.
-vbFirstFourDays - kasutab esimest nädalat, mis sisaldab uuel aastal vähemalt nelja päeva.
-vbFirstFullWeek - kasutab aasta esimest täisnädalat.
-vbSystem - kasutab aasta esimest nädalat vastavalt teie süsteemiseadetele.

Järgmine kood näitab teile, kuidas funktsiooni DateDiff kasutada:

123456789

Funktsiooni ADateDiffFunktsioon ()Dim theDifferenceBetweenTwoDates nii kauatheDifferenceBetweenTwoDates = DateDiff ("q", "11.11.2010", "10.10.2012")Silumine. Printige theDifferenceBetweenTwoDatesEnd Sub

Tulemuseks on:

Funktsioon VBA DatePart

Funktsiooni DatePart saate kasutada teatud kuupäeva (päev, nädal, kvartal, kuu jne) tagastamiseks.

Funktsiooni DatePart süntaks on järgmine:

DatePart (intervall, kuupäev, [nädala esimene päev], [aasta esimene nädal]), kus:

• Intervall - string, mis määrab tagastamise kuupäeva osa. Intervall võib olla üks järgmistest väärtustest:

"D" - päev
“Ww” - nädal
"W" - nädalapäev
"M" - kuu
“Q” - veerand
“Aaaa” - aasta
"Y" - aasta päev
"H" - tund
"N" - minut
"S" - teine

• Kuupäev - kuupäev, millest soovite funktsiooni osa tagastada.
• Nädala esimene päev (Valikuline) - konstant, mis määrab nädalapäeva, mida funktsioon peaks kasutama nädala esimesena. Kui nädala esimeseks päevaks kasutatakse tühja pühapäeva. Firstdayofweek võib olla üks järgmistest väärtustest:

-vbSunday - kasutab pühapäeva nädala esimesena.
-vbMonday - kasutab esmaspäeva nädala esimesena.
-vbTesday - kasutab nädala esimest päeva teisipäeval.
-vbKolmapäev - kasutab nädala kolmapäeva nädala esimesena.
-vbThursday - kasutab neljapäeva nädala esimesena.
-vbFriday - kasutab nädala esimest päeva reedel.
-vbSaturday - kasutab nädala esimest päeva laupäeval.
-vbUseSystemDayOfTheWeek - kasutab teie süsteemi seadetes määratud nädala esimest päeva.

• Aasta esimene nädal (Valikuline) - konstant, mis määrab aasta esimese nädala. Kui see on tühi, kasutatakse aasta esimeseks nädalaks 1. jaanuari nädalat. Aasta esimene nädal võib olla üks järgmistest väärtustest:

-vbFirstJan1 - kasutab nädalat, mis sisaldab 1. jaanuari.
-vbFirstFourDays - kasutab esimest nädalat, mis sisaldab uuel aastal vähemalt nelja päeva.
-vbFirstFullWeek - kasutab aasta esimest täisnädalat.
-vbSystem - kasutab aasta esimest nädalat vastavalt teie süsteemiseadetele.

Järgmine kood näitab teile, kuidas funktsiooni DatePart kasutada:

123456789

Alamfunktsiooni TheDatePartFunction kasutamine ()PimendagePartOfTheDate täisarvunathePartOfTheDate = DatePart ("aaaa", "12.12.2009")Silumine. Printige ThePartOfTheDateEnd Sub

Tulemuseks on:

VBA DateSerial funktsioon

Funktsioon VBA DateSerial võtab sisendi aasta, kuu ja päeva ning tagastab kuupäeva.

Funktsiooni DateSerial süntaks on järgmine:

DateSerial (aasta, kuu, päev), kus:

• Aasta - täisarv 100 kuni 9999, mis tähistab aastat.
• Kuu - täisarv, mis tähistab kuud.
• Päev - täisarv, mis tähistab päeva.

Järgmine kood näitab teile, kuidas kasutada funktsiooni DateSerial:

123456789

Alamfunktsioon TheDateSerialFunction ()Dim theDate as DatetheDate = DateSerial (2010, 11, 10)Silumine. Prindi kuupäevEnd Sub

Tulemuseks on:

Funktsioon VBA DateValue

Funktsioon DateValue tagastab kuupäeva, kui antakse kuupäeva string.

Funktsiooni DateValue süntaks on järgmine:

DateValue (kuupäev) kus:

• Kuupäev - kuupäeva tähistav string.

Järgmine kood näitab teile, kuidas funktsiooni DateValue kasutada:

123456789

Funktsiooni alamdetikaDateValueFunction ()Dim theDate as DatetheDate = DateValue ("29. oktoober 2010")Silumine. Prindi kuupäevEnd Sub

Tulemuseks on:

VBA päevafunktsioon

Funktsiooni Päev abil saate sisestuskuupäeva tagastada.

Päevafunktsiooni süntaks on järgmine:

Päev (kuupäeva_väärtus), kus:

• Kuupäeva väärtus - kuupäev, millest soovite päeva välja võtta.

Järgmine kood näitab teile, kuidas päevafunktsiooni kasutada:

123456789

Alamfunktsioon TheDayFunction ()Hämardage päev täisarvunatheDay = päev ("10.12.2010")Silumine. Prindi päevEnd Sub

Tulemuseks on:

VBA tunni funktsioon

Saate kasutada tunnifunktsiooni sisendaja tunni tagastamiseks.

Tundfunktsiooni süntaks on järgmine:

Tund (aeg), kus:

• Aeg - aeg, millest soovite tunde eraldada.

Järgmine kood näitab teile, kuidas kasutada tunnifunktsiooni:

123456789

Alamfunktsiooni TheHourFunction kasutamine ()Hämardage tund täisarvunatheHour = Tund ("2:14:17 AM")Silumine. Printige tundEnd Sub

Tulemuseks on:

VBA minuti funktsioon

Minute funktsiooni abil saate sisendaja minutiväärtuse tagastada.

Minuti funktsiooni süntaks on järgmine:

Minut (aeg), kus:

• Aeg - aeg, millest soovite minutiväärtuse eraldada.

Järgmine kood näitab, kuidas kasutada minutifunktsiooni:

123456789

Alamfunktsiooni TheMinuteFunction () kasutamineDim theMinuteValue kui täisarvtheMinuteValue = Minute ("2:14:17 AM")Silumine. Printige MinuteValueEnd Sub

Tulemuseks on:

VBA teine ​​funktsioon

Teist funktsiooni saate kasutada sisendaja teise väärtuse tagastamiseks.

Teise funktsiooni süntaks on järgmine:

Teine (aeg), kus:

• Aeg - aeg, millest soovite teise väärtuse eraldada.

Järgmine kood näitab teile, kuidas teist funktsiooni kasutada:

123456789

Funktsiooni Alam kasutamine ()Dim theSecondValue kui täisarvtheSecondValue = Teine ("2:14:17 AM")Silumine. Prindi theSecondValueEnd Sub

Tulemuseks on:

VBA kuu funktsioon

Funktsiooni Kuu abil saate sisestuskuupäeva kuu tagastada.

Kuu funktsiooni süntaks on järgmine:

Kuu (kuupäeva_väärtus), kus:

• Kuupäeva_väärtus - kuupäev, millest soovite kuu välja võtta.

Järgmine kood näitab teile, kuidas kuu funktsiooni kasutada:

12345678

Funktsiooni alamkasutus ()Pimendage kuu täisarvunatheMonth = Kuu ("18.11.2010")Silumine. Printige KuuEnd Sub

Tulemuseks on:

Funktsioon VBA MonthName

Funktsiooni MonthName abil saate sisestada sisestatud kuu numbrilt kuu nime.

Funktsiooni MonthName süntaks on järgmine:

KuuNimi (kuu_kuu, [lühend]), kus:

• Kuu_arv - täisarv vahemikus 1 kuni 12.
• Lühend (Valikuline) - määrab, kas kuu nime tuleks lühendada. Kui see on tühi, kasutatakse vaikimisi väärtust Väär.

12345678

Alam, kus kasutatakse funktsiooni TheMonthNameFunction ()Dim theMonthName kui stringtheMonthName = KuuNimi (12, Tõsi)Silumine. Printige KuuNimiEnd Sub

Tulemuseks on:

VBA TimeSerial funktsioon

Funktsioon TimeSerial võtab sisendi tunni, minuti ja sekundi ning tagastab aja.

Funktsiooni TimeSerial süntaks on järgmine:

TimeSerial (tund, minut, sekund), kus:

• Tund - täisarv 0 kuni 23, mis tähistab tunni väärtust.
• Minute - täisarv 0 kuni 59, mis tähistab minuti väärtust.
• Teine - täisarv 0 kuni 59, mis tähistab teist väärtust.

Järgmine kood näitab teile, kuidas kasutada funktsiooni TimeSerial:

12345678

Alamfunktsioon TheTimeSerialFunction ()Pimendage aeg kuupäevakstheTime = TimeSerial (1, 10, 15)Silumine. Printige aegEnd Sub

Tulemuseks on:

Funktsioon VBA TimeValue

Funktsioon TimeValue tagastab kuupäeva või kellaaja stringi esitusest aja.

Funktsiooni TimeValue süntaks on järgmine:

TimeValue (aeg) kus:

• Aeg - aega tähistav string.

Järgmine kood näitab teile, kuidas funktsiooni TimeValue kasutada:

12345678

Sub UsingTheTimeValueFunction ()Pimendage aeg kuupäevakstheTime = TimeValue ("22:10:17")Silumine. Printige aegEnd Sub

Tulemuseks on:

VBA nädalapäeva funktsioon

Nädalapäeva funktsiooni abil saate sisestada täisarvu vahemikus 1 kuni 7, mis tähistab nädalapäeva sisendkuupäevast.

Nädalapäeva funktsiooni süntaks on järgmine:

Nädalapäev (kuupäev, [nädala esimene päev]), kus:

• Kuupäev - kuupäev, millest soovite nädalapäeva väärtuse eraldada.
• Nädala esimene päev (Valikuline) - konstant, mis määrab nädalapäeva, mida funktsioon peaks kasutama nädala esimesena. Kui nädala esimeseks päevaks kasutatakse tühja pühapäeva. Firstdayofweek võib olla üks järgmistest väärtustest:

-vbSunday - kasutab pühapäeva nädala esimesena.
-vbMonday - kasutab esmaspäeva nädala esimesena.
-vbTesday - kasutab nädala esimest päeva teisipäeval.
-vbKolmapäev - kasutab nädala kolmapäeva nädala esimesena.
-vbThursday - kasutab neljapäeva nädala esimesena.
-vbFriday - kasutab nädala esimest päeva reedel.
-vbSaturday - kasutab nädala esimest päeva laupäeval.
-vbUseSystemDayOfTheWeek - kasutab teie süsteemi seadetes määratud nädala esimest päeva.

Järgmine kood näitab teile nädalapäeva funktsiooni kasutamist:

1234567

AlamfunktsiooniWeekdayFunction kasutamine ()Dim theWeekDay täisarvunatheWeekDay = nädalapäev ("20.11.2019")Silumine. Printige nädalapäevEnd Sub

Tulemuseks on:

Funktsioon VBA WeekdayName

Funktsiooni WeekdayName abil saate sisestada nädalapäeva nime sisestatud nädalapäeva numbrilt.

Funktsiooni WeekdayName süntaks on järgmine:

WeekdayName (nädalapäev, [lühend], [nädala esimene päev]), kus:

• Nädalapäev - täisarv vahemikus 1 kuni 7.
• Lühend (Valikuline) -Määrab, kas nädalapäeva nime tuleks lühendada. Kui see on tühi, kasutatakse vaikimisi väärtust Väär.
• Nädala esimene päev (Valikuline) - konstant, mis määrab nädalapäeva, mida funktsioon peaks kasutama nädala esimesena. Kui nädala esimest päeva kasutatakse tühja pühapäeva. Firstdayofweek võib olla üks järgmistest väärtustest:

-vbSunday - kasutab pühapäeva nädala esimesena.
-vbMonday - kasutab esmaspäeva nädala esimesena.
-vbTesday - kasutab nädala esimest päeva teisipäeval.
-vbKolmapäev - kasutab nädala kolmapäeva nädala esimesena.
-vbThursday - kasutab neljapäeva nädala esimesena.
-vbFriday - kasutab nädala esimest päeva reedel.
-vbSaturday - kasutab nädala esimest päeva laupäeval.
-vbUseSystemDayOfTheWeek - kasutab teie süsteemi seadetes määratud nädala esimest päeva.

12345678

AlamfunktsioonWeekdayNameFunction ()Dim theWeekdayName kui stringtheWeekdayName = NädalapäevaNimi (4)Silumine. Printige nädalapäeva nimiEnd Sub

Tulemuseks on:

VBA aasta funktsioon

Funktsiooni Aasta abil saate sisestuskuupäeva aasta tagasi saata.

Aasta funktsiooni süntaks on järgmine:

Aasta (kuupäeva_väärtus), kus:

• Kuupäeva_väärtus - kuupäev, millest soovite aasta välja võtta.

Järgmine kood näitab teile, kuidas kasutada aasta funktsiooni:

12345678

AlamfunktsiooniTheYearFunction kasutamine ()Hämardage aasta täisarvunatheYear = Aasta ("11.12.2010")Silumine. Printige aastaEnd Sub

Tulemuseks on:

Kuupäevade võrdlemine VBA -s

Kuupäevi saate võrrelda VBA operaatoritega>, <ja =. Järgmine kood näitab teile, kuidas võrrelda kahte kuupäeva VBA -s.

12345678910111213141516171819

Alamvõrdluskuupäevad ()Hämarda kuupäev Üks kuupäevDim dateTwo DatedateOne = "10.10.2010"dateTwo = "11.11.2010"Kui dateOne> dateTwo ThenSilumine. Printige "dateOne on hilisem kuupäev"ElseIf dateOne = dateTwo ThenSilumine. Prindi "Kaks kuupäeva on võrdsed"MuiduSilumine. Printige "dateTwo on hilisem kuupäev"Lõpp KuiEnd Sub

Lisateavet kuupäevade stringidena vormindamise kohta leiate sellest õpetusest.