Funkcia VBA mesiac Ako získať číslo mesiaca od dátumu?

Excel VBA mesiac

Funkcia VBA Month je vstavaná funkcia používaná na získanie mesiaca od dátumu a výstup vrátený touto funkciou je celé číslo od 1 do 12. Táto funkcia iba extrahuje číslo mesiaca z dodanej hodnoty dátumu.

Napríklad ak je dátum 28. máj 2019, na extrahovanie čísla mesiaca od tohto dátumu môžeme použiť funkciu MESIAC.

Ako používať funkciu mesiaca vo VBA?

Nižšie je uvedená syntax funkcie MONTH.

Potrebujeme len uviesť dátum, od ktorého sa pokúšame extrahovať číslo mesiaca.

Príklad č

Uvidíme, ako napísať kód na extrahovanie čísla mesiaca z dátumu. Budeme mať dátum ako "10 -tého Oct 2019".

Krok 1: Spustite postup makra.

Kód:

Sub Mesiac_Priklad1 () Koniec Sub

Krok 2: Definujte premennú na uchovanie hodnoty dátumu. Pretože ukladáme údajovú hodnotu, náš dátový typ by mal byť „Dátum“. Deklarujte teda premennú a priraďte deklarovanej premennej dátový typ ako „Dátum“.

Kód:

Sub Mesiac_Priklad1 () Dim DDate As Date End Sub

Krok 3: K tejto premennej priradiť hodnotu dáta z 10 th Oct 2019.

Kód:

Sub Month_Example1 () Dim DDate As Date DDate = "10 Oct 2019" End Sub

Krok 4: Teraz priraďte číslo mesiaca k deklarácii jednej ďalšej premennej ako „Celé číslo“.

Kód:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub
Poznámka: Dôvod, prečo sme deklarovali premennú ako celé číslo, pretože náš počet mesiacov končí iba na 12. Celé číslo môže teda obsahovať tento údaj.

Krok 5: Pre túto premennú otvoríme funkciu MESIAC.

Kód:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (End Sub

Krok 6: Funkcia Mesiac s dotazom na „Dátum“, ktorý je potrebné zadať, aby sa získalo číslo mesiaca. Pretože sme už uložili cieľový dátum do premennej „DDate“, zadajte túto premennú ako vstupný parameter pre funkciu mesiac.

Kód:

Sub Mesiac_Priklad1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub

Krok 7: Teraz funkcia „Mesiac“ vráti číslo mesiaca od zadaného dátumu do premennej „MonthNum“ a nakoniec zobrazí výsledok v poli so správou vo VBA.

Kód:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Spustite kód a v okne správy uvidíte číslo mesiaca.

Výkon:

Takže číslo mesiaca od zadaného dátumu je 10, tj. Októbrový mesiac.

Príklad č

Teraz vezmeme odkazy na bunky na kódovanie. Nižšie je uvedený dátum, ktorý máme v pracovnom hárku.

Takže z hodnoty dátumu bunky A2 musíme extrahovať číslo mesiaca do bunky B2.

Kód:

Sub Mesiac_Priklad2 () Rozsah ("B2"). Hodnota = Koncový sub

Otvorte funkciu MESIAC a zadajte dátum ako hodnotu ROZSAHU A2.

Kód:

Sub Mesiac_Priklad2 () Rozsah ("B2"). Hodnota = Mesiac (Rozsah ("A2")) Koniec Sub

Dôvod, prečo sme dodali bunku Range A2, pretože tentokrát je náš dátum v bunke A2, takže rovnaký bude odkaz.

Teraz vykonajte kód a získajte číslo mesiaca od dátumu v bunke B2.

Tu máme, do bunky B2 sme dostali číslo mesiaca.

Príklad č

Extrahovali sme mesiac pre dátum s jednou bunkou, ale čo keď máme viac riadkov údajov, ako je ten uvedený nižšie.

V týchto prípadoch musíme prechádzať bunkami a vykonať úlohu extrahovania čísla mesiaca od každého príslušného dátumu.

Nasledujúci kód urobí prácu za nás.

Kód:

Sub Mesiac_Priklad3 () Dim k dlho pre k = 2 až 12 buniek (k, 3). Hodnota = mesiac (bunky (k, 2). Hodnota) Ďalej k Koniec Sub

Tento kód urobí, že bude prechádzať riadkami od 2 do 12 a extrahovať číslo mesiaca z druhého stĺpca a výsledok uložiť do tretieho stĺpca.

Na čo je potrebné pamätať tu

  • MESIAC je funkcia listu, ako aj funkcia VBA.
  • MESIAC vyžaduje iný odkaz na platný dátum, zobrazí sa chybové hlásenie.
  • Ak je číslo mesiaca 12, bude to spôsobovať chybové hlásenie.

Zaujímavé články...