VBA DatePart funkcija - Kako vratiti navedeni dio datuma?

Excel VBA DatePart funkcija

DatePart u VBA koristi se za identificiranje dijela datuma za dati datum naveden kao argument, datumski dio mogu biti dani ili mjeseci ili godina ili čak sat vremena minute i sekunde, sintaksa ove funkcije se sama pojašnjava i to je kako slijedi, Datepart (Interval, Datum kao argument).

Sintaksa

Sintaksa funkcije DatePart dana je u nastavku:

  • Interval: Podaci koje treba proslijediti u argumentu intervala su vrsta niza, što znači da ovaj argument može sadržavati bilo koje valjane vrijednosti. Interval može biti godina, mjesec, tromjesečje, dan, tjedan, sat, minuta, sekunda.
  • Datum: Vrijednost datuma koju treba procijeniti.
  • firstdayofweek: Ovo je neobavezni parametar. Ovo opisuje prvi dan u tjednu. To se čak može zanemariti. Ako se ovaj parametar zanemari, ovo automatski uzima nedjelju kao prvi dan u tjednu. Ako biste to željeli promijeniti, tada se može koristiti ovaj parametar. Ovaj argument može se sastojati od vbUseSystem 0.

Upotrijebite postavku NLS API

vbSunday (zadano), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday.
  • firstweekofyear: Isto tako, gornji parametar, ovo je također neobavezni parametar. Ovo opisuje prvi tjedan u godini. Ovaj se parametar također može zanemariti. Ako se ovaj parametar zanemari, pretpostavlja se da je 1. siječnja prvi tjedan u godini. Ako to želite promijeniti, tada se može koristiti ovaj parametar.
    Ovaj argument može se sastojati od sljedećih vrijednosti.
    vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.

Nakon davanja svih parametara, datepart () vratit će brojčanu vrijednost poput cijelog datuma ili godine ili mjeseca ili tromjesečja itd. Stoga će vrsta povrata ove funkcije biti numerička vrijednost.

Kako se koristi funkcija DatePart u VBA?

Primjer # 1

Prvi je primjer prikaz cjelovitog datuma i tromjesečja tog mjeseca.

Da bismo to postigli, moramo napisati neki kod u Visual Basic za tu karticu Goto Developer, a zatim kliknuti na Visual Basic i tada će se otvoriti prozor.

U taj prozor napišite kod kako je prikazano dolje.

Kodirati:

Sub date_Datepart () Dim mydate As Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) 'prikazuje tromjesečje Kraj Sub

U ovom smo primjeru koristili funkciju datepart za prikaz datuma i dijela dijela koji predstavlja četvrtinu datuma. Ovo prikazuje u kojem kvartalu godine dolazi datum.

Ako otklonimo pogreške u kodu, datum će se prvi put prikazati kao cjeloviti datum kada kod izvrši “Msgbox mydate” jer je slučajni datum dodijeljen varijabli “mydate”.

Dalje prikazujemo pod kojim tromjesečjem godine dolazi taj datum.

Kada ručno pokrenete kôd ili pomoću tipke prečaca F5, tada će se prikazati datum kao što je prikazano nakon klika na ok. Zatim će se prikazati tromjesečje datuma. To se može prikazati na snimci zaslona u nastavku.

Isto tako, četvrtina, također se mogu prikazati samo datum ili mjesec ili godina.

Primjer # 2

U ovom primjeru ću ručno unijeti datum u vrijeme izvođenja.

Kodirati:

Sub date1_datePart () Dim TodayDate As Date 'Objavi varijable. Zatamni Msg TodayDate = InputBox ("Unesite datum:") Msg = "Kvartal:" & DatePart ("q", TodayDate) MsgBox Msg Kraj Sub

U ovom primjeru pokušavamo ručno dobiti datum u vrijeme izvođenja. Kod "TodayDate = InputBox (" Unesite datum: ")" ovaj redak označava da se datum može unijeti ručno,

Nakon ručnog unosa datuma prikazuje se četvrtina datuma u okviru za poruke. To se može prikazati na snimci zaslona u nastavku.

Kako je mjesec lipanj u drugom tromjesečju, ovo prikazuje drugo tromjesečje, kao što je prikazano na gornjoj snimci zaslona.

Primjer # 3

U ovom primjeru sve će se vrijednosti popuniti u ćelije.

Kodirati:

Private Sub Workbook_Open () Dim DummyDate As Date DummyDate = ActiveSheet.Cells (2, 2) ActiveSheet.Cells (2, 2) .Value = Day (DummyDate) ActiveSheet.Cells (3, 2) .Value = Hour (DummyDate) ActiveSheet .Cells (4, 2) .Value = Minute (DummyDate) ActiveSheet.Cells (5, 2) .Value = Month (DummyDate) ActiveSheet.Cells (6, 2) .Value = Weekday (DummyDate) End Sub

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.
  • Ova funkcija također odvaja datum, mjesec i godinu od određenog datuma.
  • Korištenjem ove funkcije datum se ne samo odvaja. Također možemo dobiti četvrtinu, dan, sat, minutu i sekundu.

Stvari koje treba zapamtiti

  • Ova se funkcija može koristiti samo kao VBA funkcija. U normalnom Excelu to se ne može koristiti.
  • Datumi koji se daju kao vrijednost u ovoj funkciji mogu se navesti u bilo kojem formatu, kao što su mm-dd-yyyy format ili DD-MM-YYYY format itd.
  • Ova funkcija će zasebno odvojiti sve vrijednosti, kao što su datum, mjesec, godina ili vrijeme, također sat, minuta i sekunde.
  • To je organizirano pod Funkcijama datuma i vremena u VBA programa Microsoft Excel.

Zanimljivi članci...