ВБА ДатеДифф | Пример по корак за употребу функције ДатеДифф ВБА Екцел

ДАТЕДИФФ функција у ВБА је уграђена функција у ВБА која је такође категорисана под функцијом датума и времена у ВБА, ова функција се користи за добијање разлике између два датума, ова функција узима три аргумента први аргумент је који део разлике желимо што могу бити дани године или месеци или секунде и два датума и резултат је цео број.

ДАТЕДИФФ функција у ВБА

ДАТЕДИФФ Функција у ВБА израчунава разлику између два датума у ​​данима, месецима, кварталима и годинама.

У Екцелу проналажење разлике између два датума има много начина. Не треба вам посебна формула за израчунавање разлике између два датума.

За пример погледајте доњу слику.

Ако желимо да израчунамо разлику између ова два датума, можемо једноставно одузети датум 1 од датума 2.

Дала нам је разлику између два датума у ​​одређеном броју дана. У томе је проблем ове генеричке формуле. Ако нам треба разлика у месецима, годинама, тромесечјима итд ... не може дати.

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

Шта је функција ДАТЕДИФФ у програму Екцел ВБА?

ДАТЕДИФФ у ВБА је кратица за „Разлика у датумима између два датума“.

Ова функција нам може дати број временског интервала између два датума. Када желимо пронаћи разлику између два датума, можемо је пронаћи у данима, недељама, месецима, кварталима итд.

Да бисте разумели функцију, погледајте доњу синтаксу функције.

Интервал: Ово је ништа друго доли на који начин желите израчунати датумску разлику. Било да је у данима, месецима, недељама, тромесечјима итд ... Испод је листа истих.

Датум 1: Који је први датум када желите да нађете разлику.

Датум 2: Који је други датум када желите да нађете разлику од датума 1.Датум 1: Који је први датум када желите да нађете разлику.

Овде је формула Датум 2 - Датум 1.

[Први дан у недељи]: Који је први дан у недељи? Можемо следити аргументе.

[Прва недеља у години]: Која је прва недеља у години. Можемо унети следеће аргументе.

Примери функције ДАТЕДИФФ у програму Екцел ВБА

Следе примери екцел ВБА ДатеДифф.

Овај ВБА ДатеДифф шаблон функције можете преузети овде - ВБА ДатеДифф шаблон функције

Пример # 1 - Пронаћи разлике у данима

Претпоставимо да имате два датума „15-01-2018“ и „15-01-2019“. Пронађимо све врсте разлика за ова два датума.

Корак 1: Прво креирајте име макронаредбе.

Шифра:

 Суб ДатеДифф_Екампле1 () Крај Суб 

Корак 2: Дефинишите две променљиве као датум.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Енд Суб 

Корак 3: Сада за променљиву Дате1 доделите „15-01-2018“ и за променљиву Дате2 доделите „15-01-2019“.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дате1 = "15-01-2018" Дате2 = "15-01-2019" Енд Суб 

Корак 4: Сада за чување резултата дефинишите још једну променљиву као Лонг.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Енд Суб 

Корак 5: Сада доделите вредност за ову променљиву путем функције ДАТЕДИФФ у ВБА

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф (Енд Суб 

Корак 6: Први аргумент је каква нам је разлика између ова два датума потребна. Рецимо да морамо да пронађемо број дана, па наведите аргумент као „Д“.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("Д", Енд Суб 

Корак 7: Који је први датум да се пронађе разлика. Наш први датум је „15-01-2018“ који смо већ доделили променљивој „Датум1“. Дакле, наведите овде име променљиве.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("Д", Дате1, Енд Суб 

Корак 8: Који је други датум за проналажење разлике. Други датум је „15-01-2019“ који садржи вредност кроз променљиву „Дате2“.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("Д", Дате1, Дате2) Енд Суб 

Корак 9: Занемарите последња два параметра. Сада доделите вредност променљивој „Резултат“ кроз оквир за поруке ВБА.

Шифра:

 Суб ДатеДифф_Екампле1 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("Д", Дате1, Дате2) МсгБок Ресулт Енд Суб 

Сада покрените код помоћу тастера Ф5 или ручно, добићемо разлику између ова два датума за неколико дана.

Дакле, од „15-01-2018“ до 15-01-2019 “тачна разлика је 1 година, тако да смо као резултат добили 365 дана.

Овако, можемо пронаћи разлику између два датума у ​​временским интервалима.

Пример # 2 - Пронаћи разлику у месецима

Шифра:

 Суб ДатеДифф_Екампле2 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("М", Дате1, Дате2) МсгБок Ресулт Енд Суб 

 

Покрените овај код помоћу тастера Ф5 или можете покренути ручно да бисте приказали резултат као што је дато испод.

Пример # 3 - Пронаћи разлику у годинама

Шифра:

 Суб ДатеДифф_Екампле3 () Дим Дате1 Ас Дате Дим Дате2 Ас Дате Дим Ресулт Ас Лонг Дате1 = "15-01-2018" Дате2 = "15-01-2019" Ресулт = ДатеДифф ("ИИИИ", Дате1, Дате2) МсгБок Резултат Крај Суб 

Покрените овај код помоћу тастера Ф5 или ручно да бисте видели резултат.

Задатак као пракса

Надам се да сте разумели функцију ВБА ДАТЕДИФФ-а. Погледајте доњи домаћи задатак за вас. Пронађите разлику између доле наведених датума у ​​„Месецима“.

Ако нисте пронашли пут испод, то је готов код за вас.

Шифра:

 Суб-задатак () Дим к Колико дуго за к = 2 до 8 ћелија (к, 3) .Вредност = ДатеДифф ("М", ћелије (к, 1), ћелије (к, 2)) Следеће к Крај под 

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