Excel VBA DatePart funkcija
DatePart VBA tiek izmantots, lai identificētu datuma daļu norādītajam datumam, kas sniegts kā arguments, datuma daļa var būt vai nu dienas, vai mēneši, vai gads, vai pat stundu minūtes un sekundes, šīs funkcijas sintakse ļoti precīzi izskaidro sevi un tas ir šāds: Datepart (Interval, Date as Argument).
Sintakse
Funkcijas DatePart sintakse ir sniegta zemāk:
- Intervāls: Intervāla argumentā nododamie dati ir virknes tips, kas nozīmē, ka šajā argumentā var būt jebkuras derīgas vērtības. Intervāls var būt gads, mēnesis, ceturksnis, diena, nedēļa, stunda, minūte, sekunde.
- Datums: datuma vērtība, kas jānovērtē.
- firstdayofweek: Šis ir izvēles parametrs. Tas raksturo nedēļas pirmo dienu. To pat var neņemt vērā. Ja šis parametrs tiek ignorēts, svētdiena automātiski tiek uzskatīta par nedēļas pirmo dienu. Ja vēlaties to mainīt, šo parametru var izmantot. Šis arguments var sastāvēt no vbUseSystem 0.
Izmantojiet NLS API iestatījumu
vbSunday (noklusējums), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday.
- firstweekofyear: Tāpat arī augstākais parametrs, tas ir arī izvēles parametrs. Tas raksturo gada pirmo nedēļu. Šo parametru var arī ignorēt. Ja šis parametrs tiek ignorēts, tiek pieņemts, ka 1. janvāris ir gada pirmā nedēļa. Ja vēlaties to mainīt, šo parametru var izmantot.
Šis arguments var sastāvēt no šādām vērtībām.
vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.
Pēc visu parametru ievadīšanas datepart () atgriezīs skaitlisko vērtību, piemēram, vesels datums vai gads, mēnesis vai ceturksnis utt. Tādējādi šīs funkcijas atgriešanās veids būs skaitliska vērtība.
Kā izmantot DatePart funkciju VBA?
1. piemērs
Pirmais piemērs ir parādīt pilnu datumu un tā mēneša ceturksni.
Lai to panāktu, mums ir jāieraksta kods Visual Basic šai cilnei Goto Developer un pēc tam noklikšķiniet uz Visual Basic, un pēc tam tiks atvērts logs.
Tajā logā ierakstiet kodu, kā parādīts zemāk.
Kods:
Sub date_Datepart () Dim mydate As Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) 'parāda ceturkšņa beigu apakšdaļu
Šajā piemērā mēs izmantojām datepart funkciju, lai parādītu datumu un kādu datuma daļu, kas ir datuma ceturtdaļa. Tas parāda, kurš gada ceturksnis ir datums.
Ja mēs atkļūdosim kodu, datums tiks parādīts kā pilns datums pirmo reizi, kad kods izpilda “Msgbox mydate”, jo izlases datums tiek piešķirts mainīgajam “mydate”.
Pēc tam mēs parādām, kurš gada ceturksnis ir attiecīgais datums.
Palaižot kodu manuāli vai izmantojot īsinājumtaustiņu F5, pēc noklikšķināšanas uz Labi datums tiks parādīts, kā parādīts. Pēc tam tiks parādīts datuma ceturksnis. To var parādīt zemāk redzamajā ekrānuzņēmumā.
Tāpat var parādīt arī tikai ceturksni, datumu, mēnesi vai gadu.
2. piemērs
Šajā piemērā datumu ievadīšu manuāli izpildes laikā.
Kods:
Sub date1_datePart () Dim TodayDate As Date 'Paziņot mainīgos. Dim Msg TodayDate = InputBox ("Ievadiet datumu:") Msg = "Quarter:" & DatePart ("q", TodayDate) MsgBox Msg End Sub
Šajā piemērā mēs cenšamies manuāli iegūt datumu izpildes laikā. Kods “TodayDate = InputBox (“ Ievadiet datumu: ”)” šī rinda norāda, ka datumu var ievadīt manuāli,
Pēc datuma manuālas ievadīšanas ziņojuma lodziņā tas parāda datuma ceturksni. To var parādīt zemāk redzamajā ekrānuzņēmumā.
Tā kā jūnija mēnesis ir 2. ceturksnī, tas parāda otro ceturksni, kā parādīts iepriekš redzamajā ekrānuzņēmumā.
3. piemērs
Šajā piemērā visas vērtības tiks aizpildītas šūnās.
Kods:
Privātā apakšdarbgrāmata_Atvērt () Dim DummyDate kā datums .Cells (4, 2). Value = Minute (DummyDate) ActiveSheet.Cells (5, 2). Value = mēnesis (DummyDate) ActiveSheet.Cells (6, 2). Value = nedēļas dienas (DummyDate) beigu apakšdaļa
The dates are filled in the cells in the excel sheet, for that the code is written as Active Sheet.cells. By this code, the date which is present maybe a year, month, or date can be inserted into the given cells.
For example, in the above screenshot,
The day is to be inserted in the cells ( 2, 2) of the excel sheet. Hence the code is written as “ ActiveSheet.Cells(2, 2).Value = Day(DummyDate) “ .
Run the code using the F5 key or manually, and the result would be as shown below.
It is, by default taking date today, and it is displaying as 30 in (2,6) cell.
Likewise, for all the other data also it can be filled.
Usage of DatePart Function
- DatePart function can be used to display the part of the date as the name indicates, i.e., if only day or month or year of the date needs to be displayed, then this function can be used.
- Šī funkcija arī atdala datumu, mēnesi un gadu no konkrēta datuma.
- Izmantojot šo funkciju, datums tiek ne tikai atdalīts. Mēs varam arī iegūt ceturksni, dienu, stundu, minūti un sekundi.
Atceramās lietas
- Šo funkciju var izmantot tikai kā VBA funkciju. Parastajā Excel programmā to nevar izmantot.
- Datumus, kas šajā funkcijā norādīti kā vērtība, var norādīt jebkurā formātā, piemēram, mm-dd-gggg formātā vai DD-MM-GGGG formātā utt.
- Šī funkcija atdalīs visas vērtības atsevišķi, piemēram, datumu, mēnesi, gadu vai laiku, arī stundu, minūti, sekundes.
- Tas ir organizēts Microsoft Excel VBA sadaļā Datuma un laika funkcijas.
