Во апликацијата Microsoft Visual Basic, функциите за датум или какви било концепти поврзани со датум се неопходни за извршување на различни операции во вашата база на податоци. Може да се најдете во различни ситуации кога ќе мора да ги користите овие функции. Во ова упатство, ќе научите за функцијата Date на VBA со соодветни примери и соодветни илустрации. Исто така, ќе ви обезбедиме повеќе функции за датум што можете да ги имплементирате во вашиот работен лист.

Преземете ја работната книга за вежбање

Употреба на VBA Date.xlsm

Вовед во функцијата VBA Date

Excel ги категоризира датумите во функцијата Date/Time . Тоа е вградена функција. Можеме да го користиме во VBA макроата за да извршиме какви било операции поврзани со датум.

Пред да започнете со функцијата Date, мора да знаете за променливите датум во VBA .

⏺ Синтакса

⏺ Аргументи Објаснувања

Нема аргументи .

⏺ Врати

Го враќа тековниот датум.

⏺ Достапно во

Excel за Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 за Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

⏺ Пример

Како што знаете, нема аргументи кои можете само да ги внесете на следниов начин:

7850

Кога работиме со функцијата Date, не даваме никакви загради во VBA-кодовите како овој пример.

Излез :

12недела

2 –       понеделник

3 –       Вторник

4 –       Среда

5 –       четврток

6 –       петок

7 –       Сабота

Код фрагмент:

9873

Излез:

Како што можете да видите, функцијата VBA датум враќа 4. Тоа значи Среда.

Поврзани содржини: Како да се користи функцијата за поправка во Excel VBA (4 примери)

9. Функција VBA WeekdayName

Враќа низа што го прикажува ограничениот ден од неделата.

Синтакса :

WeekdayName(неделниот ден, скратено, првиот ден од неделата)

Аргумент:

неделен ден: Задолжително поле. Нумеричката идентификација за денот во неделата. Нумеричката вредност на секој ден се потпира на поставката за првиот ден од седмицата.

скратено: Ова е опционално. Булова вредност што имплицира дали името на работниот ден треба да се скрати. Ако се прескокне, стандардното е Неточно, што означува дека името на работниот ден не е скратено или скратено.

прв ден на неделата: Изборно поле. Нумеричка вредност што го означува првиот ден од неделата. Може да има различни вредности.

Аргументот firstdayofweek може да ги има следните вредности:

vbSunday – ја користи неделата како првиот ден во неделата.

vbMonday – го користи понеделник како прв ден во неделата.

vbTuesday – работи вторник како прв ден нанеделата.

vbWednesday – ја вработува средата како прв ден во неделата.

vbЧетврток – работи четврток како прилично ден во неделата .

vbFriday – го вработува петокот како прв ден во неделата.

vbSaturday – работи сабота како прв ден во неделата.

vbUseSystemDayOfTheWeek – го користи првиот ден од седмицата што е дефиниран со поставките на вашиот уред.

Израчја од код:

5077

Излез:

Како што можете да видите, горните VBA кодови го покажуваат името на работниот ден.

Поврзани содржини: Како за користење на функцијата VBA WeekdayName во Excel (2 примери)

10. Функција година во VBA Датум

Враќа варијанта (Цел број) со реален број што ја изразува годината.

Синтакса :

Година(датум)

Аргумент:

Потребниот аргумент за датум е која било варијанта, нумерички израз, стринг израз или која било комбинација. Претставува датум. Ако датумот вклучува Null, тој исто така ќе го врати Null.

Излез на код:

9538

Излез:

Тука можете да ја видите годината на дадениот датум по спроведувањето на VBA кодот.

Прочитајте повеќе: Како да ја користите функцијата за замена на VBA во Excel ( 11 Апликации)

11. Функција FormatDateTime

Оваа функција враќа израз форматиран како датум или време.

Синтакса :

FormatDateTime(Датум, [ NamedFormat])

Аргумент:

Датум: Задолжително поле. Изразот на датумот што треба да се форматира.

NamedFormat: Ова е опционално. Тоа е нумеричка вредност што го прикажува форматот на датум/време. Ако се испушти, го користеше vbGeneralDate .

NamedFormat може да ги има следните вредности:

vbGeneralDate (0): Прикажи датум и/или време. Ако има дел од датумот, изразете го како краток датум. Ако има временски дел, прикажете го како долго време. Двата дела се изложени доколку се присутни.

vbLongDate(1): Поткажете го датумот користејќи ја конфигурацијата за долг датум избрана во регионалните поставки на вашиот компјутер.

vbShortDate. (2): Прикажи датум со користење на форматот на краток датум наведен во регионалните поставки на вашиот компјутер.

vbLongTime(3): Прикажи го времето со користење на форматот на времето наведен во регионалните поставки на вашиот компјутер.

vbShortTime(4): Прикажување на времето со користење на 24-часовен формат (hh:mm).

Израчја од код:

3322

Излез:

Ќе ги видите следните дијалог-кутија откако ќе го извршите кодот:

Тука, можете да ги видите сите формати на време и датум во VBA.

Прочитајте повеќе: Како да ја користите функцијата VBA TimeValue (6 релевантни примери)

12. Функција VBA CDate

Функцијата конвертира валиден израз на датум и време во типичен датум.

Синтакса :

CD-датум(датум)

Аргумент:

Потребниот аргумент за датум е која било Варијанта, нумерички израз, стринг израз или која било комбинација. Претставува датум. Ако датумот вклучува Null, тој исто така ќе го врати Null.

Излез на код:

6489

Излез:

Како што можете да видите, нашиот VBA код штотуку врати типичен формат на датум на Excel.

Поврзани содржини: Како да се користи VBA DIR функцијата во Excel (7 Примери)

Примери на VBA Date

Во следните делови, ќе ви дадеме три практични и соодветни примери за датум со користење на VBA. Овие примери ќе содржат проблеми поврзани со датумот и нивни решенија. Ви препорачуваме да ги прочитате и вежбате сите овие примери за да го подобрите вашето знаење за VBA. Ајде да навлеземе во тоа.

1. Пресметајте ги задоцнетите денови користејќи Датум во VBA

Значењето на доцнењето се случува доцна или поминат рокот. Доцна, особено, поминат рок или премногу доцна за да се исполни условот.

Да претпоставиме дека треба да поднесете задача до недела. Но, вторник е, а вие не сте го доставиле. Можете да го наречете два задоцнети дена.

Погледнете ја следнава база на податоци:

Овде, имаме сет на некои студенти и нивната задача датум. Можете да го видите последниот датум на поднесување. Нашата цел е да го најдеме задоцнетиот датум врз основа на датумот на поднесување. Сега, за да го постигнете ова, следете ги овие чекори:

📌 Чекори

• Прво, притиснете Alt+F11 на вашата тастатура за да го отворите уредникот VBA.
• Потоа, изберете Вметни > Модул .

• Потоа, напишете ја следнава шифра:

7876

Користевме Функција ABS за да го отстраните знакот минус.

• Потоа, зачувајте ја датотеката.
• Потоа, притиснете Alt+F8 на вашата тастатура за да се отвори дијалог прозорецот Макро.
• Следно, изберете
• Потоа, кликнете на Изврши .

Како што можете да видите, успешно го искористивме датумот во VBA и ги најдовме задоцнетите денови.

Слични читања

• Како да се користи VBA Space Функција во Excel (3 примери)
• Користете ја функцијата VBA ChDir во Excel (4 соодветни примери)
• Како да ја користите функцијата IsNull во Excel VBA (5 примери)
• Користете VBA додека Wend изјава во Excel (4 примери)
• Како да повикате Sub во VBA во Excel (4 Примери)

2. Најдете ја годината на раѓање од датум користејќи VBA

Сега, можете да ја најдете годината од одреден датум. Ова е прилично едноставно за наоѓање.

Погледнете ја следната база на податоци:

Тука, можете да го видите датумот на раѓање на некои лица. Нашата цел е да ја извлечеме годината на раѓање од датумот, а исто така и годината на раѓање на последниот запис Елизабета.

📌 Чекори

• Прво, притиснете Alt+F11 на вашата тастатура за да го отворите уредникот VBA.
• Потоа, изберете Вметни>модул .

• После тоа, напишетеследниот код:

1584

• Потоа, зачувајте ја датотеката.
• Потоа, притиснете Alt+F8 на вашата тастатура за да го отворите дијалогот за макро поле.
• Следно, изберете find_year .
• Потоа, кликнете на Изврши .

Конечно, можете да видите дека сме успешни во извлекувањето на годината на раѓање од секој датум. Исто така, ја најдовме годината на раѓање на последниот запис користејќи го датумот на VBA во Excel.

3. Додајте денови во датум користејќи VBA

Сега, можете да ја дефинирате променливата датум и да ја користите за да го додадете датумот. За да го извршиме ова, го користиме методот DateAdd на VBA. Можете да ја користите оваа функција за да додавате денови, месеци и години на одреден датум.

Погледнете ја следната база на податоци:

Тука, вие може да види некои имиња и некои датуми прикачени на нив. Сега, нашата цел е да додадеме уште пет дена на овие дадени датуми и да генерираме нов датум.

📌 Чекори

• Прво, притиснете Alt +F11 на вашата тастатура за да го отворите уредникот VBA.
• Потоа, изберете Вметни>модул .

• Потоа, напишете го следниов код:

1991

Тука користевме „d“ како аргумент во функцијата DateAdd. Можете да го промените во „y“ или „m“ за да додадете години или месеци соодветно,

• Потоа, зачувајте ја датотеката.
• Потоа, притиснете Alt+F8 на вашата тастатура за да го отворите прозорецот за дијалог Макро.
• Следно, изберете.
• Потоа, кликнете на Изврши .

Како што можешВидете, ние успешно додадовме денови во датум користејќи го датумот во VBA. Сега, можете да го менувате кодот според вашиот избор.

💬 Работи што треба да се запаметат

✎ Функцијата VBA Date всушност функционира како функцијата ДЕНЕС во Excel.

✎ VBA DATE е неиспарлива функција во Excel. Тоа значи дека ќе ги задржи податоците дури и ако има прекин на напојувањето.

✎ Во основа, VBA ги зачувува вредностите на Date како DATE во моментот на имплементација.

✎ Значи, ако се обидете да доделите променлива датум како низа/текст, тоа ќе предизвика грешка.

✎ Стандардната вредност на Date е 0: 00:00 (полноќ) на 1 јануари 0001 година.

Заклучок

За да заклучиме, се надевам дека ова упатство ви обезбеди корисно знаење за датумот во VBA кодовите. Ви препорачуваме да ги научите и да ги примените сите овие упатства во вашата база на податоци. Преземете ја работната книга за вежбање и пробајте ги сами. Исто така, слободно дајте повратни информации во делот за коментари. Вашите вредни повратни информации не одржуваат мотивирани да создаваме вакви упатства.

Не заборавајте да ја проверите нашата веб-локација Exceldemy.com за различни проблеми и решенија поврзани со Excel.

Продолжете да учите нови методи и да растете!

Сега, во претстојните делови, ќе ви покажеме некои дополнителни функции за датум што можете да ги користите за многу намени во VBA. Прочитајте ги овие делови за да ги знаете сите можни начини за работа со датумот во VBA. Ви предлагаме да ги чувате во вашиот арсенал. Тоа сигурно ќе го подобри вашето знаење.

1. DateAdd функција како датум во VBA

Во VBA, ние ја користиме функцијата DateAdd за додавање денови во одреден датум. После тоа, ќе го врати добиениот датум.

Синтакса:

DateAdd(интервал, број, датум)

Аргументи:

интервал: Задолжителен е. Изразот на низа е временскиот интервал што сакате да го додадете.

број: Задолжително. Тоа е нумерички израз кој е бројот на интервали што сакате да ги додадете. Може да биде позитивен (за да се добијат датуми во иднина) или негативен (за да се добијат датуми во минатото).

датум: Оригиналниот датум/време.

Сега, интервалот аргументите може да ги имаат следните поставки:

yyyy –   Година

q     – Четврт

м    – Месец

г –    Ден во годината

д     – Ден

w    – Работен ден

ww – Недела

ч    – Час

n    – Минута

s    – Второ

Изглавје од код :

4275

Излез:

Како што можете да видите, додаде 15 датуми во тековниот датум воVBA.

Прочитај повеќе: Како да се користи IsDate функцијата во VBA (3 примери)

2. DateDiff функција во VBA

Функцијата DateDiff враќа варијанта (долга) која го одредува бројот на временски празнини помеѓу два наведени датуми.

Синтакса :

DateDiff( интервал, датум 1, датум 2, [ прв ден од неделата, [ прва недела од година ]] )

Аргументи:

интервал: Тоа е Задолжително. Стринг израз е временскиот интервал што сакате да го додадете Стринг изразот што е временската празнина што ја користите за да ја пресметате разликата помеѓу два датуми.

датум1,датум2 : Задолжително; Варијанта (Датум). Два датуми што сакате да ги користите во пресметката.

прв ден од неделата: Изборно. Константа која го дефинира првиот ден од неделата. Ако не е поправено, се претпоставува недела.

прва недела од годината: Изборно. Константа што ја воспоставува првата недела од годината. Ако не е поставено, првата недела се претпоставува дека е неделата во која се појавува 1 јануари.

Сега, интервалот аргументите може да ги имаат следните поставки:

yyyy –   Година

q     – Четврт

m    – Месец

г –    Ден во годината

д     – Ден

w    – Неделен ден

ww – Недела

h    – Час

n    – Минута

s    – Вториот

Аргументот firstdayofweek ги има овие поставки:

vbSunday –ја користи неделата како главен ден во неделата.

vbMonday – го користи понеделник како прв ден во неделата.

vbTuesday – работи вторник како прв ден од неделата.

vbWednesday – ја вработува средата како прв ден во неделата.

vbЧетврток – работи четврток како наместо ден во неделата.

vbFriday – го вработува петок како прв ден во неделата.

vbSaturday – работи сабота како прв ден од неделата.

vbUseSystemDayOfTheWeek – го користи првиот ден од неделата што е дефиниран со поставките на вашиот уред.

првата недела од годината ги има овие поставки:

vbFirstJan1 – ја користи неделата што содржи 1 јануари.

vbFirstFourDays – ја користи првата недела која има најмалку четири дена во новата година.

vbFirstFullWeek – работи првата цела недела од годината.

vbSystem – ја користи првата недела од година како што е дефинирано од локациите на вашиот уред.

Извор од код:

8244

Излез стави :

На крајот, ја враќа разликата помеѓу двата датума во VBA.

Прочитај повеќе: Како да се користи VBA DateDiff функцијата во Excel (9 примери)

3. DatePart функцијата како датум

Функцијата DatePart враќа Варијанта (Цел број) што го содржи дефинираниот дел од обезбеден датум.

Синтакса :

Датум на дел(интервал, датум, [ прв ден од неделата, [прва недела од година ]])

Аргументи:

интервал: Задолжителен е. Стринг израз е временскиот интервал што сакате да го додадете Стринг изразот што е временскиот јаз што го користите за да ја пресметате разликата помеѓу два датуми.

датум: Задолжително; Варијанта (Датум). Датумот што сакате да го користите во пресметката.

прв ден од неделата: Изборно. Константа која го дефинира првиот ден од неделата. Ако не е поправено, се претпоставува недела.

прва недела од годината: Изборно. Константа што ја воспоставува првата недела од годината. Ако не е поставено, првата недела се претпоставува дека е неделата во која се појавува 1 јануари.

Сега, интервалот аргументите може да ги имаат следните поставки:

yyyy –   Година

q     – Четврт

m    – Месец

г –    Ден во годината

д     – Ден

w    – Неделен ден

ww – Недела

h    – Час

n    – Минута

s    – Вториот

Аргументот firstdayofweek ги има овие поставки:

vbSunday – ја користи неделата како главен ден во неделата.

vbMonday – го користи понеделник како прв ден во неделата.

vbTuesday – работи вторник како прв ден во неделата.

vbWednesday – ја вработува средата како прв ден во неделата.

vbЧетврток – работи четврток како прилично ден наседмица.

vbFriday – го вработува петокот како прв ден во неделата.

vbSaturday – работи сабота како прв ден во неделата.

vbUseSystemDayOfTheWeek – го користи првиот ден од неделата што е дефиниран со поставките на вашиот уред.

првата недела од годината има овие вредности:

vbFirstJan1 – работи неделата вклучувајќи го и 1ви јануари.

vbFirstFourDays – ја користи првата недела која поседува најмногу помали четири дена во новата година.

vbFirstFullWeek – ја користи првата цела недела од годината.

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

парче од код :

5599

Излез :

На овој начин, можете да ја користите оваа функција за датум во VBA кодови.

Прочитајте повеќе: Како да ја користите функцијата VBA FileDateTime во Excel (3 употреби)

4. Функција DateSerial

Можете да видите датум заснован на внесена година, месец и ден користејќи ја функцијата DateSerial .

Синтакса:

DateSerial (година, месец, ден)

Аргументи:

година – Задолжително поле. Број меѓу 100 и 9999, вклучително или нумерички израз што ја симболизира годината.

месец – Задолжително поле. Целобројна вредност што го дефинира месецот.

ден – Задолжително поле. Целобројна вредност што го опишува денот.

Излез на код:

7845

Излез :

Прочитајте повеќе: Како да користите VBA TimeSerial во Excel (3 примери)

4. VBA Функција DateValue

Сега, ја користиме функцијата DateValue за да дефинираме датум.

Синтакса :

DateValue(датум)

Аргумент:

Тука, аргументот датум обично е низа израз кој опишува датум од 1 јануари 100 , до 31 декември 9999 година. Без разлика, датумот може дополнително да симболизира датум, време или датум и време во тој опсег. 1>

9389

Излез :

Како што можете да видите, успешно ја користевме функцијата датум во VBA кодовите.

5. Ден функција во VBA

Враќа варијанта (Цел број) која одредува реален број помеѓу 1 и 31, вклучително, пренесувајќи го денот во месецот.

Синтакса :

Ден(датум)

Аргумент:

Потребниот аргумент за датум е која било варијанта , нумерички израз, стринг израз или која било комбинација. Претставува датум. Ако датумот вклучува Null, тој исто така ќе го врати Null.

Излез на код:

4888

Излез:

Како што можете да видите, користејќи ги VBA кодовите откривме дека денот на дадениот датум е 12.

Поврзани содржини: Функција на формат VBA во Excel (8 употреби со примери)

6. Функција на месецот VBA како датум

Враќа варијанта (цел број) што дефинира реален број помеѓу 1 и 12,инклузивно, пренесувајќи го месецот во годината.

Синтакса :

Месец(датум)

Аргумент:

Потребниот аргумент за датум е која било Варијанта, нумерички израз, стринг израз или која било комбинација. Претставува датум. Ако датумот вклучува Null, тој исто така ќе го врати Null.

Излез на код:

6855

Излез:

Поврзани содржини: Како да се користи десната функција VBA во Excel (6 примери)

Слични читања

• Како да ја користите функцијата VBA Environ (4 примери)
• Како да користите VBA и функција во Excel (4 примери)
• VBA If – then – Else изјава во Excel (4 примери)
• Како да се користи VBA Abs функцијата во Excel (9 примери)
• Како да се користи Concatenate во Excel VBA (4 методи)

7. Функција MonthName

Враќа низа што го демонстрира наведениот месец.

Синтакса :

MonthName(month, [ кратенка ])

Argument:

месец: Задолжително. Нумеричкиот наслов на месецот. На пример, јануари е 1, февруари 2, и така натаму.

скратено: Изборно е. Булова вредност што покажува дали името на месецот треба да биде скратено. Ако се прескокне, стандардното е Неточно, што покажува дека името на месецот не е скратено.

Излез на код:

6763

Излез:

Како што можете да видите, го најдовме името на месецотсо оваа VBA Date Function.

8. Weekday Function

Таа враќа Variant ( Integer ) која поседува реален број кој го изразува денот на седмица.

Синтакса :

Неделен ден(датум, [ прв ден од неделата])

Аргумент:

датум: Потребниот аргумент за датум е која било Варијанта, нумерички израз, стринг израз или која било комбинација. Претставува датум. Ако датумот вклучува Null, тој исто така ќе го врати Null.

првиот ден на неделата: Изборно. Константа која го дефинира првиот ден од неделата. Ако не е поправено, се претпоставува недела.

Аргументот firstdayofweek ги има овие поставки:

vbSunday – ја користи неделата како првиот ден во неделата.

vbMonday – го користи понеделник како прв ден во неделата.

vbTuesday – работи вторник како прв ден во неделата.

vbWednesday – ја вработува средата како прв ден во неделата.

vbЧетврток – работи четврток како прилично ден на неделата.

vbFriday – го вработува петокот како прв ден во неделата.

vbSaturday – работи сабота како прв ден во неделата .

vbUseSystemDayOfTheWeek – го користи првиот ден од неделата што е дефиниран со поставките на вашиот уред.

Параметри за враќање

Сега, оваа функција враќа цел број. Значи, значењето на тие цели броеви е следново:

1 –