Tämä opetusohjelma osoittaa, kuinka saada tämän päivän päivämäärä VBA: ssa.
On olemassa pari tapaa saada tämän päivän päivämäärä VBA -koodista, nimittäin käyttämällä VBA: ta Päivämäärä() toiminto tai VBA Nyt() toimintoja.
Päivämäärä () -funktio
The Päivämäärä() -toiminnon avulla voimme määrittää tämän päivän päivämäärän muuttujalle ja näyttää sitten päivämäärän VBE Editorin välittömässä ikkunassa nähdäksesi tämän päivän.
| 123 | Dim dtToday as DatedtToday = Päivämäärä ()Virheenkorjaus.Tulosta dtTänään |
Vaihtoehtoisesti voimme näyttää päivämäärän viestiruudussa.
| 12345 | Alatestin päivämääräDim dtToday as DatedtToday = Päivämäärä ()Viesti "Tänään on" & dtTodayEnd Sub |
Nyt () Toiminto
The Nyt() Toiminto toimii samalla tavalla kuin päivämäärätoiminto, mutta se sisältää kellonajan.
| 12345 | Alatestin päivämäärä ()Dim dtToday As DatedtToday = Nyt ()MsgBox "Tänään on" & dtTodayEnd Sub |
Päivämäärien muotoilu VBA: lla
Molemmissa Päivämäärä() ja Nyt() päivämäärät on muotoiltu oletustyyliin tietokoneen asetusten mukaisesti. Voimme muokata tätä muotoilua VBA: n avulla Muoto toiminto. Koska muotoilutoiminto palauttaa merkkijonon, meidän on ilmoitettava a STRING muuttuja kuin a PÄIVÄMÄÄRÄ muuttuja.
| 12345 | Alatestin päivämäärä ()Dim dtToday As StringdtToday = Muoto (päivämäärä, "dd mmmm yyyy")MsgBox "Tänään on" & dtTodayEnd Sub |
Voimme myös muotoilla Nyt() -toiminto, joka sisältää aikaosan mukautetussa muodossa.
| 12345 | AlaformaattiNow ()Dim dtToday As StringdtToday = Muoto (Nyt (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtTänäänEnd Sub |
Kahden päivämäärän vertaaminen VBA: han
Voimme myös käyttää Päivämäärä -toimintoa vertaillaksesi tämän päivän päivämäärää eri päivämäärään - voimme ehkä laskea, kuinka monta päivää on tapahtumaan! Voimme tehdä tämän käyttämällä VBA: ta DateDiff () toiminto, joka palauttaa numeron. Voimme siis julistaaKOKONAISLUKU muuttuja tallentaa palautetun arvon.
| 123456789 | AlatestiDateDiff ()Dim dtToday As DateDim dtSomeDay As DateDim iDays kokonaislukunadtToday = PäivämäärädtSomeDay = "5.6.2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Kahden päivämäärän välillä on" & iDays & "päivääEnd Sub |
Koska päivämäärät tallennetaan numeroina, voisimme myös miinustaa toisen päivämäärän ensimmäisestä saadaksemme saman vastauksen.
| 1 | iDays = dtToday - dtSomeDay |
