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 tipa stringa, š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, onda se ovaj parametar može koristiti. Ovaj argument može se sastojati od vbUseSystem 0.

Upotrijebite postavku NLS API

vbSunday (zadano), vbMonday, vbTuesday, vbWednesday, vbThursday vbFriday, vbSaturday.
  • firstweekofyear: Isto tako parametar top, 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 biste to željeli promijeniti, ovaj parametar se može koristiti.

    Ovaj argument može se sastojati od sljedećih vrijednosti.

    vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.

Nakon davanja svih parametara, Datepart () vratit će brojčanu vrijednost kao što je cijeli datum ili godina ili mjesec ili tromjesečje itd. Stoga će vrsta povrata ove funkcije biti numerička vrijednost.

Kako se koristi funkcija DatePart u VBA?

Ovaj VBA DatePart Excel predložak možete preuzeti ovdje - VBA DatePart Excel Predložak

Primjer # 1

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

Da bismo to postigli moramo napisati neki kôd u Visual Basicu, 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 nekog dijela datuma 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 može biti prikazano na donjem snimku zaslona.

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 ispod.

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

Datumi se popunjavaju u ćelijama na excel listu, za to je kod zapisan kao Active Sheet.cells. Ovim kodom datum koji je prisutan može biti godina mjesec ili se datum može umetnuti u zadane ćelije.

Na primjer, na gornjoj snimci zaslona,

Dan se ubacuje u ćelije (2, 2) Excel lista. Stoga je kod napisan kao "ActiveSheet.Cells (2, 2) .Value = Day (DummyDate)".

Pokrenite kôd pomoću tipke F5 ili ručno i rezultat će biti kao što je prikazano u nastavku.

It is by default taking today date 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.
  • This function also separates date, month and a year from a particular date.
  • By using this function the date is not only separated we can also get the quarter, day, hour, minute and a second.

Things to Remember

  • This function can only be used as a VBA Function. In normal excel, this cannot be used.
  • The dates which are given as a value in this function can be given in any format such as mm-dd-yyyy format or DD-MM-YYYY format etc.
  • This function will separate all the values separately such as date, month, year or time also an hour, minute, seconds also.
  • This is organized under Date and Time Functions in VBA of Microsoft Excel.