/ / Excel VBA Päivämäärä ja kellonaika

Excel VBA Päivämäärä ja aika

Vuosi, kuukausi, päivämäärä | DateAdd | Nykyinen päivämäärä ja kellonaika | Tunti, minuutti, sekunti | TIMEVALUE

Opi tekemään työtä päivämäärät ja ajat sisään Excel VBA.

Aseta komentopainike laskentatauluun ja lisää alla olevat koodiluokat. Voit suorittaa koodiluokat napsauttamalla arkki-komentoa.

Vuosi, kuukausi, päivämäärä

Seuraava makro saa päivämäärän vuodeksi. Ilmoittaaksesi päivämäärän, käytä Dim-lauseketta. Päivämäärän alustaminen käyttämällä DateValue-toimintoa.

Koodi:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Tulos:

Vuosi päivämäärä Excel VBA

Huomaa: Käytä kuukausi ja päivä saadaksesi päivämäärän kuukauden ja päivän.

DateAdd

Jos haluat lisätä useita päiviä päivämäärään, käytäDateAdd -toiminto. DateAdd-toiminnolla on kolme argumenttia. Täytä "d" ensimmäisen argumentin päivien lisäämiseksi. Täytä 3, kun toinen argumentti lisää 3 päivää. Kolmas argumentti edustaa päivämäärää, johon päivien määrä lisätään.

Koodi:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

Tulos:

DateAdd

Huomautus: Muuta "d" - "m" lisätäksesi useita kuukausia päivämäärään. Aseta kohdistin DateAdd -ohjelmaan Visual Basic -editorissa ja klikkaa F1-ohjetta muille aikavälien määrittelijöille. Päivämäärät ovat Yhdysvaltain formaatissa. Kuukaudet ensimmäinen, Päivät toisena. Tämäntyyppinen muoto riippuu Windowsin alueasetuksista.

Nykyinen päivämäärä ja kellonaika

Saat nykyisen päivämäärän ja kellonajan käyttämällä Now-toimintoa.

Koodi:

MsgBox Now

Tulos:

Nykyinen päivämäärä ja kellonaika

Tunti, minuutti, sekunti

Hanki tunnin tunti, käytä Tunti-toimintoa.

Koodi:

MsgBox Hour(Now)

Tulos:

Nykyisen kellon tunti

Huomaa: Käytä minuutteja ja toistoa minuutin ja toisen ajan.

TIMEVALUE

TimeValue-funktio muuntaa merkkijonon ajan sarjanumeroon. Ajan sarjanumero on luku välillä 0 ja 1. Esimerkiksi keskipäivä (puolivälissä päivä) on 0,5.

Koodi:

MsgBox TimeValue("9:20:01 am")

Tulos:

TIMEVALUE

Nyt on selvää, että Excel käsittelee sisäisesti numeroita 0-1, lisää seuraavat koodiriviä:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

Tulos:

Aika-sarjanumero

Lue myös: