photosdematures.com

Ano ang VBA DateValue Function?

Ang isang pagpapaandar ng DateValue ay isang built-in na pagpapaandar sa Excel VBA sa ilalim ng kategorya ng pagpapaandar ng Petsa / oras. Gumagana ito bilang parehong pag-andar ng VBA at pag-andar ng worksheet sa vba. Ibinabalik ng pagpapaandar na ito ang serial number o halaga ng Petsa na ibinigay sa format ng representasyon ng string na hindi pinapansin ang impormasyon ng oras na ibinigay ng Date string. Ginagamit ito sa dalawang magkakaibang paraan sa Excel. Ang pagpapaandar na ito ay ginagamit bilang isang formula ng worksheet na pumapasok sa isang worksheet cell. Ginagamit ito bilang macro code sa VBA application na pumapasok dito sa pamamagitan ng Visual Basic Editor na nauugnay sa Microsoft Excel.

Sa artikulong ito, matututunan namin ang mga halimbawa ng VBA DATEVALUE at kung paano ito magagamit nang may malinaw na paliwanag.

Paliwanag ng VBA Datevalue Function

Sa VBA, ginagamit ng DATEVALUE ang sumusunod na syntax.

Gumagamit lamang ang pagpapaandar na ito ng solong Argument o Parameter

• Petsa: Ito ang petsa na kinakatawan sa format ng string
• Nagbabalik: Ibinabalik ng pagpapaandar na ito ang halaga ng petsa kapag ginamit ito bilang isang function ng VBA. Ibinabalik nito ang halaga ng petsa kapag ginamit ito bilang isang pag-andar ng worksheet

Ang pagpapaandar ng VBA DateValue ay magagawang interpretasyon ng data na kinakatawan sa format ng teksto na nabanggit sa isang wastong format ng Excel. Hindi nito maibalik ang halaga ng petsa kung kasama sa string ang representasyon ng teksto ng araw ng linggo.

Ang mga pakinabang ng pagpapaandar ng VBA DateValue ay pagkuha ng halaga ng petsa mula sa string at pag-convert ng petsa na may oras sa nag-iisang petsa. Maaari naming simpleng na kapag ang isang petsa ay ibinigay na may oras, ang pagpapaandar na ito lamang ang halaga ng petsa na iniiwasan ang halaga ng oras.

Paano Gumamit ng Excel VBA DATEVALUE?

Upang magamit ang pagpapaandar ng DateValue sa Excel kailangan munang buksan ang editor ng VBA.

Ang pindutan ng utos ay kailangang ilagay sa worksheet ng Excel upang idagdag ang mga linya ng programang VBA dito. Upang maipatupad ang mga linya ng programa, kinakailangan ng gumagamit na mag-click sa command button sa excel sheet. Upang magkaroon ng wastong output mula sa programa, ang wastong input ay ibinibigay sa pamamagitan ng argument. Halimbawa, ang sumusunod na code ay tumutulong sa paglikha ng isang macro upang patakbuhin ang pagpapaandar ng DateValue upang makuha ang halaga ng petsa mula sa teksto sa VBA.

Programa ng VBA:

 Sub Datebutton () Madilim ang akingDate Bilang Petsa myDate = DateValue (“August 15, 1991”) Petsa ng MsgBox (myDate) End Sub 

Ang code na ito ay nagreresulta sa petsa bilang 15 mula sa ibinigay na input.

Mga halimbawa ng Excel VBA DATEVALUE

Nasa ibaba ang mga halimbawa ng DateValue sa Excel VBA.

Maaari mong i-download ang VBA DateValue Excel Template na ito dito - VBA DateValue Excel Template

Halimbawa # 1 - Kumuha ng Araw, Buwan, at Taon mula sa isang Petsa

Ilang hakbang ang sinusunod upang likhain at maipatupad ang programa sa VBA. Kasama ang mga iyan

Hakbang 1: Pumunta sa Tab ng Developer, ilagay ang cursor sa isang cell sa sheet ng Excel at mag-click sa pagpipiliang 'Ipasok' at piliin ang 'Command Button' sa ilalim ng ActiveX Control tulad ng ipinakita sa figure.

I-drag ang Button kung saan mo nais at bigyan ang caption bilang Datebutton mula sa window ng mga pag-aari.

Hakbang 2: I-double click sa pindutan na ito ay magre-redirect sa proyekto ng VBA at isulat ang code sa pagitan ng pindutan ng Pribadong Sub na utos at tapusin ang sub.

Ang code ay dapat na binuo bilang sa ibaba upang makakuha ng isang petsa, buwan, at taon.

Code:

 Pribadong Sub Datebutton1_Click () Dagdagan Bilang Bilang Pinagdagdag ng Petsa = DateValue ("Abril 19,2019") Petsa ng MsgBox MsgBox Taon (naka-link) Buwan ng MsgBox (naitala) Magtapos ng Sub 

Sa code na ito, ang Datebutton1_Click () ang pangalan at ang halimbawa ay variable sa uri ng data ng Petsa at Msgbox upang ipakita ang output.

Hakbang 3: Habang bumubuo ng code, ang mga error na hindi tugma sa uri ng vba ay magaganap at kailangang alagaan ang mga ito.

Hakbang 4: Sa hakbang na ito, patakbuhin ang programa sa pag-click sa pagpipiliang tumakbo.

O maaari naming suriin o i-debug ang hakbang ng programa sa pamamagitan ng hakbang na pagpili ng Hakbang Sa pagpipilian sa ilalim ng menu ng Debug. Kung ang aming code ay walang anumang mga error ipinapakita nito ang output.

Hakbang 5: Kapag naisakatuparan ang programa, ipinapakita muna nito ang kahon ng mensahe na may petsa na ibinigay sa input ng teksto. Susunod, mag-click sa OK upang makita muli ang halaga ng taon i-click ang OK sa kahon ng mensahe upang makita ang halaga ng buwan.

Tandaan: Ang mga hakbang na ito ay dapat sundin nang malinaw upang magkaroon ng tumpak na mga resulta.

Halimbawa # 2 - Paggamit ng DatePart upang makuha ang Iba't ibang Mga Bahagi ng Petsa

Hakbang 1: Pumunta sa Tab ng Developer ng Excel, ilagay ang cursor sa isang cell sa sheet ng Excel at mag-click sa pagpipiliang 'Ipasok' at piliin ang 'Command Button' sa ilalim ng ActiveX Control tulad ng ipinakita sa figure.

Hakbang 2: I-drag ang pindutan at ibigay ang caption bilang DatePart sa ilalim ng mga pag-aari.

Mag-double click sa pindutang ito, dumidirekta ito sa sheet ng Visual Basic Editor at ipinapakita tulad ng sumusunod.

Hakbang 3: Bumuo ng code gamit ang DatePart na may DateValue tulad ng ipinakita sa figure.

Code:

 Pribadong Sub Datepart1_Click () Dim partdate Bilang 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 

Sa program na ito, ang DatePart1 ay ang macro name at ang partDate ay pangalan ng argument na may uri ng data na 'variant'. Para sa pagpapakita ng taon, petsa, buwan, at isang isang-kapat, ang format ay inilapat bilang "yyyy", "d", "m", at "q". Kung gumawa kami ng anumang pagkakamali sa format ipinapakita nito ang sumusunod na error.

Hakbang 4: Matapos ang matagumpay na pag-debug ng programa, patakbuhin ang programa sa pamamagitan ng pag-click sa pindutan ng run na gamitin ang excel shortcut key F5.

Ipinapakita muna ng code ang buong petsa pagkatapos pagkatapos ng pag-click sa bawat OK mula sa msgbox, ipinapakita nito ang halagang taon pagkatapos ng halagang Petsa, Halaga ng Buwan, Halaga ng Quater ayon sa pagkakabanggit.

Mga Bagay na Dapat Tandaan Tungkol sa VBA DATEVALUE

Ang mga sumusunod na bagay ay dapat na alalahanin habang ginagamit ang pagpapaandar ng DateValue sa Excel VBA

• Ang error sa run time 13 kasama ang mensahe na Type Mismatch ay ipinapakita kapag ang petsa na ibinigay sa pagpapaandar ng DateValue ay hindi nagawang maging isang wastong petsa. Kailangan namin ng petsa ay tamang format ng teksto
• Kapag sinubukan naming makuha ang tanging petsa mula sa string argument na may code na 'msgbox date (argument name)', ipinapakita nito ang uri ng mismatch error.
• Maaari naming makita ang output ng pagpapaandar ng DateValue nang hindi binubuksan ang VBA editor. Ginagawa ito sa pamamagitan ng pag-click sa command button at piliin ang macro na nilikha para sa kani-kanilang programa
• Kapag ginamit ang DatePart upang makuha ang mga halaga, dapat sundin ang naaangkop na format. Kung hindi man, hahantong ito sa 'run time error 5' na may di-wastong pamamaraan ng pagtawag o pagtatalo.