VBA'daki DATEDIFF işlevi, VBA'da tarih ve saat işlevi altında da kategorize edilen VBA'da yerleşik bir işlevdir, bu işlev iki tarih arasındaki farkı elde etmek için kullanılır, bu işlev üç bağımsız değişken alır, ilk bağımsız değişken, istediğimiz farkın parçası bu yıl günler veya aylar veya saniye ve iki tarih olabilir ve sonuç bir tamsayıdır.
VBA'da DATEDIFF İşlevi
VBA'daki DATEDIFF İşlevi, iki tarih arasındaki farkı gün, ay, çeyrek ve yıl olarak hesaplar.
Excel'de iki tarih arasındaki farkı bulmanın birçok yolu vardır. İki tarih arasındaki farkı hesaplamak için özel bir formüle ihtiyacınız yok.
Örneğin, aşağıdaki resme bakın.
Bu iki tarih arasındaki farkı hesaplamak istersek, 1 tarihini tarih 2'den çıkarabiliriz.
Bize birkaç gün içinde iki tarih arasındaki farkı verdi. Bu genel formüldeki sorun budur. Aylar, yıllar, çeyrekler vb. Olarak ihtiyacımız olursa… veremez.
Bu yazıda, bu DateDiff işlevinin VBA'da nasıl kullanılacağını göstereceğiz.
Excel VBA'daki DATEDIFF İşlevi nedir?
VBA'daki DATEDIFF , "İki tarih arasındaki Tarih Farkı" anlamına gelir.
Bu fonksiyon bize iki tarih arasındaki zaman aralığının sayısını verebilir. İki tarih arasındaki farkı bulmak istediğimizde günler, haftalar, aylar, çeyrekler vb. Olarak bulabiliriz …
İşlevi anlamak için, işlevin aşağıdaki sözdizimine bakın.
Aralık: Bu, tarih farkını ne şekilde hesaplamak istediğinizden başka bir şey değil. Günler, aylar, haftalar, çeyrekler vb. Olsun… Aşağıda bunların listesi var.
Tarih 1: Farkı bulmak istediğiniz ilk tarih nedir.
Tarih 2: Tarih 1'den farkını bulmak istediğiniz ikinci tarih nedir? Tarih 1: Farkı bulmak istediğiniz ilk tarih nedir.
Burada formül Tarih 2 - Tarih 1'dir.
(Haftanın İlk Günü): Haftanın ilk günü nedir? Aşağıdaki argümanlara katılabiliriz.
(Yılın İlk Haftası): Yılın ilk haftası nedir. Aşağıdaki argümanları girebiliriz.
Excel VBA'da DATEDIFF İşlevi Örnekleri
Aşağıda excel VBA DateDiff örnekleri verilmiştir.
Örnek 1 - Günlerdeki Farkları Bulmak İçin
"15-01-2018" ve "15-01-2019" olmak üzere iki tarihiniz olduğunu varsayın. Bu iki tarih arasındaki her türlü farkı bulalım.
Adım 1: Önce bir makro adı oluşturun.
Kod:
Alt Tarih Dif_Örnek1 () Son Alt
Adım 2: İki Değişkeni Tarih Olarak Tanımlayın.
Kod:
Alt Tarih Fark_Örnek1 () Boyut Tarih1 Tarih Olarak Boyut Boyut Tarih2 Tarih Bitiş Alt
Adım 3: Şimdi, Tarih1 değişkeni için “15-01-2018” ve Tarih2 değişkeni için “15-01-2019” atayın.
Kod:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Adım 4: Şimdi, sonuçları saklamak için bir değişken daha Uzun olarak tanımlayın.
Kod:
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
Adım 5: Şimdi bu değişkenin değerini VBA'daki DATEDIFF işlevi aracılığıyla atayın
Kod:
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
Adım 6: İlk argüman, bu iki tarih arasında ne tür bir farka ihtiyacımız olduğudur. Diyelim ki gün sayısını bulmamız gerekiyor, bu nedenle argümanı "D" olarak sağlayın.
Kod:
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.”
Yolu bulamadıysanız, aşağıda sizin için hazır yapılmış kod bulunmaktadır.
Kod:
Alt Atama () Dim k As Long For k = 2 to 8 Cell (k, 3) .Value = DateDiff ("M", Cells (k, 1), Cells (k, 2)) Next k End Sub
Bu kodu manuel olarak çalıştırabilir veya sonucu görmek için F5 tuşuna basabilirsiniz.
