ДатеАдд Десцриптион
Функција ВБА ДатеАдд омогућава вам да додате (или одузмете) дане, месеце, године, сате, квартале итд. У Датуме или Времена.
Једноставни примери додавања датума
Ево једноставног примера ДатеАдд:
| 123 | Под -датумАдд_Даи ()МсгБок ДатеАдд ("д", 20, #4/1/2021 #)Енд Суб |
Овај код ће додати 20 дана (означено словом "д") на датум 04.04.2021 .:
Уместо тога, можемо променити аргумент Интервал из „д“ у „м“ како бисмо датуму 04.04.2021. Додали 20 месеци:
| 123 | Под -датумАдд_Монтх ()МсгБок ДатеАдд ("м", 20, #4/1/2021 #)Енд Суб |
Уместо да приказујемо датум у оквиру за поруку, можемо га доделити променљивој:
| 123456 | Суб ДатеАдд_Даи2 ()Затамните дт као датумдт = ДатеАдд ("д", 20, #4/1/2021 #)МсгБок дтЕнд Суб |
ДатеАдд Синтакса
У ВБА Едитор -у можете откуцати „ДатеАдд (“ да бисте видели синтаксу за функцију ДатеАдд:
Функција ДатеАдд садржи 3 аргумента:
Интервал: Временска јединица (Дани, Месеци, Године итд.). Унесите као низ. (нпр. „м“ за месец)
| Подешавање | Опис |
|---|---|
| гггг | Година |
| к | Куартер |
| м | Месец дана |
| и | Дан у години |
| д | Дан |
| в | Радним даном |
| вв | Недеља |
| х | Сат |
| н | Минута |
| с | Друго |
Број: Нумеричка вредност која представља број временских јединица за додавање. (нпр. 20 за додавање 20 јединица)
Датум: Почетни датум. Погледајте следећи одељак.
ВБА програмирање | Генератор кода ради за вас!
Примери Екцел ВБА функције додавања датума
Референтни датуми
За почетак, показаћемо различите начине позивања на датуме помоћу функције ВБА ДатеАдд.
Свака од ових функција ДатеАдд производи исти резултат:
| 123456789 | Суб ДатеАдд_РеференцеДатес ()МсгБок ДатеАдд ("м", 2, #4/1/2021 #)МсгБок ДатеАдд ("м", 2, ДатеСериал (2021, 4, 1))МсгБок ДатеАдд ("м", 2, ДатеВалуе ("1. април 2022"))Енд Суб |
Или се можете позвати на ћелију која садржи датум:
| 12345 | Под -датумАдд_РеференцеДатес_Целл ()МсгБок ДатеАдд ("м", 2, Ранге ("Ц2"). Вредност)Енд Суб |
Или креирајте и референцирајте променљиву датума:
| 12345678 | Под датумАдд_Вариабле ()Дим дт Ас Датедт = #4/1/2021 #МсгБок ДатеАдд ("м", 2, дт)Енд Суб |
Додавање или одузимање датума
Већ смо вам показали како да додате датум:
| 123456 | Суб ДатеАдд_Даи2 ()Затамните дт као датумдт = ДатеАдд ("д", 20, #4/1/2021 #)МсгБок дтЕнд Суб |
Можете да одузмете датуме помоћу негативног броја (нпр. -20 уместо 20):
| 123456 | Под -датумАдд_Даи ()Затамните дт као датумдт = ДатеАдд ("д", -20, #4/1/2021 #)МсгБок дтЕнд Суб |
Уморни сте од тражења примера ВБА кода? Испробајте АутоМацро!
Додавање различитих временских јединица
Године
| 123 | Под датумАдд_Иеарс ()МсгБок ДатеАдд ("гггг", 4, #4/1/2021 #)Енд Суб |
Куартер
| 123 | Под -датумАдд_Куартерс ()МсгБок ДатеАдд ("к", 2, #4/1/2021 #)Енд Суб |
Месец дана
| 123 | Суб ДатеАдд_Монтхс ()МсгБок ДатеАдд ("м", 2, #4/1/2021 #)Енд Суб |
Дан у години
| 123 | Под датумАдд_ДаисофИеар ()МсгБок ДатеАдд ("и", 2, #4/1/2021 #)Енд Суб |
Дан
| 123 | Суб ДатеАдд_Даис3 ()МсгБок ДатеАдд ("д", 2, #4/1/2021 #)Енд Суб |
Радним даном
| 123 | Под -датумАдд_Веекдаис ()МсгБок ДатеАдд ("в", 2, #4/1/2021 #)Енд Суб |
Недеља
| 123 | Суб ДатеАдд_Веекс ()МсгБок ДатеАдд ("вв", 2, #4/1/2021 #)Енд Суб |
ВБА програмирање | Генератор кода ради за вас!
Додај у Данас
Ови примери ће додати временске јединице данашњици помоћу функције Дате.
| 123456789 | Под -датумАдд_Иеар_Тест ()Дим дтТодаи Ас ДатеДим дтЛатер Ас ДатедтТодаи = ДатумдтЛатер = ДатеАдд ("гггг", 1, дтТодаи)МсгБок "Годину дана касније је" & дтЛатерЕнд Суб |
| 123 | Под -датумАдд_Куартер_Тест ()МсгБок "2 четвртине касније је" & ДатеАдд ("к", 2, Датум)Енд Суб |
Сабирање и одузимање времена
Функција ДатеАдд такође ради са Тимесом. Ево неколико примера додавања (или одузимања) времена у време:
Сат
Овај пример ће додати 2 сата на време:
| 123 | Под -датумАдд_Хоур ()МсгБок ДатеАдд ("х", 2, #4/1/2021 6: 00: 00 #)Енд Суб |
Минута
Овај пример ће одузети 120 минута од тренутног времена:
| 123 | Суб ДатеАдд_Минуте_Субтрацт ()МсгБок ДатеАдд ("н", -120, сада)Енд Суб |
Друго
| 123 | Под -датумАдд_Сецонд ()МсгБок ДатеАдд ("с", 2, #4/1/2021 6: 00: 00 #)Енд Суб |
Форматирање датума
Када су датуми (или времена) приказани у Екцелу, корисничким обрасцима или оквирима за поруке, требали бисте навести како би датуми требали бити приказани помоћу функције обликовања. У наставку смо навели неколико примера:
| 123456789101112131415161718 | ПодобликовањеДатесТимес ()'Враћа тренутни датум и времедт = Сада ()'ек. 07/02/2021Опсег ("Б2") = Формат (дт, "мм/дд/гггг")'ек. 2. јула 2022Опсег ("Б3") = Формат (дт, "мммм д, гггг")'ек. 2. јул 2022. 09:10Опсег ("Б4") = Формат (дт, "мм/дд/гггг хх: мм")'ек. 7.2.21 9:10 АМОпсег ("Б5") = Формат (дт, "м.д.ии х: мм АМ/ПМ")Енд Суб |
