seychellesartprojects.org

Exceli VBA kuupäevaseeria funktsioon

Funktsioon DateSerial tagastab kuupäeva kasutaja poolt edastatud väärtustest. Peame pakkuma, mis on aasta, mis on päev ja mis kuu. Tulemus põhineb teie süsteemi kuupäevavormingul.

Allpool on funktsiooni DATESERIAL süntaks .

# 1 - aasta: peame sisestama täisarvu, mis on aasta? Täisarvu sisestamise ajal peame silmas pidama asju.

• Pakume numbreid vahemikus 0 kuni 9999.
• Ühe- ja kahekohalisi numbreid 0–99 töödeldakse aastatel 1930–2029.
• Negatiivne täisarv lahutatakse aastast 2000. Näiteks kui sisestate -1, on tulemus 2000. aasta tõttu 1999 - 1 = 1999.

# 2 - Kuu: peame sisestama täisarvu, mis on kuu? Selle numbri sisestamisel peame silmas pidama asju.

• Pakume ainult numbreid 1 kuni 12.
• Kui sisestatud täisarv on 0, tähistab see eelmise aasta kuud “detsember”.
• Kui sisestatud täisarv on -1, tähistab see eelmise aasta kuud “november”. Niimoodi, kui negatiivne väärtus suureneb, kajastub see ka aasta tagurpidi.
• Kui esitatud number on üle 12, st kui see on 13, tähistab see järgmise aasta jaanuari kuud, kui number on 14, käsitletakse seda järgmise aasta veebruarikuisena.

# 3 - päev: peame sisestama täisarvu, mis on päev? Selle numbri sisestamisel peame silmas pidama asju.

• Saame sisestada praeguste kuupäevade täisarvud vahemikus 1 kuni 31.
• Kui arv on 0, tähistab see eelmise kuu viimast päeva.
• Kui arv on -1, tähistab see eelmise kuu teist viimast päeva.
• Kui sisestate selle kuu viimase päeva +1, tähistab see järgmise kuu esimest päeva. Näiteks kui augusti viimane päev on 31 ja kui sisestate päeva väärtuseks 31 + 1, tähistab see septembri esimest päeva.

Kuidas kasutada funktsiooni DATESERIAL VBA-s?

Selle VBA DateSerial Exceli malli saate alla laadida siit - VBA DateSerial Exceli mall

Näide 1

Funktsiooni DATESERIAL kasutamiseks alustage makrokoodi kirjutamist.

1. samm: alustage alamprotseduuri

Kõigepealt looge VBA alamprotseduur, nagu allpool näidatud.

2. samm: deklareerige muutuja

Nüüd deklareerige muutuja kuupäevaks DATE.

3. samm: määrake sellele muutujale DateSerial-funktsioon.

Nüüd selle muutuja jaoks määrake funktsioon DATESERIAL.

4. samm: sisestage nüüd funktsiooni DateSerial aasta, kuu ja päeva väärtused

Aastaks YEAR 2019, MONTH varuks 08 ja DAY varuks 05.

5. samm: kuvage sõnumikastis tulemus

Nüüd kuvage teatekastis muutuja “Minu kuupäev” tulemus.

Kood:

 Valik Selgesõnaline alamkuupäevaseeria_näide1 () Dim Mydate Kuupäeva Mydate = DateSerial (2019, 8, 5) MsgBox Mydate End Sub 

6. samm: käivitage kood

Nüüd käivitage see kood, et näha kuupäeva allolevat osa.

Tulemuseks on „5.8.2019”. Minu süsteemis on kuupäevavorming kujul “KK-PP-AAAA”, seetõttu on ka tulemus samas vormingus.

Kuupäeva vormingut saame muuta ka VBA funktsiooni FORMAT abil. Rakenda funktsioon FORMAT nagu allpool.

Kood:

 Valik Selgesõnaline alamkuupäevaseeria_näide1 () Dim Mydate Kuupäeva Mydate = DateSerial (2019, 8, 5) MsgBoxi vorming (Mydate, "PP-KK-AAAA") Lõpp-alam 

See kehtib vormingus „PP-KK-AAAA” ja tulemus on järgmine.

Näide 2

Samuti võime deklareerida muutujaid ja edastada nende muutujate väärtused. Näite saamiseks vaadake allolevat koodi.

Kood:

 Sub DateSerial_Example2 () Dim Mydate kui Date Dim MyYear as Integer Dim MyMonth as Integer Dim MyDay as Integer MyYear = 2019 MyMonth = 8 MyDay = 5 Mydate = DateSerial (MyYear, MyMonth, MyDay) MsgBox Format (Mydate, "DD-MM ") Lõpeta alam 

Aasta, kuu ja päeva otse funktsiooni DATESERIAL pakkumise asemel oleme deklareerinud muutujad ja määranud neile väärtused. Hiljem oleme funktsiooni DATESERIAL muutujad esitanud.

Nii saame väärtuste salvestamiseks kasutada VBA muutujaid.

Näide # 3

Nüüd katsetame aastat. Määran aasta väärtuseks 1 ja näen tulemust.

Aasta ühe- ja kahekohalised numbrid tähistavad aastat 1930 kuni 2029. Nii et 01 tähendab 2001, 02 tähendab 2002 ja nii edasi.

Nüüd muudame kuu numbri 0-ks ja näeme tulemust.

Vaadake koodi siit, aasta on 2019 ja kuu on 0. Kuid vaadake tulemust, mis on öeldud 05-detsember-2019, samas kui tarnitud aasta on 2019, see ütleb 2018, st eelmine aasta.

Selle põhjuseks on asjaolu, et kuna kuu on sisestatud kui funktsioon 0 DATESERIAL, võtab kuu eelmise aasta viimase kuu ja muudab vastavalt ka aastat.

Nii proovige funktsiooni mõju nägemiseks erinevaid numbreid.

Asjad, mida meeles pidada

• Peate teadma, milline number tähistab aastat, kuud ja päevahoidu. Lugege süntaksi selgitust hoolikalt, et sellest aru saada.
• Tulemus põhineb teie süsteemi kuupäevavormingul, kui soovite muudetud tulemust, peate rakendama vormindamise funktsiooni, mainides kuupäeva vormingut vastavalt teie mugavusele.