ДАТЕДИФФ функција у ВБА је уграђена функција у ВБА која је такође категорисана под функцијом датума и времена у ВБА, ова функција се користи за добијање разлике између два датума, ова функција узима три аргумента први аргумент је који део разлике желимо што могу бити дани године или месеци или секунде и два датума и резултат је цео број.
ДАТЕДИФФ функција у ВБА
ДАТЕДИФФ функција у ВБА израчунава разлику између два датума у данима, месецима, кварталима и годинама.
У Екцелу, проналажење разлике између два датума има много начина. Не треба вам посебна формула за израчунавање разлике између два датума.
На пример, погледајте доњу слику.
Ако желимо да израчунамо разлику између ова два датума, можемо једноставно одузети датум 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: Први аргумент је каква нам је разлика потребна између ова два датума. Рецимо да морамо пронаћи број дана, па аргумент наведите као „Д.“
Шифра:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D", End Sub
Step 7: What is the first date to find the difference. Our first date is “15-01-2018” that we have already assigned to the variable “Date1”. So supply the variable name here.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D",Date1, End Sub
Step 8: What is the second date to find the difference. The second date is “15-01-2019,” which holds the value through variable “Date2”.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) End Sub
Step 9: Ignore the last two parameters. Now assign the value of variable “Result” through the VBA message box.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) MsgBox Result End Sub
Now run the code using the F5 key or manually, we will get the difference between these two dates in a number of days.
So, from “15-01-2018” to 15-01-2019,” the exact difference is one year, so we got 365 days as a result.
Like this, we can find the difference between two dates in time intervals.
Example #2 - To Find Difference in Months
Code:
Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("M", Date1, Date2) MsgBox Result End Sub
Run this code Using the F5 key, or you can run manually to show the result as given below.
Example #3 - To Find Difference in Years
Code:
Sub DateDiff_Example3() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("YYYY", Date1, Date2) MsgBox Result End Sub
Run this code using the F5 key or manually to see the result.
Assignment as a Practice
I hope you have understood the function of VBA DATEDIFF. Take a look at the below homework for you. Find the difference between the below dates in “Months.”
Ако нисте пронашли пут, доле је готов код за вас.
Шифра:
Пододредба () Дим к Колико дуго за к = 2 до 8 ћелија (к, 3) .Вредност = ДатеДифф ("М", ћелије (к, 1), ћелије (к, 2)) Следеће к Крај под
Овај код можете покренути ручно или притиснути тастер Ф5 да бисте видели резултат.
