Kas ir funkcija VBA DateValue?
Funkcija DateValue ir iebūvēta funkcija Excel VBA kategorijā Datums / laiks. Tas darbojas gan kā VBA funkcija, gan VBA darblapu funkcija. Šī funkcija atgriež datuma sērijas numuru vai vērtību virknes attēlojuma formātā, ignorējot datuma virknes sniegto laika informāciju. Programmā Excel to izmanto divos dažādos veidos. Šī funkcija tiek izmantota kā darblapas formula, kas tiek ievadīta darblapas šūnā. To izmanto kā makro kodu VBA lietojumprogrammā, ievadot to caur Visual Basic Editor, kas saistīts ar Microsoft Excel.
Šajā rakstā mēs uzzināsim VBA DATEVALUE piemērus un to, kā to izmantot ar skaidru skaidrojumu.
VBA datevalue funkcijas skaidrojums
Programmā VBA DATEVALUE izmanto šādu sintaksi.
Šī funkcija izmanto tikai vienu argumentu vai parametru
- Datums : tas ir datums, kas attēlots virknes formātā
- Atgriež: šī funkcija atgriež datuma vērtību, kad to izmanto kā VBA funkciju. Tas atgriež datuma vērtību, kad to izmanto kā darblapas funkciju
Funkcija VBA DateValue spēj interpretēt datus, kas attēloti teksta formātā, kas ir minēts derīgā Excel formātā. Tas nevar atgriezt datuma vērtību, ja virkne ietvēra nedēļas dienas teksta attēlojumu.
Funkcijas VBA DateValue priekšrocības ir datuma vērtības iegūšana no virknes un datuma ar laiku konvertēšana uz vienīgo datumu. Mēs varam vienkārši pateikt, ka, ja datums tiek norādīts ar laiku, šī funkcija nosaka tikai datuma vērtību, izvairoties no laika vērtības.
Kā izmantot Excel VBA DATEVALUE?
Lai programmā Excel izmantotu funkciju DateValue, vispirms jāatver VBA redaktors.
Komandu poga jāievieto Excel darblapā, lai tai pievienotu VBA programmas rindas. Lai ieviestu programmas rindas, lietotājam ir jānoklikšķina uz komandas pogas Excel lapā. Lai iegūtu derīgu programmas izvadi, derīga ievade tiek sniegta caur argumentu. Piemēram, šāds kods palīdz izveidot makro, lai palaistu funkciju DateValue, lai datnes vērtību izgūtu no VBA teksta.
VBA programma:
Apakšdatuma poga () Dim myDate As Date myDate = DateValue (“1991. gada 15. augusts”) MsgBox Date (myDate) Beigas Sub
Šī koda rezultātā datums ir 15 no norādītās ievades.
Excel VBA DATEVALUE piemēri
Tālāk ir norādīti DateValue piemēri programmā Excel VBA.
1. piemērs - iegūstiet dienu, mēnesi un gadu no datuma
Lai izveidotu un izpildītu programmu VBA, tiek veikti daži soļi. Tajos ietilpst
1. solis: dodieties uz cilni Izstrādātājs, novietojiet kursoru uz Excel šūnas šūnas un noklikšķiniet uz opcijas “Ievietot” un zem ActiveX vadības izvēlieties “Komandas poga”, kā parādīts attēlā.
Velciet pogu, kur vēlaties, un rekvizītu logā norādiet parakstu kā datuma pogu.
2. solis: Veiciet dubultklikšķi uz pogas; tas novirzīs uz VBA projektu un ierakstīs kodu starp pogu Privātā apakškomanda un beigu apakšvirsmu.
Kods ir jāizstrādā šādi, lai iegūtu datumu, mēnesi un gadu.
Kods:
Privāts apakšdatnes taustiņš1_Click () Izmēra paraugs kā Datuma paraugs = DateValue ("2019. gada 19. aprīlis") MsgBox datums MsgBox gads (piemērs) MsgBox mēnesis (paraugs) Beigu apakšdaļa
Šajā kodā Datebutton1_Click () ir nosaukums un datuma piemērs ir mainīgi ar datuma datu tipu un Msgbox, lai parādītu izvadi.
3. solis: izstrādājot kodu, radīsies VBA tipa neatbilstības kļūdas, un par tām jārūpējas.
4. solis: Šajā solī palaidiet programmu, noklikšķinot uz palaišanas opcijas.
Vai arī mēs varam pārbaudīt vai atkļūdot programmu soli pa solim, izvēlnē Atkļūdot atlasot opciju Ievadīt. Ja mūsu kodā nav kļūdu, tas parāda izvadi.
5. solis : Kad programma ir izpildīta, tā vispirms parāda ziņojumu lodziņu ar datumu, kas norādīts teksta ievadei. Pēc tam noklikšķiniet uz Labi, lai atkal redzētu gada vērtību, ziņojuma lodziņā noklikšķiniet uz Labi, lai redzētu mēneša vērtību.
2. piemērs - DatePart izmantošana, lai iegūtu dažādas datuma daļas
1. solis: dodieties uz cilni Excel Developer, novietojiet kursoru uz Excel lapas šūnas un noklikšķiniet uz opcijas 'Ievietot' un zem ActiveX vadības izvēlieties 'Komandas poga', kā parādīts attēlā.
2. darbība: velciet pogu un zem īpašībām norādiet parakstu kā DatePart.
Veiciet dubultklikšķi uz šīs pogas. Tas novirza uz Visual Basic Editor lapu un tiek parādīts šādi.
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.
- Ja vērtību iegūšanai izmanto DatePart, ir jāievēro atbilstošais formāts. Pretējā gadījumā tas noved pie “izpildes laika kļūdas 5” ar nederīgu procedūras izsaukumu vai argumentu.
