Екцел ВБА ДатеПарт функција
ДатеПарт у ВБА се користи за идентификовање дела датума за дати датум наведен као аргумент, датумски део могу бити дани или месеци или година или чак сатни минут и секунда, синтакса ове функције се сама појашњава то је како следи, Датепарт (Интервал, Датум као аргумент).
Синтакса
Синтакса функције ДатеПарт дата је у наставку:
- Интервал: Подаци који се преносе у аргументу интервала су врста низа, што значи да овај аргумент може садржати било какве важеће вредности. Интервал може бити година, месец, квартал, дан, недеља, сат, минут, секунда.
- Датум: Вредност датума коју треба проценити.
- фирстдаиофвеек: Ово је опционални параметар. Ово описује први дан у недељи. Ово се чак може занемарити. Ако се овај параметар занемари, ово аутоматски узима недељу за први дан у недељи. Ако бисте то желели да промените, онда се овај параметар може користити. Овај аргумент се може састојати од вбУсеСистем 0.
Користите НЛС АПИ подешавање
вбСундаи (подразумевано), вбМондаи, вбТуесдаи, вбВеднесдаи, вбТхурсдаи вбФридаи, вбСатурдаи.
- фирствеекофиеар: Исто тако, горњи параметар, ово је такође опциони параметар. Ово описује прву недељу у години. Овај параметар се такође може занемарити. Ако се овај параметар занемари, претпоставља се да је 1. јануар прва недеља у години. Ако то желите да промените, онда се овај параметар може користити.
Овај аргумент се може састојати од следећих вредности.
вбУсеСистем, вбФирстЈан1, вбФирстФоурДаис, вбФирстФуллВеек.
Након давања свих параметара, датепарт () ће вратити нумеричку вредност као што је цео датум или година или месец или тромесечје, итд. Отуда ће повратни тип ове функције бити нумеричка вредност.
Како се користи функција ДатеПарт у ВБА?
Пример # 1
Први пример је приказивање комплетног датума и тромесечја тог месеца.
Да бисмо то постигли, морамо да напишемо неки код у Висуал Басиц-у за ту картицу Гото Девелопер, а затим кликнемо на Висуал Басиц и тада ће се отворити прозор.
У тај прозор напишите код како је приказано доле.
Шифра:
Суб дате_Датепарт () Затамни мој датум као варијанту мидате = # 12/25/2019 # МсгБок мидате МсгБок ДатеПарт ("к", мидате) 'приказује квартал Крај Суб
У овом примеру смо користили функцију датепарт да прикажемо датум и неки део датума који представља четвртину датума. Ово приказује у ком кварталу године долази датум.
Ако отклонимо грешке у коду, датум ће се први пут приказати као потпуни датум када код изврши „Мсгбок мидате“, јер је случајни датум додељен променљивој „мидате“.
Даље приказујемо под којим тромесечјем године долази тај датум.
Када код покренете ручно или помоћу пречице Ф5, тада ће се приказати датум као што је приказано након клика на ок. Следећа четвртина датума би била приказана. То се може приказати на доњем снимку екрана.
Исто тако, четвртина, такође се могу приказати само датум или месец или година.
Пример # 2
У овом примеру ћу ручно унети датум у време извођења.
Шифра:
Суб дате1_датеПарт () Дим ТодаиДате Ас Дате 'Објави променљиве. Затамни Мсг ТодаиДате = ИнпутБок ("Унесите датум:") Мсг = "Квартал:" & ДатеПарт ("к", ТодаиДате) МсгБок Мсг Енд Суб
Овде у овом примеру покушавамо ручно да добијемо датум током извођења. Код „ТодаиДате = ИнпутБок („ Ентер а дате: “)“ овај ред означава да се датум може унети ручно,
Након ручног уноса датума, у оквиру за поруке приказује се четвртина датума. То се може приказати на доњем снимку екрана.
Како је јунски месец у другом тромесечју, ово приказује 2. четвртину, као што је приказано на горњем снимку екрана.
Пример # 3
У овом примеру ће се све вредности попунити у ћелијама.
Шифра:
Привате Суб Воркбоок_Опен () Дим ДуммиДате Ас Дате ДуммиДате = АцтивеСхеет.Целлс (2, 2) АцтивеСхеет.Целлс (2, 2) .Валуе = Даи (ДуммиДате) АцтивеСхеет.Целлс (3, 2) .Валуе = Хоур (ДуммиДате) АцтивеСхеет .Целлс (4, 2) .Валуе = Минуте (ДуммиДате) АцтивеСхеет.Целлс (5, 2) .Валуе = Монтх (ДуммиДате) АцтивеСхеет.Целлс (6, 2) .Валуе = Веекдаи (ДуммиДате) Енд Суб
The dates are filled in the cells in the excel sheet, for that the code is written as Active Sheet.cells. By this code, the date which is present maybe a year, month, or date can be inserted into the given cells.
For example, in the above screenshot,
The day is to be inserted in the cells ( 2, 2) of the excel sheet. Hence the code is written as “ ActiveSheet.Cells(2, 2).Value = Day(DummyDate) “ .
Run the code using the F5 key or manually, and the result would be as shown below.
It is, by default taking date today, 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.
- Ова функција такође одваја датум, месец и годину од одређеног датума.
- Коришћењем ове функције датум се не само одваја. Такође можемо добити четвртину, дан, сат, минуту и секунду.
Ствари које треба запамтити
- Ова функција се може користити само као ВБА функција. У нормалном Екцелу, ово се не може користити.
- Датуми који су дати као вредност у овој функцији могу се дати у било ком формату, као што су мм-дд-ииии формат или ДД-ММ-ИИИИ формат итд.
- Ова функција ће засебно одвојити све вредности, као што су датум, месец, година или време, такође сат, минут, секунде.
- Ово је организовано у оквиру функције Датум и време у ВБА програма Мицрософт Екцел.
