Exceli VBA kuupäeva lisamine

VBA kuupäeva lisamine on funktsioon, mis täidab aja / kuupäeva intervallide liitmist või lahutamist. Kuupäev naaseb, lisades või lahutades kindlaksmääratud ajavahemiku. Kui teete selle kohta arvutusi, on kuupäeva ja kellaajaga üsna keeruline hakkama saada. Kuid meie igapäevatöös on see oluline andmete tüüp, mida võime kasutada. Erinevate kuupäevade võrdlus, liitmine, lahutamine on mõned tuttavad toimingud, mida me teeme.

Funktsiooni DateAdd valem vormingus VBA

Funktsiooni VBA DateAdd valem on vormingus väga lihtne.

Vaatame, milliseid parameetreid kasutatakse funktsioonis Excel VBA DateAdd.

  • Intervall: see võib olla ajavahemik ajavahemiku kohta, mille soovite lisada või lahutada. See näitab, millist väärtust soovite lisada või lahutada. See võib olla kuupäeva või kellaaja komponent, näiteks päevad, kuu jne. Intervallide ulatus on esitatud allpool.

  • Number: on intervallide arv, mida soovite lisada. Kasutage positiivse numbri lisamiseks intervalli antud kuupäevaga ja negatiivse väärtusega, et lahutada intervall kuupäevast.
  • Kuupäev : kuupäev, millesse soovite intervalli lisada / lahutada. Toimingud tehakse sellel kuupäeval ja väljundina tagastamise kuupäev.

Excel VBA funktsiooni DateAdd näited

Allpool on Excel VBA funktsiooni DateAdd erinevad näited:

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

Näide nr 1 - lisage kuupäev

Vaatame, kuidas lisada konkreetne number antud kuupäevaga, kasutades funktsiooni VBA DateAdd.

  • Peame leidma kuupäeva pärast 10 päeva lisamist kuupäevaga "25/10/2015"
  • Alustage alamprotseduuri nimega. Siin lõime alamprotseduuri nimega “adddate”.

Kood:

 Sub adddate () End Sub

  • Loo muutuja kuupäeva andmetüübina, muutuja nimi on praegune kuupäev.

Kood:

 Sub adddate () Vähendab praegust kuupäeva kui kuupäeva lõppu Sub

  • Salvestame tulemuse selles muutuvas currentdate.
  • Tahame lisada 10 päeva päevaga "25/10/2015". Nii et päevade arv, mida soovite lisada, on 10. Ja intervall on d ja arv on 10.
  • Nii et rakendame funktsiooni VBA DateAdd nagu allpool.

Kood:

 Sub adddate () Dim currentdate As Date datedate = DateAdd ("d", 10, "25/10/2015") End Sub

  • Pärast valemi rakendamist muutujale kasutame tulemuse printimiseks sõnumikasti.

Kood:

 Sub adddate () Dim currentdate As Date datedate = DateAdd ("d", 10, "25/10/2015") MsgBox Format (currentdate, "pp-kk-aaaa") End Sub

  • Käivitage kood, vajutades F5. Tulemust näidatakse kujul

Tulemust näete ülaltoodud viisil.

Näide 2 - lisage kuud

  • Kuude lisamiseks antud kuupäevaga peab intervall muutuma kui “m”.
  • Lisage arv 2 kuupäevaga “15/2/2017”. Koodi saab kirjutada järgmiselt.

Kood:

 Alam lisa () Päevase kuupäeva värskendamine Nagu Kuupäev currentdate = DateAdd ("m", 2, "15/2/2017") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa") End Sub

  • Väljastuskuupäeva muudetakse järgmiselt.

Näide nr 3 - lisage aasta

Antud kuupäevaga aastate lisamiseks võib kasutada alltoodud koodi.

  • Intervall peaks olema “aaaa”
  • Lisage 4 aastat koos '20 / 2/2018 '

Kood:

 Alam-lisaaasta () Vähendab praegust kuupäeva nagu Kuupäev currentdate = DateAdd ("aaaa", 4, "20/2/2018") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa") End Sub

  • Tulemus on järgmine. Muutuv praegune kuupäev annab tulemuseks '20 / 2/2022 '

Näide nr 4 - lisage kvartal

  • Kvartali lisamisel lisatakse kvartalile järgnevale kuupäevale kolm kuud, kui 12 kuud on 3.
  • Intervalli tuleks nimetada kui Q, valemis antud arv täpsustab, mitu kvartalit tuleks lisada. Näiteks DateAdd (“Q”, 2, “22/5/2019”) kvartalite arv on 2, seega lisatakse 6 kuud.
  • 2 kvartali lisamiseks koodiga '22 / 5/2018 'saab kasutada allpool toodud koodi.

Kood:

 Alam-lisakvartal () Vähendab praegust kuupäeva nagu Kuupäev currentdate = DateAdd ("Q", 2, "22/5/2019") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa") End Sub

  • Tulemus on järgmine.

Näide nr 5 - lisage sekundeid

  • Võite lisada aja koos kuvatud kuupäevaga. Selle saamiseks lisage intervall s-na, mis tähistab sekundeid.
  • Viie sekundi kuvamiseks kuupäevaga '28 / 3/2019 'saab kasutada järgmist valemit.

Kood:

 Alam-lisasekundid () Tühjenda praegune kuupäev Kuupäev praegune kuupäev = DateAdd ("s", 5, "28/3/2019") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa hh: mm: ss") Lõpp alam

  • Väljundi näitamise ajal kuupäeva sekunditega kuvatakse.

Näide 6 - lisage nädalaid

  • Antud kuupäevaga nädalate arvu lisamiseks kasutage intervalli „WW”
  • Kood kuupäeva nädalate arvule järgneva kuupäeva leidmiseks alates '27 / 03/2016 '

Kood:

 Sub addweek () Päevase kuupäeva värskendamine Kuna Kuupäev currentdate = DateAdd ("WW", 2, "27/3/2019") MsgBox Format (currentdate, "pp-kk-aaaa") End Sub

  • Väljundiks on kuupäev 2 nädala pärast.

Näide 7 - tundide lisamine

  • Kuupäevaga kindla kellaaja saamiseks kasutatakse seda.
  • Vahel mainige “h” ja muutke ka väljundi formaati.
  • Tundide saamiseks kuupäevaga kood on.

Kood:

 Sub addhour () Päevase kuupäeva värskendamine Kuna Kuupäev currentdate = DateAdd ("h", 12, "27/3/2019") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa hh: mm: ss") Lõpp alam

  • Tulemust näidatakse ajaga hh: mm: ss.

Näide # 8 - Kuidas lahutada nädalaid, kasutades funktsiooni VBA DateAdd?

Sarnaselt liitmisele võib lahutamist teostada ka funktsiooni VBA DateAdd abil. Numbrid, mis on määratletud valemiga koos positiivsete täisarvudega. Lahutamise tegemiseks kasutage neid numbreid negatiivsete täisarvudena. Näiteks muutke valemit nagu allpool.

 DateAdd (intervall, - number, kuupäev)

Ülaltoodud meetodit kasutades üritatakse leida päev, millest lahutatakse kolm nädalat nädalast '28 / 3/2019 '

  • Looge alamprotseduur alamprotsendina.

Kood:

 Sub subdate () End Sub

  • Defineerige muutuja tulemuse salvestamiseks. Praegune kuupäev on kuupäeva tüübina muutuja, et määrata lõpptulemus.

Kood:

 Alamkuupäev () Vähendab praegust kuupäeva Kuupäeva lõpu alammäär

  • Kolme nädala lahutamiseks '28/3/2019' rakendatakse valemit. Kuupäeva lisamine („ww”, -3, „28/3/2019”)

Kood:

 Alamkuupäev () Vähendab praegust kuupäeva nagu Kuupäev currentdate = DateAdd ("ww", -3, "28/3/2019") End Sub

'-3' näitab lahutamist „ww” on intervall, kuna tahame töötada nädalate kaupa.

  • Valem rakendatakse ja tulemus salvestatakse praeguses ajakohas.

Kood:

 Alamkuupäev () Vähendab praegust kuupäeva nagu Kuupäev currentdate = DateAdd ("ww", -3, "28/3/2019") MsgBox-vorming (praegune kuupäev, "pp-kk-aaaa") End Sub

  • Allpool kuvatakse tulemus pärast kolme nädala möödumist antud kuupäevast.

Asjad, mida meeles pidada

  • Valemis nimetatud intervall ja kuupäev antakse kahekordse tsitaadina.
  • Kui kasutate nädalapäevade intervalli „w”, töötab see sarnaselt intervallipäevaga „d”, kuna nädalapäev arvutab väärtuses 1 = pühapäev, 2 = esmaspäev jne. Seega arvestatakse pühade arvu isegi siis, kui kasutate tööpäevi.
  • Väljund kuvatakse vastavalt teie süsteemi kuupäeva vormingu sätetele. Kasutage soovitud vormingus printimiseks vormingut koos teadekastiga.
  • Funktsioonis VBA DateAdd kasutage kuupäevade hulgast lahutamise arvu negatiivse väärtusena.

Soovitatavad artiklid

See on Excel VBA funktsiooni DateAdd juhend. Siin käsitleme funktsiooni VBA DateAdd näiteid, et antud kuupäevast päevi, kuud ja aastaid liita ja lahutada, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. Kuidas kasutada kuupäevafunktsiooni VBA-s?
  2. Kuupäeva vorming Excel VBA-s
  3. Mis on VBA aeg Excelis?
  4. Kuupäeva valem Excelis koos näidetega

Kategooria:

VBA