seychellesartprojects.org

„Excel VBA DateSerial“ funkcija

Funkcija „DateSerial“ VBA pateikia datą iš vartotojų pateiktų reikšmių. Turime pateikti, kas yra metai, kas yra diena ir koks mėnuo. Rezultatas bus pagrįstas jūsų sistemos datos formatu.

Žemiau yra DATESERIAL funkcijos sintaksė .

# 1 - metai: mes turime įvesti sveikąjį skaičių kaip kokie yra metai? Pateikdami sveiką skaičių turime nepamiršti dalykų.

• Mes galime pateikti numerius nuo 0 iki 9999.
• Vieno ir dviejų skaitmenų skaičiai nuo 0 iki 99 bus apdorojami nuo 1930 iki 2029 m.
• Neigiamas sveikasis skaičius bus atimtas iš 2000 metų. Pavyzdžiui, jei pateikiate -1, rezultatas bus 1999 m., Nes 2000 m. - 1 = 1999.

# 2 - mėnuo: turime įvesti sveikąjį skaičių kaip koks mėnuo? Įvesdami šį skaičių turime nepamiršti dalykų.

• Mes galime pateikti tik numerius nuo 1 iki 12.
• Jei pateikta sveiko skaičiaus vertė yra 0, tai reiškia praėjusių metų „gruodžio“ mėnesį.
• Jei pateikiama sveiko skaičiaus vertė yra -1, tai reiškia praėjusių metų „lapkričio“ mėnesį. Panašiai, kai neigiama vertė padidės, ji bus rodoma atgalinių metų mėnesį.
• Jei pateiktas skaičius yra didesnis nei 12, ty jei skaičius yra 13, tai reiškia kitų metų „sausio“ mėnesį, jei skaičius yra 14, jis bus laikomas kitų metų „vasario“ mėnesiu.

# 3 - Diena: turime įvesti sveikąjį skaičių kaip diena? Įvesdami šį skaičių turime nepamiršti dalykų.

• Galime įvesti einamojo mėnesio dienų sveikuosius skaičius nuo 1 iki 31.
• Jei skaičius yra 0, tai reiškia paskutinę praėjusio mėnesio dieną.
• Jei skaičius yra -1, tai reiškia antrą paskutinę praėjusio mėnesio dieną.
• Jei pateiksite paskutinę šio mėnesio dieną +1, tai bus kito mėnesio pirmoji diena. Pvz., Jei paskutinė rugpjūčio diena yra 31 ir jei nurodysite dieną kaip 31 + 1, tai bus rugsėjo pirmoji diena.

Kaip naudoti DATESERIAL funkciją VBA?

Šį „VBA DateSerial Excel“ šabloną galite atsisiųsti čia - VBA „DateSerial Excel“ šablonas

1 pavyzdys

Norėdami naudoti DATESERIAL funkciją, pradėkite rašyti makrokodą.

1 veiksmas: pradėkite antrinę procedūrą

Pirmiausia sukurkite VBA subprocedūrą, kaip parodyta žemiau.

2 žingsnis: paskelbkite kintamąjį

Dabar skelbkite kintamąjį kaip DATE.

3 žingsnis: priskirkite „DateSerial“ funkciją šiam kintamajam.

Dabar šiam kintamajam priskirkite funkciją DATESERIAL.

4 žingsnis: Dabar „DateSerial“ funkcijoje įveskite metų, mėnesio ir dienos reikšmes

2019 m. Tiekimui YEAR, 08 mėn. MONTH tiekimui ir 05 DAY tiekimui.

5 žingsnis: Rodyti rezultatą pranešimų laukelyje

Dabar pranešimo laukelyje parodykite kintamojo „Mano data“ rezultatą.

Kodas:

 Parinktis Aiškus antrinis „Date Date“ Serial_Example1 () „Dim Mydate“ kaip „Data Mydate“ = „DateSerial“ (2019, 8, 5) „MsgBox Mydate End Sub“ 

6 veiksmas: paleiskite kodą

Dabar paleiskite šį kodą, kad pamatytumėte žemiau datą.

Rezultatas sako: „2019-08-05“. Mano sistemoje datos formatas yra „MM-DD-MMMM“, todėl rezultatas taip pat yra to paties formato.

Datos formatą taip pat galime pakeisti naudodami VBA funkciją FORMAT. Taikykite FORMAT funkciją, kaip nurodyta toliau.

Kodas:

 Parinktis Aiškus antrinis „DateSerial_Example1“ () Dim Mydate as Date Mydate = DateSerial (2019, 8, 5) MsgBox Format (Mydate, "DD-MMM-YYYY") End Sub 

Tai bus taikoma „DD-MMM-YYYY“ formatu, o rezultatas bus toks.

2 pavyzdys

Mes taip pat galime deklaruoti kintamuosius ir pateikti tų kintamųjų reikšmes. Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.

Kodas:

 Sub DateSerial_Example2 () Dim Mydate as 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" ") Pabaigos antr 

Užuot pateikę metus, mėnesį ir dieną tiesiai funkcija DATESERIAL, mes deklaravome kintamuosius ir priskyrėme jiems reikšmes. Vėliau mes pateikėme kintamuosius funkcijai DATESERIAL.

Taip mes galime naudoti kintamuosius VBA, kad išsaugotume vertes.

3 pavyzdys

Dabar mes eksperimentuosime su metais. Paskirsiu metų vertę kaip 1 ir pamatysiu rezultatą.

Vienų ir dviženkliai skaičiai YEAR reiškia metus nuo 1930 iki 2029 m. Taigi 01 reiškia 2001 m., 02 reiškia 2002 m. Ir pan.

Dabar pakeiskime mėnesio skaičių į 0 ir pamatysime rezultatą.

Pažvelkite į kodą čia: Metai yra 2019, o mėnuo yra 0. Bet pažiūrėkite į rezultatą, kurį jis sako 2019 m. Gruodžio 5 d., O pateikti metai yra 2019 m., Ty 2018 m., Ty praėjusieji metai.

Taip yra todėl, kad kadangi mėnesį pateikėme kaip „0 DATESERIAL“ funkciją, mėnuo užtruks nuo praėjusių metų praėjusio mėnesio ir atitinkamai pakeis metus.

Kaip tai išbandykite skirtingus skaičius, kad pamatytumėte funkcijos poveikį.

Ką reikia atsiminti

• Turite žinoti, kuris skaičius nurodo metus, mėnesį ir dienos priežiūros paslaugas. Atidžiai perskaitykite sintaksės paaiškinimą, kad suprastumėte.
• Rezultatas bus pagrįstas jūsų sistemos datos formatu. Jei norite modifikuoto rezultato, turite pritaikyti funkciją FORMAT. Nurodykite datos formatą, kaip jums patogiau.