Hàm DATEDIFF trong VBA là một hàm có sẵn trong VBA cũng được phân loại theo hàm ngày và giờ trong VBA, hàm này được sử dụng để lấy chênh lệch giữa hai ngày, hàm này nhận ba đối số, đối số đầu tiên là phần của sự khác biệt mà chúng ta muốn có thể là năm ngày hoặc tháng hoặc giây và hai ngày và kết quả là một số nguyên.
Hàm DATEDIFF trong VBA
Hàm DATEDIFF trong VBA tính toán sự khác biệt giữa hai ngày trong ngày, tháng, quý và năm.
Trong excel, tìm sự khác biệt giữa hai ngày có nhiều cách. Bạn không cần một công thức đặc biệt để tính toán sự khác biệt giữa hai ngày.
Ví dụ, hãy nhìn vào hình ảnh dưới đây.
Nếu chúng ta muốn tính toán sự khác biệt giữa hai ngày này, chúng ta có thể chỉ cần trừ ngày 1 cho ngày 2.
Nó đã cho chúng ta sự khác biệt giữa hai ngày trong một số ngày. Đây là vấn đề với công thức chung này. Nếu chúng ta cần sự khác biệt về tháng, năm, quý, v.v … thì nó không thể đưa ra.
Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách sử dụng hàm DateDiff này trong VBA.
Hàm DATEDIFF trong Excel VBA là gì?
DATEDIFF trong VBA là viết tắt của “Ngày khác biệt giữa hai ngày”.
Hàm này có thể cho chúng ta số lượng khoảng thời gian giữa hai ngày. Khi chúng ta muốn tìm sự khác biệt giữa hai ngày, chúng ta có thể tìm nó theo ngày, tuần, tháng, quý, v.v.
Để hiểu hàm, hãy xem cú pháp bên dưới của hàm.
Khoảng thời gian: Điều này không có gì khác ngoài việc bạn muốn tính chênh lệch ngày theo cách nào. Cho dù đó là ngày, tháng, tuần, quý, vv… Dưới đây là danh sách giống nhau.
Ngày 1: Ngày đầu tiên bạn muốn tìm sự khác biệt là gì.
Ngày 2: Ngày thứ hai bạn muốn tìm sự khác biệt so với Ngày 1. Ngày 1: Ngày đầu tiên bạn muốn tìm sự khác biệt là gì.
Ở đây công thức là Ngày 2 - Ngày 1.
(Ngày đầu tiên trong tuần): Ngày đầu tiên trong tuần là ngày nào? Chúng ta có thể đồng ý với những lập luận sau đây.
(First Week Of the Year): Tuần đầu tiên của năm là thứ mấy. Chúng ta có thể nhập các đối số sau.
Ví dụ về hàm DATEDIFF trong Excel VBA
Sau đây là các ví dụ về excel VBA DateDiff.
Ví dụ số 1 - Để tìm sự khác biệt trong số ngày
Giả sử bạn có hai ngày, “15-01-2018” và “15-01-2019”. Chúng ta hãy tìm tất cả các loại khác nhau giữa hai ngày này.
Bước 1: Tạo tên macro trước.
Mã:
Sub DateDiff_Example1 () End Sub
Bước 2: Xác định hai biến là ngày.
Mã:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Bước 3: Bây giờ, đối với biến Date1, gán “15-01-2018” và đối với biến Date2, gán “15-01-2019”.
Mã:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Bước 4: Bây giờ, để lưu trữ kết quả, hãy xác định thêm một biến nữa là Long.
Mã:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Kết quả As Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Bước 5: Bây giờ gán giá trị cho biến này thông qua hàm DATEDIFF trong VBA
Mã:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Kết quả As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff (End Sub
Bước 6: Đối số đầu tiên là chúng ta cần sự khác biệt nào giữa hai ngày này. Giả sử chúng ta cần tìm số ngày, vì vậy hãy cung cấp đối số là "D."
Mã:
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.”
Nếu bạn chưa tìm ra cách, dưới đây là đoạn mã đã làm sẵn dành cho bạn.
Mã:
Gán con () 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
Bạn có thể chạy mã này theo cách thủ công hoặc nhấn phím F5 để xem kết quả.
