VBA -päivämäärän toiminnot

Tässä opetusohjelmassa käymme läpi erilaisia ​​sisäänrakennettuja VBA-päivämäärän toimintoja.

VBA -päivämäärätoiminto

Voit käyttää päivämäärätoimintoa nykyisen päivämäärän palauttamiseen.

Päivämääräfunktion syntaksi on Päivämäärä (). Sillä ei ole argumentteja.

Seuraava koodi näyttää päivämäärätoiminnon käytön:

12345678

Päivämäärän käyttäminen ()Himmennä päivämäärä päivämääränätheDate = Päivämäärä ()Virheenkorjaus Tulosta päivämääräEnd Sub

Tulos on:

VBA nyt -toiminto

Nyt -toiminnon avulla voit palauttaa nykyisen päivämäärän ja kellonajan.

Nyt -funktion syntaksi on Nyt (). Sillä ei ole argumentteja.

Seuraava koodi näyttää Now -toiminnon käytön:

12345678

Osa KäyttämälläNowFunction ()Himmennä päivämäärä päivämääränätheDate = Nyt ()Virheenkorjaus Tulosta päivämääräEnd Sub

Tulos on:

VBA -aikatoiminto

Aikatoiminnon avulla voit palauttaa nykyisen ajan.

Aikatoiminnon syntaksi on Aika (). Sillä ei ole argumentteja.

Seuraava koodi näyttää aikatoiminnon käytön:

12345678

Ajan käyttäminenTimeFunction ()Himmennä aika päivämääränätheTime = Aika ()Virheenkorjaus Tulosta aikaEnd Sub

Tulos on:

VBA DateAdd -toiminto

Voit käyttää DateAdd -funktiota päivämäärän/ajan lisäämiseen päivämäärään tai kellonaikaan, ja funktio palauttaa tuloksena olevan päivämäärän/kellonajan.

DateAdd -funktion syntaksi on:

DateAdd (väli, numero, päivämäärä), jossa:

• Väli - Merkkijono, joka määrittää käytettävän aikavälin tyypin. Väli voi olla jokin seuraavista arvoista:

"D" - päivä
"Ww" - viikko
"W" - arkipäivä
"M" - kuukausi
"Q" - neljännes
"Yyyy" - vuosi
"Y" - vuoden päivä
"H" - tunti
"N" - minuutti
"S" - toinen

• Numero - Välien lukumäärä, jonka haluat lisätä alkuperäiseen päivämäärään/aikaan.
• Päivämäärä - alkuperäinen päivämäärä/aika.

Huomautus: Kun käytät päivämääriä koodissasi, niiden ympärillä on oltava # tai lainausmerkit.

Seuraava koodi näyttää, miten DateAdd -toimintoa käytetään:

123456789

Sub KäyttäenTheDateAddFunction ()Himmennä myöhemmin Päivämäärä päivämääränälaterDate = DateAdd ("m", 10, "11.12.2019")Virheenkorjaus. Tulosta myöhemmin PäivämääräEnd Sub

Tulos on:

VBA DateDiff -toiminto

Voit käyttää DateDiff -funktiota saadaksesi eron kahden päivämäärän välillä määritetyn aikavälin perusteella.

DateDiff -funktion syntaksi on:

DateDiff (aikaväli, päivämäärä1, päivämäärä2, [ensimmäinen viikonpäivä], [ensimmäinen viikko]), jossa:

• Väli - Merkkijono, joka määrittää käytettävän aikavälin tyypin. Väli voi olla jokin seuraavista arvoista:

"D" - päivä
"Ww" - viikko
"W" - arkipäivä
"M" - kuukausi
"Q" - neljännes
"Yyyy" - vuosi
"Y" - vuoden päivä
"H" - tunti
"N" - minuutti
"S" - toinen

• Päivämäärä1 - Päivämäärä, joka edustaa aikaisempaa päivämäärää.
• Päivämäärä2 - Päivämäärä, joka edustaa myöhempää päivämäärää.
• Viikon ensimmäinen päivä (Valinnainen) - Vakio, joka määrittää viikonpäivän, jota funktion tulee käyttää viikon ensimmäisenä päivänä. Jos tyhjää sunnuntaita käytetään viikon ensimmäisenä päivänä. Firstdayofweek voi olla jokin seuraavista arvoista:

-vbSunday - käyttää sunnuntaita viikon ensimmäisenä päivänä.
-vbMonday - käyttää maanantaita viikon ensimmäisenä päivänä.
-vbTuesday - käyttää tiistaina viikon ensimmäisenä päivänä.
-vbKeskiviikko - käyttää keskiviikkoa viikon ensimmäisenä päivänä.
-vbThursday - käyttää torstaita viikon ensimmäisenä päivänä.
-vbFriday - käyttää perjantaita viikon ensimmäisenä päivänä.
-vbSaturday - käyttää lauantaita viikon ensimmäisenä päivänä.
-vbUseSystemDayOfTheWeek - käyttää järjestelmän asetusten määrittämää viikon ensimmäistä päivää.

• Ensimmäinen viikko (Valinnainen) - Vakio, joka määrittää vuoden ensimmäisen viikon. Jos tyhjä, tammikuun 1. viikkoa käytetään vuoden ensimmäisenä viikona. Ensimmäinen viikko voi olla jokin seuraavista arvoista:

-vbFirstJan1 - käyttää viikon, joka sisältää 1. tammikuuta.
-vbFirstFourDays - käyttää ensimmäistä viikkoa, joka sisältää vähintään neljä uutta vuotta.
-vbFirstFullWeek - käyttää vuoden ensimmäistä täyttä viikkoa.
-vbSystem - käyttää vuoden ensimmäistä viikkoa järjestelmän asetusten mukaisesti.

Seuraava koodi näyttää kuinka käyttää DateDiff -toimintoa:

123456789

Osa KäyttämälläDateDiffFunction ()Dim theDifferenceBetweenTwoDates niin kauantheDifferenceBetweenTwoDates = DateDiff ("q", "11.11.2010", "10.12.2012")DebugEnd Sub

Tulos on:

VBA DatePart -toiminto

Voit käyttää DatePart -funktiota palauttaaksesi tietyn päivämäärän osan (päivä, viikko, vuosineljännes, kuukausi jne.).

DatePart -funktion syntaksi on:

DatePart (Intervalli, Päivämäärä, [Firstdayofweek], [Firstweekofyear]), jossa:

• Väli - Merkkijono, joka määrittää palautettavan päivämäärän osan. Väli voi olla jokin seuraavista arvoista:

"D" - päivä
"Ww" - viikko
"W" - arkipäivä
"M" - kuukausi
"Q" - neljännes
"Yyyy" - vuosi
"Y" - vuoden päivä
"H" - tunti
"N" - minuutti
"S" - toinen

• Päivämäärä - päivämäärä, josta haluat toiminnon palauttavan osan.
• Viikon ensimmäinen päivä (Valinnainen) - Vakio, joka määrittää viikonpäivän, jota funktion tulee käyttää viikon ensimmäisenä päivänä. Jos tyhjää sunnuntaita käytetään viikon ensimmäisenä päivänä. Firstdayofweek voi olla jokin seuraavista arvoista:

-vbSunday - käyttää sunnuntaita viikon ensimmäisenä päivänä.
-vbMonday - käyttää maanantaita viikon ensimmäisenä päivänä.
-vbTuesday - käyttää tiistaina viikon ensimmäisenä päivänä.
-vbKeskiviikko - käyttää keskiviikkoa viikon ensimmäisenä päivänä.
-vbThursday - käyttää torstaita viikon ensimmäisenä päivänä.
-vbFriday - käyttää perjantaita viikon ensimmäisenä päivänä.
-vbSaturday - käyttää lauantaita viikon ensimmäisenä päivänä.
-vbUseSystemDayOfTheWeek - käyttää järjestelmän asetusten määrittämää viikon ensimmäistä päivää.

• Ensimmäinen viikko (Valinnainen) - Vakio, joka määrittää vuoden ensimmäisen viikon. Jos tyhjä, tammikuun 1. viikkoa käytetään vuoden ensimmäisenä viikona. Ensimmäinen viikko voi olla jokin seuraavista arvoista:

-vbFirstJan1 - käyttää viikon, joka sisältää 1. tammikuuta.
-vbFirstFourDays - käyttää ensimmäistä viikkoa, joka sisältää vähintään neljä uutta vuotta.
-vbFirstFullWeek - käyttää vuoden ensimmäistä täyttä viikkoa.
-vbSystem - käyttää vuoden ensimmäistä viikkoa järjestelmän asetusten mukaisesti.

Seuraava koodi näyttää, miten DatePart -toimintoa käytetään:

123456789

Osa KäyttämälläDatePartFunction ()Dim thePartOfTheDate kokonaislukunathePartOfTheDate = DatePart ("yyyy", "12/12/2009")Virheenkorjaus.TulostaPartOfTheDateEnd Sub

Tulos on:

VBA DateSerial -toiminto

VBA DateSerial -toiminto syöttää vuoden, kuukauden ja päivän ja palauttaa päivämäärän.

DateSerial -funktion syntaksi on:

DateSerial (vuosi, kuukausi, päivä), jossa:

• Vuosi - Vuosi edustaa kokonaislukua 100 ja 9999 välillä.
• Kuukausi - kokonaisluku, joka edustaa kuukautta.
• Päivä - Kokonaisluku, joka edustaa päivää.

Seuraava koodi näyttää kuinka käytät DateSerial -toimintoa:

123456789

Osa KäyttämälläDateSerialFunction ()Himmennä päivämäärä päivämääränätheDate = DateSerial (2010, 11, 10)Virheenkorjaus Tulosta päivämääräEnd Sub

Tulos on:

VBA DateValue -toiminto

DateValue -funktio palauttaa päivämäärän, kun sille annetaan päivämäärän merkkijono.

DateValue -funktion syntaksi on:

DateValue (päivämäärä) jossa:

• Päivämäärä - Päivämäärää edustava merkkijono.

Seuraava koodi näyttää kuinka DateValue -toimintoa käytetään:

123456789

Sub UsingTheDateValueFunction ()Himmennä päivämäärä päivämääränätheDate = DateValue ("29. lokakuuta 2010")Virheenkorjaus Tulosta päivämääräEnd Sub

Tulos on:

VBA -päivätoiminto

Päivätoiminnon avulla voit palauttaa syöttöpäivän päivän.

Päivätoiminnon syntaksi on:

Päivä (päivämäärä_arvo), jossa:

• Date_value - Päivämäärä, josta haluat poimia päivän.

Seuraava koodi näyttää päivätoiminnon käytön:

123456789

Päivätoiminnon käyttäminen ()Himmennä päivä kokonaislukunatheDay = päivä ("10/12/2010")Virheenkorjaus Tulosta päiväEnd Sub

Tulos on:

VBA -tuntitoiminto

Voit käyttää tunnitoimintoa palauttaaksesi syötetyn ajan tunnin.

Tuntitoiminnon syntaksi on:

Tunti (aika) missä:

• Aika - aika, josta haluat poimia tunnin.

Seuraava koodi näyttää, miten käytät Hour -toimintoa:

123456789

Osa KäyttämälläHourFunction ()Himmennä tunti kokonaislukunatheHour = Tunti ("2:14:17 AM")Virheenkorjaus Tulosta tuntiEnd Sub

Tulos on:

VBA -minuuttitoiminto

Voit käyttää minuuttitoimintoa syöttöajan minuutti -arvon palauttamiseen.

Minuuttitoiminnon syntaksi on:

Minuutti (aika) missä:

• Aika - aika, josta haluat poimia minuutin arvon.

Seuraava koodi näyttää, miten voit käyttää minuuttifunktiota:

123456789

Osa KäyttämälläMinuteFunction ()Himmennä MinuteValue kokonaislukunatheMinuteValue = Minuutti ("2:14:17 AM")Virheenkorjaus TulostaMinuteValueEnd Sub

Tulos on:

VBA toinen toiminto

Toisen funktion avulla voit palauttaa syöttöajan toisen arvon.

Toisen funktion syntaksi on:

Toinen (aika) missä:

• Aika - aika, josta haluat poimia toisen arvon.

Seuraava koodi näyttää toisen toiminnon käytön:

123456789

Toisen toiminnon käyttäminen ()Dim theSecondValue kokonaislukunatheSecondValue = Toinen ("2:14:17 AM")Virheenkorjaus Tulosta theSecondValueEnd Sub

Tulos on:

VBA -kuukausitoiminto

Kuukausitoiminnon avulla voit palauttaa syöttöpäivän kuukauden.

Kuukausitoiminnon syntaksi on:

Kuukausi (päivämäärä_arvo), jossa:

• Date_value - Päivämäärä, josta haluat poimia kuukauden.

Seuraava koodi näyttää kuukausitoiminnon käytön:

12345678

Osa käyttämällä kuukausitoimintoa ()Himmennä kuukausi kokonaislukunatheMonth = Kuukausi ("18.11.2010")Virheenkorjaus Tulosta kuukausiEnd Sub

Tulos on:

VBA MonthName -toiminto

Voit palauttaa kuukauden nimen syötetystä kuukauden numerosta MonthName -funktion avulla.

MonthName -funktion syntaksi on:

MonthName (kuukauden_kuukausi, [lyhenne]) missä:

• Kuukauden luku - Kokonaisluku 1 ja 12 välillä.
• Lyhenne (Valinnainen) - Määrittää, onko kuukauden nimi lyhennettävä. Jos tyhjä, käytetään oletusarvoa False.

12345678

Osa KäyttämälläKuukaudenNimiFunktio ()HimmennäKuukauden nimi merkkijonoksitheMonthName = MonthName (12, True)Virheenkorjaus Tulosta kuukausiNimiEnd Sub

Tulos on:

VBA TimeSerial -toiminto

TimeSerial -toiminto vie tunnit, minuutit ja sekunnit ja palauttaa ajan.

TimeSerial -funktion syntaksi on:

TimeSerial (tunti, minuutti, sekunti) missä:

• Tunti - Kokonaisluku 0–23, joka edustaa tunnin arvoa.
• Minuutti - Kokonaisluku 0–59, joka edustaa minuutin arvoa.
• Toinen - Kokonaisluku 0–59, joka edustaa toista arvoa.

Seuraava koodi näyttää TimeSerial -toiminnon käytön:

12345678

Osa KäyttämälläTimeSerialFunction ()Himmennä aika päivämääränätheTime = TimeSerial (1, 10, 15)Virheenkorjaus Tulosta aikaEnd Sub

Tulos on:

VBA TimeValue -toiminto

TimeValue -funktio palauttaa ajan päivämäärän tai kellonajan merkkijonosta.

TimeValue -funktion syntaksi on:

TimeValue (Aika) jossa:

• Aika - Aikaa edustava merkkijono.

Seuraava koodi näyttää, miten TimeValue -toimintoa käytetään:

12345678

Sub UsingTheTimeValueFunction ()Himmennä aika päivämääränätheTime = TimeValue ("22:10:17")Virheenkorjaus Tulosta aikaEnd Sub

Tulos on:

VBA -viikonpäivätoiminto

Voit käyttää viikonpäivätoimintoa palauttaaksesi kokonaisluvun 1-7, joka edustaa viikonpäivää syöttöpäivästä.

Viikonpäivän funktion syntaksi on:

Viikonpäivä (Päivämäärä, [Ensimmäinen viikonpäivä]), jossa:

• Päivämäärä - päivämäärä, josta haluat poimia viikonpäivän arvon.
• Viikon ensimmäinen päivä (Valinnainen) - Vakio, joka määrittää viikonpäivän, jota funktion tulee käyttää viikon ensimmäisenä päivänä. Jos tyhjää sunnuntaita käytetään viikon ensimmäisenä päivänä. Firstdayofweek voi olla jokin seuraavista arvoista:

-vbSunday - käyttää sunnuntaita viikon ensimmäisenä päivänä.
-vbMonday - käyttää maanantaita viikon ensimmäisenä päivänä.
-vbTuesday - käyttää tiistaina viikon ensimmäisenä päivänä.
-vbKeskiviikko - käyttää keskiviikkoa viikon ensimmäisenä päivänä.
-vbThursday - käyttää torstaita viikon ensimmäisenä päivänä.
-vbFriday - käyttää perjantaita viikon ensimmäisenä päivänä.
-vbSaturday - käyttää lauantaita viikon ensimmäisenä päivänä.
-vbUseSystemDayOfTheWeek - käyttää järjestelmän asetusten määrittämää viikon ensimmäistä päivää.

Seuraava koodi näyttää viikonpäivän toiminnon käytön:

1234567

AlivalikkoWeekdayFunction ()Himmennä viikonpäivä kokonaislukunatheWeekDay = Viikonpäivä ("20.11.2019")Virheenkorjaus, TulostaWeekDayEnd Sub

Tulos on:

VBA WeekdayName -toiminto

Voit käyttää WeekdayName -funktiota palauttaaksesi viikonpäivän nimen syötetystä viikonpäivän numerosta.

WeekdayName -funktion syntaksi on:

WeekdayName (Viikonpäivä, [lyhenne], [viikon ensimmäinen päivä]), jossa:

• Viikonpäivä - Kokonaisluku 1 ja 7 välillä.
• Lyhenne (Valinnainen) -Määrittää, pitäisikö viikonpäivän nimeä lyhentää. Jos tyhjä, käytetään oletusarvoa False.
• Viikon ensimmäinen päivä (Valinnainen) - Vakio, joka määrittää viikonpäivän, jota funktion tulee käyttää viikon ensimmäisenä päivänä. Jos tyhjää sunnuntaita käytetään viikon ensimmäisenä päivänä. Firstdayofweek voi olla jokin seuraavista arvoista:

-vbSunday - käyttää sunnuntaita viikon ensimmäisenä päivänä.
-vbMonday - käyttää maanantaita viikon ensimmäisenä päivänä.
-vbTuesday - käyttää tiistaina viikon ensimmäisenä päivänä.
-vbKeskiviikko - käyttää keskiviikkoa viikon ensimmäisenä päivänä.
-vbThursday - käyttää torstaita viikon ensimmäisenä päivänä.
-vbFriday - käyttää perjantaita viikon ensimmäisenä päivänä.
-vbSaturday - käyttää lauantaita viikon ensimmäisenä päivänä.
-vbUseSystemDayOfTheWeek - käyttää järjestelmän asetusten määrittämää viikon ensimmäistä päivää.

12345678

Osa KäyttämälläWeekdayNameFunction ()Himmennä viikonpäivän nimi merkkijononatheWeekdayName = Viikonpäivän nimi (4)Virheenkorjaus Tulosta viikonpäiväEnd Sub

Tulos on:

VBA Vuositoiminto

Vuositoiminnon avulla voit palauttaa syöttöpäivän vuoden.

Vuoden funktion syntaksi on:

Vuosi (päivämäärä_arvo), jossa:

• Date_value - Päivämäärä, josta haluat poimia vuoden.

Seuraava koodi näyttää, miten voit käyttää vuositoimintoa:

12345678

OsaVuoden toiminnon käyttäminen ()Himmennä vuosi kokonaislukunatheYear = Vuosi ("11/12/2010")Virheenkorjaus.Tulosta vuosiEnd Sub

Tulos on:

Vertaa päivämääriä VBA: ssa

Voit verrata päivämääriä VBA: n>, <ja = -operaattoreilla. Seuraava koodi näyttää kuinka verrata kahta päivämäärää VBA: ssa.

12345678910111213141516171819

Alavertailupäivät ()Himmennä päivämäärä Yksi päivämääräHimmennä päivämäärä Kaksi päivämääräädateOne = "10/10/2010"dateTwo = "11.11.2010"Jos päivämääräYksi> päivämääräKaksi sittenDebug.Print "dateOne on myöhempi päivämäärä"ElseIf dateOne = dateTwo ThenDebug.Print "Kaksi päivämäärää ovat samat"MuuDebug.Print "dateTwo on myöhempi päivämäärä"Loppu JosEnd Sub

Lisätietoja päivämäärien muotoilemisesta merkkijonoiksi on tämän opetusohjelman avulla.