ВБА месец функција | Како добити месечни број од датума?

Екцел ВБА месец

ВБА месец функција је уграђена функција која се користи за добивање мјесеца од датума и излаз који враћа ова функција је цијели број у распону од 1 до 12. Ова функција само издваја број мјесеца из испоручене вриједности датума.

На пример, ако је датум 28. мај 2019, онда за издвајање броја месеца од овог датума можемо користити функцију МОНТХ.

Како се користи месечна функција у ВБА?

Испод је синтакса функције МОНТХ.

Само треба да наведемо датум од ког покушавамо да издвојимо број месеца.

Овај ВБА месечни Екцел образац можете преузети овде - ВБА месечни Екцел образац

Пример # 1

Видећемо како да напишемо код за издвајање броја месеца од датума. Датум ћемо узети као „10. октобар 2019.“.

Корак 1: Покрените макро поступак.

Шифра:

 Подмесец_Пример1 () Крај Под 

Корак 2: Дефинишите променљиву која садржи вредност датума. С обзиром да чувамо вредност података, наш тип података треба да буде „Датум“. Дакле, декларишите променљиву и декларисаној променљивој доделите тип података као „Датум“.

Шифра:

 Подмесец_Пример1 () Затамни датум као датум завршетка Под 

Корак 3: За ову променљиву доделите вредност датума 10. октобра 2019.

Шифра:

 Суб Монтх_Екампле1 () Дим ДДате Ас Дате ДДате = "10 Оцт 2019" Енд Суб 

Корак 4: Сада доделите број месеца да се још једна променљива декларише као „Цео број“.

Шифра:

 Суб Монтх_Екампле1 () Дим ДДате Ас Дате Дим МонтхНум Ас Интегер ДДате = "10 Оцт 2019" Енд Суб 

Белешка: Разлог зашто смо променљиву прогласили целобројним јер се наш број месеци завршава само на 12. Дакле, целобројни тип података може да садржи овај број.

Корак 5: За ову променљиву отворићемо функцију МОНТХ.

Шифра:

 Суб Монтх_Екампле1 () Дим ДДате Ас Дате Дим МонтхНум Ас Интегер ДДате = "10 Оцт 2019" МонтхНум = Монтх (Енд Суб 

Корак 6: Месечна функција која тражи „Датум“ који треба да се наведе да би се извукао број месеца. Будући да смо циљни датум већ ускладиштили у променљиву „ДДате“, наведите ову променљиву као улазни параметар за месечну функцију.

Шифра:

 Суб Монтх_Екампле1 () Дим ДДате Ас Дате Дим МонтхНум Ас Интегер ДДате = "10 Оцт 2019" МонтхНум = Монтх (ДДате) Енд Суб 

Корак 7: Сада ће функција „Месец“ вратити број месеца од наведеног датума на променљиву „МонтхНум“ и на крају приказати резултат у оквиру за поруке у ВБА.

Шифра:

 Суб Монтх_Екампле1 () Дим ДДате Ас Дате Дим МонтхНум Ас Интегер ДДате = "10 Оцт 2019" МонтхНум = Монтх (ДДате) МсгБок МонтхНум Енд Суб 

Покрените код и у пољу за поруку погледајте број месеца.

Излаз:

Дакле, месечни број од приложеног датума је 10, тј. Октобарски месец.

Пример # 2

Сада ћемо узети референце ћелија за кодирање. Испод је датум који имамо у радном листу.

Дакле, из вредности датума ћелије А2 треба да издвојимо број месеца у ћелију Б2.

Шифра:

 Подмесец_Пример2 () опсег ("Б2"). Вредност = Крај под 

Отворите функцију МОНТХ и наведите датум као вредност РАНГЕ А2.

Шифра:

 Подмесец_Пример2 () опсег ("Б2"). Вредност = месец (опсег ("А2")) Крај под 

Разлог зашто смо испоручили ћелију опсега А2 јер се овај пут наш датум налази у ћелији А2, па ће исти бити референца.

Сада извршите код и добијте месечни број од датума у ​​ћелији Б2.

Изволите, добили смо месечни број у ћелији Б2.

Пример # 3

Издвојили смо месец за једноћелијски датум, али шта ако имамо више редова података попут доњег.

У тим случајевима морамо проћи кроз ћелије и извршити задатак издвајања броја месеца из сваког одговарајућег датума.

Код у наставку ће обавити посао за нас.

Шифра:

 Подмесец_Пример3 () Дим к Колико дуго траје к = 2 до 12 ћелија (к, 3) .Вредност = месец (ћелије (к, 2) .Вредност) Следећи к Крај Суб 

Овај код ће урадити то што ће провући кроз редове од 2 до 12 и извући број месеца из друге колоне, а резултат ће сачувати у трећој колони.

Ствари које треба овде запамтити

  • МЕСЕЦ је функција радног листа као и функција ВБА.
  • МОНТХ захтева важећу референцу датума, у супротном ћемо добити поруку о грешци.
  • Ако је број месеца 12, тада ће се појавити порука о грешци.