Функцията DATEDIFF във VBA е вградена функция във VBA, която също е категоризирана по функция за дата и час във VBA, тази функция се използва за получаване на разликата между две дати, тази функция взема три аргумента, първият аргумент е каква част от разликата искаме които могат да бъдат годишни дни или месеци или секунди и две дати и резултатът е цяло число.
Функция DATEDIFF във VBA
Функцията DATEDIFF във VBA изчислява разликата между две дати в дни, месеци, тримесечия и години.
В Excel, намирането на разликата между две дати има много начини. Не е необходима специална формула за изчисляване на разликата между две дати.
Например погледнете изображението по-долу.
Ако искаме да изчислим разликата между тези две дати, можем просто да извадим датата 1 от дата 2.
Даде ни разликата между две дати в определен брой дни. Това е проблемът с тази обща формула. Ако се нуждаем от разликата в месеци, години, тримесечия и т.н. … тя не може да даде.
В тази статия ще ви покажем как да използвате тази функция DateDiff във VBA.
Какво представлява функцията DATEDIFF в Excel VBA?
DATEDIFF във VBA означава „Разлика в датата между две дати“.
Тази функция може да ни даде броя на интервала от време между две дати. Когато искаме да намерим разликата между две дати, можем да я намерим в дни, седмици, месеци, тримесечия и т.н …
За да разберете функцията, вижте синтаксиса по-долу на функцията.
Интервал: Това не е нищо друго освен по какъв начин искате да изчислите разликата в датата. Независимо дали е в дни, месеци, седмици, тримесечия и т.н. … По-долу е списъкът на същото.
Дата 1: Коя е първата дата, на която искате да намерите разликата.
Дата 2: Коя е втората дата, на която искате да намерите разликата от дата 1. Дата 1: Коя е първата дата, на която искате да намерите разликата.
Тук формулата е Дата 2 - Дата 1.
(Първи ден от седмицата): Какъв е първият ден от седмицата? Можем да се съгласим със следните аргументи.
(Първа седмица на годината): Каква е първата седмица от годината. Можем да въведем следните аргументи.
Примери за функцията DATEDIFF в Excel VBA
По-долу са примерите за Excel VBA DateDiff.
Пример # 1 - Намиране на разлики в дни
Да приемем, че имате две дати, „15-01-2018“ и „15-01-2019“. Нека открием всякакви разлики между тези две дати.
Стъпка 1: Създайте първо име на макрос.
Код:
Sub DateDiff_Example1 () Край Sub
Стъпка 2: Определете две променливи като дата.
Код:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Стъпка 3: Сега за променливата Date1 задайте „15-01-2018“, а за променливата Date2 задайте „15-01-2019“.
Код:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Стъпка 4: Сега, за да съхраните резултатите, дефинирайте още една променлива като Long.
Код:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Стъпка 5: Сега задайте стойността за тази променлива чрез функцията DATEDIFF във VBA
Код:
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 (End Sub
Стъпка 6: Първият аргумент е каква разлика се нуждаем между тези две дати. Да кажем, че трябва да намерим броя на дните, така че посочете аргумента като „D.“
Код:
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.”
Ако не сте намерили пътя, по-долу е готовият код за вас.
Код:
Sub Assignment () Dim k As Long For k = 2 To 8 Cells (k, 3) .Value = DateDiff ("M", Cells (k, 1), Cells (k, 2)) Next k End Sub
Можете да стартирате този код ръчно или да натиснете клавиша F5, за да видите резултата.
