ВБА ДатеВалуе - Како се користи функција ДатеВалуе у програму Екцел ВБА?

Шта је ВБА ДатеВалуе функција?

Функција ДатеВалуе је уграђена функција у програму Екцел ВБА под категоријом функције Датум / време. Ради као ВБА функција и као радни лист у ВБА. Ова функција враћа серијски број или вредност датума наведеног у формату представљања низа, занемарујући информације о времену које даје низ датума. У Екцел-у се користи на два различита начина. Ова функција се користи као формула радног листа која улази у ћелију радног листа. Користи се као макро код у ВБА апликацији, уносећи га кроз Висуал Басиц Едитор повезан са Мицрософт Екцел-ом.

У овом чланку ћемо научити примере ВБА ДАТЕВАЛУЕ-а и како га користити са јасним објашњењем.

Објашњење функције ВБА датумске вредности

У ВБА, ДАТЕВАЛУЕ користи следећу синтаксу.

Ова функција користи само један аргумент или параметар

  • Датум : То је датум представљен у формату низа
  • Враћа: Ова функција враћа вредност датума када се користи као ВБА функција. Враћа вредност датума када се користи као функција радног листа

ВБА ДатеВалуе функција је у стању да интерпретира податке представљене у текстуалном формату који се помиње у важећем Екцел формату. Није у могућности да врати вредност датума ако је низ садржавао текстуални приказ радног дана.

Предности функције ВБА ДатеВалуе су издвајање вредности датума из низа и претварање датума у ​​време у једини датум. Једноставно можемо рећи да када је датум дат са временом, ова функција само вредност датума избегавајући вредност времена.

Како се користи Екцел ВБА ДАТЕВАЛУЕ?

Да бисте користили функцију ДатеВалуе у програму Екцел, прво је потребно отворити ВБА едитор.

Командно дугме треба да се постави на Екцел радни лист да бисте му додали редове програма ВБА. Да би применио линије програма, корисник захтева да кликне на командно дугме у екцел листу. Да би се добио ваљани излаз из програма, ваљани унос се даје кроз аргумент. На пример, следећи код помаже у стварању макронаредбе за покретање функције ДатеВалуе за издвајање вредности датума из текста у ВБА.

ВБА програм: 

Дугме за датум () Затамни мој датум као датум миДате = ДатеВалуе („15. август 1991.“) МсгБок датум (мој датум) Крај суб

Овај код резултира датумом 15 од датог уноса.

Примери Екцел ВБА ДАТЕВАЛУЕ

Испод су примери ДатеВалуе у програму Екцел ВБА.

Пример # 1 - Добивање дана, месеца и године од датума

Следи неколико корака за креирање и извршавање програма у ВБА. То укључује

Корак 1: Идите на картицу Девелопер, поставите курсор на ћелију у Екцел листу и кликните на опцију „Инсерт“ и одаберите „Цомманд Буттон“ под АцтивеКс Цонтрол, као што је приказано на слици.

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

Корак 2: Двапут кликните на дугме; преусмериће се на ВБА пројекат и написати код између дугмета Привате Суб-цомманд и крајњег суб-а.

Код треба развити на следећи начин да би се добио датум, месец и година.

Шифра:

Привате Суб Датебуттон1_Цлицк () Дим Примјер датума Као датум Екампледате = ДатеВалуе ("Април 19,2019") МсгБок Датум МсгБок Година (Екампледате) МсгБок Мјесец (Екампледате) Крај Суб

У овом коду Датебуттон1_Цлицк () је име, а пример датума је променљив са типом података Дате и Мсгбок за приказ резултата.

Корак 3: Током развијања кода догодиће се грешке у неподударању типа ВБА и треба да се побрине за њих.

Корак 4: У овом кораку покрените програм кликом на опцију покретања.

Или можемо корак по корак да проверимо или отклонимо грешке у програму, одабиром опције Корак у мени у менију за отклањање грешака. Ако је наш код без грешака, приказује излаз.

Корак 5 : Када се програм изврши, прво приказује оквир за поруку са датумом датим у уносу текста. Затим кликните на ОК да бисте поново видели вредност године, кликните ОК на пољу за поруку да бисте видели месечну вредност.

Напомена: Ове кораке треба јасно следити да бисте добили тачне резултате.

Пример # 2 - Коришћење ДатеПарт-а за добијање различитих делова датума

Корак 1: Идите на картицу Екцел Девелопер, поставите курсор на ћелију у Екцел листу и кликните на опцију „Инсерт“ и одаберите „Цомманд Буттон“ под АцтивеКс Цонтрол, као што је приказано на слици.

Корак 2: Превуците дугме и наведите наслов као ДатеПарт под својствима.

Двапут кликните на ово дугме. Усмерава се на лист Висуал Басиц Едитор и приказује се на следећи начин.

Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.

Code:

Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub

In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.

Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.

The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.

Things to Remember About the VBA DATEVALUE

The following things must be remembered while using the DateValue function in Excel VBA

  • Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
  • When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
  • We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
  • Када се ДатеПарт користи за добијање вредности, треба следити одговарајући формат. У супротном, води 'грешка времена извођења 5' са позивом или аргументом неважеће поруке.

Занимљиви Чланци...