ДатеПарт Десцриптион
Враћа одређени део датог датума.
Једноставни примери ДатеПарт
Ево једноставног примера ДатеПарт -а:
| 123 | Суб ДатеПарт_Иеар_Тест ()МсгБок ДатеПарт ("гггг", #1/1/2019 #)Енд Суб |
Овај код ће вратити 2022.
ДатеПарт Синтакса
У ВБА Едитор -у можете откуцати „ДатеПарт (“ да бисте видели синтаксу за функцију ДатеПарт:
Функција ДатеПарт садржи 4 аргумента:
Интервал: Временска јединица (Дани, Месеци, Године итд.). Унесите као низ. (нпр. „м“ за месец)
| Подешавање | Опис |
|---|---|
| гггг | Година |
| к | Куартер |
| м | Месец дана |
| и | Дан у години |
| д | Дан |
| в | Радним даном |
| вв | Недеља |
| х | Сат |
| н | Минута |
| с | Друго |
Датум: Вариент (Дате) вредност коју желите да процените.
Први дан седмице: Константа која одређује први дан у недељи. Ово није обавезно. Ако није наведено, претпоставља се недеља.
| Цонстант | Вредност | Опис |
|---|---|---|
| вбУсеСистем | 0 | Користите поставку НЛС АПИ. |
| вбСундаи | 1 | Недеља (подразумевано) |
| вбМондаи | 2 | Понедељак |
| вбТубедаи | 3 | Уторак |
| вбВеднесдаи | 4 | Среда |
| вбТхурсдаи | 5 | Четвртак |
| вбФридаи | 6 | Петак |
| вбСубота | 7 | Субота |
Прва седмица године: Константа која одређује прву недељу у години. Ово није обавезно. Ако није наведено, претпоставља се да је прва недеља недеља у којој се јавља 1. јануар.
| Цонстант | Вредност | Опис |
|---|---|---|
| вбУсеСистем | 0 | Користите поставку НЛС АПИ. |
| вбФирстЈан1 | 1 | Почните са недељом у којој се јавља 1. јануар (подразумевано). |
| вбФирстФоурДаис | 2 | Почните са првом недељом која има најмање четири дана у новој години. |
| вбФирстФуллВеек | 3 | Почните са првом пуном недељом у години. |
ВБА програмирање | Генератор кода ради за вас!
Примери Екцел ВБА ДатеПарт функције
Референтни датуми
За почетак ћемо показати различите начине позивања на датуме помоћу ВБА ДатеПарт функције.
Свака од ових функција ДатеПарт производи исти резултат:
| 123456789 | Суб ДатеАдд_РеференцеДатес ()МсгБок ДатеПарт ("гггг", #4/1/2019 #)МсгБок ДатеПарт ("гггг", ДатеСериал (2019, 4, 1))МсгБок ДатеПарт ("гггг", ДатеВалуе ("1. април 2022"))Енд Суб |
Или се можете позвати на ћелију која садржи датум:
| 12345 | Суб ДатеПарт_РеференцеДате_Целл ()МсгБок ДатеПарт ("гггг", опсег ("Ц2"). Вредност)Енд Суб |
Или креирајте и промените променљиве датума:
| 12345678 | Суб ДатеПарт_Вариабле ()Дим дт Ас Датедт = #4/1/2019 #МсгБок ДатеАдд ("гггг", дт)Енд Суб |
Коришћење различитих јединица интервала
Куартер
| 123 | Суб ДатеПарт_Куартер ()МсгБок ДатеПарт ("к", #6/30/2019 #)Енд Суб |
Месец дана
| 12345 | Суб ДатеПарт_Монтх ()МсгБок ДатеПарт ("м", #6/30/2019 #)' еквивалентМсгБок месец (#6/30/2019#)Енд Суб |
Дан
| 12345 | Суб ДатеПарт_Даи ()МсгБок ДатеПарт ("д", #6/30/2019 #)' еквивалентДан порука (#30/30/2019#)Енд Суб |
Недеља
| 12345 | Суб ДатеПарт_Веек_Тест ()МсгБок ДатеПарт ("в", #6/30/2019 #)' еквивалентМсгБок радни дан (#6/30/2019#)Енд Суб |
Сат
| 123456789101112 | Суб ДатеПарт_Хоур ()Дим дт Ас ДатеДим нХоур Ас Лонгдт = #8/14/2019 9:30:00 АМ #нХоур = ДатеПарт ("х", дт)МсгБок нХоур' еквивалентМсгБок Сат (дт)Енд Суб |
Минута
| 123456 | Суб ДатеПарт_Минуте ()МсгБок ДатеПарт ("н", #8/14/2019 9:15:00 АМ #)' еквивалентМсгБок записник (#8/14/2019 9:15:00 АМ#)МсгБок минута (#9: 15: 00 АМ#)Енд Суб |
Друго
| 123456 | Суб ДатеПарт_Сецонд ()МсгБок ДатеПарт ("с", #8/14/2019 9:15:15 АМ #)' еквивалентМсгБок Сецонд (#8/14/2019 9:15:15 АМ#)МсгБок Сецонд (#9: 15: 15 АМ#)Енд Суб |
