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

ДатеДифф Опис

Враћа разлику између две вредности датума, на основу наведеног интервала.

Једноставни примери ДатеДифф

Ево једноставног примера ДатеДифф:

123 Суб ДатеДифф_Иеар ()МсгБок ДатеДифф ("гггг", #1/1/2019 #, #8/1/2021 #)Енд Суб

Овај код ће вратити 2. То је разлика у односу на годину (означена са "гггг") између 2 дана. (2021. - 2022. = 2)

У горњем примеру, промена положаја дате1 и дате2.

123 Суб ДатеДифф_Иеар ()МсгБок ДатеДифф ("гггг", #8/1/2021 #, #1/1/2019 #)Енд Суб

Овај код ће вратити -2.

ДатеДифф Синтакса

У ВБА Едитор -у можете откуцати „ДатеДифф (“ да бисте видели синтаксу за функцију ДатеДифф:

Функција ДатеДифф садржи 5 аргумената:

Интервал: Временска јединица (Дани, Месеци, Године итд.). Унесите као низ. (нпр. „м“ за месец)

Подешавање Опис
гггг Година
к Куартер
м Месец дана
и Дан у години
д Дан
в Радним даном
вв Недеља
х Сат
н Минута
с Друго

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

Први дан седмице: Константа која одређује први дан у недељи. Ово није обавезно. Ако није наведено, претпоставља се недеља.

Цонстант Вредност Опис
вбУсеСистем 0 Користите поставку НЛС АПИ.
вбСундаи 1 Недеља (подразумевано)
вбМондаи 2 Понедељак
вбТубедаи 3 Уторак
вбВеднесдаи 4 Среда
вбТхурсдаи 5 Четвртак
вбФридаи 6 Петак
вбСубота 7 Субота

Прва седмица године: Константа која одређује прву недељу у години. Ово није обавезно. Ако није наведено, претпоставља се да је прва недеља недеља у којој се јавља 1. јануар.

Цонстант Вредност Опис
вбУсеСистем 0 Користите поставку НЛС АПИ.
вбФирстЈан1 1 Почните са недељом у којој се јавља 1. јануар (подразумевано).
вбФирстФоурДаис 2 Почните са првом недељом која има најмање четири дана у новој години.
вбФирстФуллВеек 3 Почните са првом пуном недељом у години.

ВБА програмирање | Генератор кода ради за вас!

Примери Екцел ВБА ДатеДифф функције

Референтни датуми

За почетак ћемо показати различите начине позивања на датуме помоћу ВБА ДатеДифф функције.

Свака од ових функција ДатеДифф производи исти резултат:

123456789 Суб ДатеДифф_РеференцеДатес ()МсгБок ДатеДифф ("м", #4/1/2019 #, #8/1/2021 #)МсгБок ДатеДифф ("м", ДатеСериал (2019, 4, 1), ДатеСериал (2021, 8, 1))МсгБок ДатеДифф ("м", ДатеВалуе ("1. април 2022"), ДатеВалуе ("1. август 2022"))Енд Суб

Или се можете позвати на ћелије које садрже датуме:

12345 Суб ДатеДифф_РеференцеДатес_Целл ()МсгБок ДатеДифф ("м", Опсег ("Ц2"). Вредност, Опсег ("Ц3"). Вредност)Енд Суб

Или креирајте и промените променљиве датума:

123456789 Суб ДатеДифф_Вариабле ()Дим дт1 као датум, дт2 као датумдт1 = #4/1/2019 #дт2 = #8/1/2021 #МсгБок ДатеДифф ("м", дт1, дт2)Енд Суб

Уморни сте од тражења примера ВБА кода? Испробајте АутоМацро!

Коришћење различитих јединица интервала

Четвртине

123 Суб ДатеДифф_Куартер ()МсгБок "број квартала:" & ДатеДифф ("к", #1/1/2019 #, #1/1/2021 #)Енд Суб

Месеци

123 Суб ДатеДифф_Монтх ()МсгБок "број месеци:" & ДатеДифф ("м", #1/1/2019 #, #1/1/2021 #)Енд Суб

Дани

123 Суб ДатеДифф_Даи ()МсгБок "број дана:" & ДатеДифф ("д", #1/1/2019 #, #1/1/2021 #)Енд Суб

Недеље

123 Суб ДатеДифф_Веек ()МсгБок "број недеља:" & ДатеДифф ("в", #1/1/2019 #, #1/1/2021 #)Енд Суб

Хоурс

123456789101112 Суб ДатеДифф_Хоур ()Дим дт1 као датумДим дт2 као датумДим нДифф Ас Лонгдт1 = #8/14/2019 9:30:00 АМ #дт2 = #14.8.2019 13:00:00 #нДифф = ДатеДифф ("х", дт1, дт2)МсгБок "хоурс:" & нДиффЕнд Суб

Минута

123 Суб ДатеДифф_Минуте ()МсгБок "минс:" & ДатеДифф ("н", #8/14/2019 9:30:00 #, #8/14/2019 9:35:00 АМ #)Енд Суб

Секунде

123 Суб ДатеДифф_Сецонд ()МсгБок "сецс:" & ДатеДифф ("с", #8/14/2019 9:30:10 #, #8/14/2019 9:30:22 АМ #)Енд Суб

Ви ће помоћи развој сајта, дељење страницу са пријатељима

wave wave wave wave wave