Mikä on VBA DateSerial?

VBA DATESERIAL -toiminto on sisäänrakennettu toiminto Excelissä. DATESERIAL-funktio palauttaa päivämäärän, joka on annettu vuoden, kuukauden ja päivän arvona. Oletetaan esimerkiksi, että tänään päivämäärä on 18. heinäkuuta 2019. Jotkut käyttäjät voivat kirjoittaa sen nimellä 18. heinäkuuta -19 tai 18.-19.-19. Päivämäärien muodot voivat olla erilaisia ​​useille käyttäjille. Tämä antaa meille työlästä työtä suuremmalla määrällä päivämääriä eri muodoissa.

Kuten edellä määritelty ongelmalausunto, päivämäärien muoto voi olla erilainen useille käyttäjille. Tästä päivämääräsarjatoiminnosta tulee VBA: n apua. On erittäin hyvä tehtävä tehdä oma päivämäärä valitsemillamme arvoilla. Kerro meille tästä toiminnosta yksityiskohtaisesti. DateSerial-funktio VBA: ssa on päivämäärä- ja aikatoiminto, joten tämän funktion palautettu arvo on DATE. Menetelmä syntaksin käyttämiseksi tälle toiminnolle on seuraava.

VBA DateSerialin syntaksi

VBA DateSerial -toiminnon syntaksi excelissa on seuraava:

Se vie kolme argumenttia vuosi, kuukausi ja päivä.

  • Vuosi: Funktion argumentin tämän osan hyväksytty alue on välillä 100-9999. Argumentin tietotyypin tulisi olla kokonaisluku.
  • Kuukausi: Funktion argumentin tämän osan hyväksytty alue on välillä 1–12. Argumentin tietotyypin tulisi olla kokonaisluku.
  • Päivä: Funktion argumentin tämän osan hyväksytty alue on välillä 1-31. Argumentin tietotyypin tulisi olla kokonaisluku.

Mutta tässä on hieno osa tätä toimintoa. Jos tarjoamme argumentin hyväksytyn alueen yläpuolella, funktio ei palauta virhettä, se laskee alueen toisen osan ja näyttää päivämäärän. Esimerkiksi, jos annan syötteen päivämääräsarjana (2019, 14, 02), tiedämme nyt, että vuodessa voi olla vain 12 kuukautta, mutta olen toimittanut perusteluksi 14. Toiminto ei palauta virhettä, vaan lisää kaksi ylimääräistä kuukautta kuluvana vuonna, joten tulos on 2020-02-02.

Kuinka käyttää VBA DateSerial -toimintoa Excelissä?

Opimme käyttämään VBA DateSerial -toimintoa muutamalla excel-esimerkillä.

Voit ladata tämän VBA DateSerial Excel -mallin täältä - VBA DateSerial Excel Template

Testatkaamme tätä toimintoa muutamalla esimerkillä, jotka tekevät asioista paljon selkeämmän meille.

Esimerkki 1 - VBA DateSerial

Antakaamme ensin yksinkertainen päivämäärä muuttujalle käyttämällä päivämääräsarjafunktiota ja katso saamme tulos.

Vaihe 1: Ennen kuin aloitamme esimerkkien kanssa, varmista ensin, että kehittäjän välilehti on käytössä, ja siirry sitten koodiosioon avataksesi VB-editorin napsauttamalla Visual Basicia kuten alla olevassa kuvassa.

Vaihe 2: Aseta moduuli napsauttamalla yllä olevassa ikkunassa Lisää-välilehteä. Työskentelemme samassa moduulissa kaikille esimerkillemme.

Vaihe 3: Aloita osaprosessit seuraavasti ja ilmoita muuttuja päivämäärätietotyypiksi.

Koodi:

 Alinäyte () Dim Dt Päivämäärän lopun alaosa

Vaihe 4: Annetaan nyt päivämäärä muuttujalle käyttämällä päivämääräsarjatoimintoa.

Koodi:

 Alinäyte () Dim Dt As Date Dt = DateSerial (2019, 7, 2) End Sub

Vaihe 5: Näytä muuttujaan tallennettu arvo msgbox-toiminnolla.

Koodi:

 Alinäyte () Dim Dt As Date Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Vaihe 6: Kun suoritamme yllä olevan koodin, saamme seuraavan tuloksen.

Esimerkki 2 - VBA DateSerial

Testatkaamme nyt teoriaa, josta keskustelimme edellä johdannossa, että jos tarjoamme arvot hyväksyttyjen alueiden lisäksi ja funktio laskee päivämäärän meille.

Vaihe 1: Käynnistä samassa moduulissa toinen aliohjelma seuraavasti.

Koodi:

 Alinäyte1 () Loppu alaosa

Vaihe 2: Määritä nyt muuttuja päivämäärätietotyypillä.

Koodi:

 Alinäyte1 () Dim Dt Päivämäärän lopun alaosa

Vaihe 3: Annetaan tulo DT-muuttujaan käyttämällä päivämääräsarjatoimintoa, kuten alla.

Koodi:

 Alinäyte1 () Himmennetty Dt Päivämääränä Dt = Päivämäärä (2019, 14, 2) End Sub

Vaihe 4: Näytä Dt-muuttujaan tallennettu arvo msgbox-toiminnolla.

Koodi:

 Alinäyte1 () Himmennetty Dt Päivämääränä Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Vaihe 5: Suorita nyt yllä oleva koodi ja katso alla oleva tulos seuraavalla tavalla.

Voimme nähdä, että vuosi on muuttunut, koska olimme antaneet kaksi ylimääräistä kuukautta väitteille. Pohjimmiltaan tämä toiminto lisäsi 14 kuukautta vuoteen 2019, joka antoi meille vuoden 2020 toisen kuukauden ja 2. päivämäärän.

Esimerkki 3 - VBA DateSerial

Edellä olevissa esimerkeissä toimitimme argumentit yleisellä päivämäärällä. Mutta keskustelimme siitä, kuinka käyttäjät voivat syöttää kohtuuttomia arvoja päivämääräosaan muodossa, sillä päivämäärien kirjoittaminen on erilainen henkilökohtaisesti. Vertaamme kahta päivämäärämuotoa käyttämällä esimerkkipäivän sarjatoimintoa.

Vaihe 1: Määritä samassa moduulissa toinen alaprosessori kolmannen esimerkin mukaisesti.

Koodi:

 Alinäyte2 () Loppu alaosaan

Vaihe 2: Määritä tässä skenaariossa kaksi muuttujaa päivämääriksi, kuten alla on esitetty.

Koodi:

 Alinäyte2 () himmennetty Dt1, Dt2 päivämäärän lopun alaosaan

Vaihe 3: Nyt annamme ensimmäisen muuttujan päivämäärä yksinkertaisella säännöllisellä tavalla päiväysfunktion avulla.

Koodi:

 Alinäyte2 () himmennetty Dt1, Dt2 päivämääränä Dt1 = DateSerial (2019, 12, 31) End Sub

Vaihe 4: Nyt annamme toiselle muuttujalle päivämäärä epäsäännöllisesti käyttämällä päivämäärätoimintoa, kuten alla on esitetty.

Koodi:

 Alinäyte2 () Himma Dt1, Dt2 Päivämääränä Dt1 = Päivämäärä (2019, 12, 31) Dt2 = Päivämäärä (19, 12, 31) End Sub

Vaihe 5: Tulosta nämä molemmat arvot nyt msgbox-toiminnolla.

Koodi:

 Alinäyte2 () Dim Dt1, Dt2 päivämääränä Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Vaihe 6: Suorita yllä oleva koodi löytääksesi alla olevan tuloksen.

Voimme nähdä, että molemmat päivämäärät ovat samat. Kaksinumeroinen vuosi 19 tulkitaan vuodeksi 2019.

Muistettavat asiat

  • Se on päivämäärä- ja aikatoiminto, joten tulos on päivämäärä.
  • Jos toiminnolle annettu arvo on yli funktion hyväksytyn alueen, se laskee automaattisesti päivämäärän virheen antamisen sijaan.
  • Jos argumentteille annetut arvot ovat suurempia kuin kokonaisluvun mahdollinen arvo, funktio palauttaa virheen.

Suositellut artikkelit

Tämä on opas VBA DateSerialiin. Tässä keskustellaan siitä, kuinka käyttää Excel VBA DateSerial -toimintoa yhdessä käytännön esimerkkien ja ladattavien Excel-mallien kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA InStr selitti esimerkeillä
  2. VBA-kokonaisluvutietotyyppi
  3. VBA ISNULL selitetty esimerkeillä
  4. VBA-päivämäärämuoto (esimerkit)

Luokka:

VBA