Mikä on VBA DateValue -toiminto?
DateValue-funktio on Excel VBA: n sisäänrakennettu funktio Päivämäärä / aika-toiminnon luokkaan. Se toimii sekä VBA- että laskentataulukko-funktiona VBA: ssa. Tämä toiminto palauttaa merkkijonon esitysmuodossa annetun päivämäärän sarjanumeron tai arvon ohittamatta päivämäärämerkkijonon antamia aikatietoja. Sitä käytetään kahdella eri tavalla Excelissä. Tätä toimintoa käytetään laskentataulukon kaavana syötettävänä laskentataulukon kaavana. Sitä käytetään makrokoodina VBA-sovelluksessa, syöttämällä se Visual Basic Editorin kautta, joka on liitetty Microsoft Exceliin.
Tässä artikkelissa aiomme oppia esimerkkejä VBA DATEVALUE: sta ja kuinka käyttää sitä selkeällä selityksellä.
VBA Datevalue -toiminnon selitys
VBA: ssa DATEVALUE käyttää seuraavaa syntaksia.
Tämä toiminto käyttää vain yhtä argumenttia tai parametria
- Päivämäärä : Se on merkkijonomuodossa esitetty päivämäärä
- Palauttaa: Tämä funktio palauttaa päivämäärän arvon, kun sitä käytetään VBA-funktiona. Se palauttaa päivämääräarvon, kun sitä käytetään laskentataulukko-funktiona
VBA DateValue -toiminto pystyy tulkitsemaan kelvollisessa Excel-muodossa mainitut tekstimuodossa esitetyt tiedot. Se ei voi palauttaa päivämääräarvoa, jos merkkijono sisälsi viikonpäivän tekstiesityksen.
VBA DateValue -toiminnon edut ovat päiväysarvon poimiminen merkkijonosta ja päivämäärän muuntaminen ajankohdasta ainoaksi päivämääräksi. Voimme yksinkertaisesti sanoa, että kun päivämäärä annetaan ajan kanssa, tämä toiminto vain päivämääräarvo välttää aika-arvon.
Kuinka käyttää Excel VBA DATEVALUE?
Jotta voisit käyttää DateValue-funktiota Excelissä, sinun on ensin avattava VBA-editori.
Komentopainike on sijoitettava Excel-laskentataulukkoon, jotta VBA-ohjelman rivit lisätään siihen. Ohjelman rivien toteuttamiseksi käyttäjän on napsautettava komentopainiketta Excel-taulukossa. Jotta ohjelmasta olisi kelvollinen lähtö, argumentti antaa syötteen oikein. Esimerkiksi seuraava koodi auttaa luomaan makron suorittamaan DateValue-funktion, jotta päivämääräarvo saadaan VBA: n tekstistä.
VBA-ohjelma:
Sub Datebutton () Dim myDate as Date myDate = DateValue (“15. elokuuta 1991”) MsgBox Date (myDate) End Sub
Tämän koodin tuloksena päivämäärä on 15 annetusta syötteestä.
Esimerkkejä Excel VBA DATEVALUE -arvosta
Alla on esimerkkejä DateValueesta Excel VBA: ssa.
Esimerkki # 1 - Hanki päivä, kuukausi ja vuosi päivämäärästä
Muutama vaihe noudatetaan ohjelman luomisessa ja suorittamisessa VBA: ssa. Näitä ovat
Vaihe 1: Siirry Kehittäjä-välilehdelle, vie kohdistin soluun Excel-taulukossa, napsauta Lisää-vaihtoehtoa ja valitse ActiveX-ohjauksessa komentopainike kuvan osoittamalla tavalla.
Vedä painike haluamaasi kohtaan ja anna tekstitys päivämääräpainikkeeksi ominaisuusikkunasta.
Vaihe 2: Kaksoisnapsauta painiketta; se ohjaa uudelleen VBA-projektiin ja kirjoittaa koodin Yksityinen alikomento-painikkeen ja loppuosan väliin.
Koodi tulisi kehittää alla olevan mukaisesti, jotta saat päivämäärän, kuukauden ja vuoden.
Koodi:
Yksityinen alapäiväpainike1_Click () Hämmentä esimerkki kuten Päivämäärän esimerkki = DateValue ("19. huhtikuuta 2019") MsgBox-päiväys MsgBox-vuosi (esimerkkituote) MsgBox-kuukausi (esimerkkikuva) Loppuosa
Tässä koodissa Datebutton1_Click () on nimi ja esimerkkipäivä vaihtelevat päivämäärän tietotyypin ja Msgbox: n kanssa tuotoksen näyttämiseksi.
Vaihe 3: Koodia kehitettäessä tapahtuu VBA-tyyppisiä virheitä, ja niiden on huolehdittava niistä.
Vaihe 4: Suorita tässä vaiheessa ohjelma napsauttamalla suoritusvaihtoehtoa.
Tai voimme tarkistaa tai virittää ohjelman vaihe vaiheelta valitsemalla Debug-valikosta Step Into -vaihtoehdon. Jos koodissamme ei ole virheitä, se näyttää tuloksen.
Vaihe 5 : Kun ohjelma on suoritettu, se näyttää ensin viestiruudun, jossa on tekstinsyötössä annettu päivämäärä. Napsauta seuraavaksi OK nähdäksesi vuoden arvon uudelleen, napsauta sitten viesti-ruutua nähdäksesi kuukauden arvon.
Esimerkki # 2 - Päivämäärän osan käyttäminen päivämäärän eri osien saamiseksi
Vaihe 1: Siirry Excel Developer -välilehdelle, vie kohdistin Excel-taulukon soluun ja napsauta Lisää-vaihtoehtoa ja valitse ActiveX-ohjauksessa komentopainike kuvan osoittamalla tavalla.
Vaihe 2: Vedä painiketta ja anna kuvateksti DatePart-ominaisuuden alla.
Kaksoisnapsauta tätä painiketta. Se ohjaa Visual Basic Editor -sivulle ja näkyy seuraavasti.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- Kun DatePartia käytetään arvojen saamiseen, tulisi noudattaa sopivaa muotoa. Muussa tapauksessa se johtaa 'ajonaikaisen virheen 5' viestin virheellisellä menettelykutsulla tai argumentilla.
