Hàm DateDiff() trong VBA

Hàm DateDiff() trong VBA trả về sự khác nhau giữa 2 khoảng thời gian được chỉ định.

Cú pháp

DateDiff(Interval, Date1, Date2 [,Firstdayofweek[, Firstweekofyear]])

Mô tả thông số:

• Interval: Tham số bắt buộc, Nó có thể lấy các giá trị sau:
  • d – ngày trong năm
  • m – tháng trong năm
  • y – năm của năm
  • yyyy – năm
  • w – ngày trong tuần
  • ww – tuần
  • q – quý
  • h – giờ
  • m – phút
  • s – giây
• Date1, Date2: Tham số bắt buộc.

• Firstdayofweek: Tham số tùy chọn. Chỉ định ngày đầu tuần. Nó có thể là một trong các giá trị sau:

  • 0 = vbUseSystemDayOfWeek – Sử dụng cài đặt API hỗ trợ ngôn ngữ quốc gia (NLS).
  • 1 = vbSunday – Sunday
  • 2 = vbMonday – Monday
  • 3 = vbTuesday – Tuesday
  • 4 = vbWednesday – Wednesday
  • 5 = vbThursday – Thursday
  • 6 = vbFriday – Friday
  • 7 = vbSaturday – Saturday

• Firstdayofweek – Một tham số tùy chọn. Chỉ định ngày đầu năm. Nó có thể lấy các giá trị sau.

  • 0 = vbUseSystem – Sử dụng cài đặt API hỗ trợ ngôn ngữ quốc gia (NLS).
  • 1 = vbFirstJan1 – Bắt đầu với tuần xảy ra ngày 1 tháng 1 (mặc định).
  • 2 = vbFirstFourDays – Bắt đầu với tuần có ít nhất bốn ngày trong năm mới.
  • 3 = vbFirstFullWeek – Bắt đầu với tuần đầy đủ đầu tiên của năm mới.

Ví dụ sử dụng hàm DateDiff() trong VBA

Sub vidu_ham_DiffDate()
    Dim fromDate As Variant
    fromDate = "01-Jan-09 00:00:00"
   
    Dim toDate As Variant
    toDate = "01-Jan-10 23:59:00"
   
    Cells(1, 1) = ("Line 1 : " & DateDiff("yyyy", fromDate, toDate))
    Cells(2, 1) = ("Line 2 : " & DateDiff("q", fromDate, toDate))
    Cells(3, 1) = ("Line 3 : " & DateDiff("m", fromDate, toDate))
    Cells(4, 1) = ("Line 4 : " & DateDiff("y", fromDate, toDate))
    Cells(5, 1) = ("Line 5 : " & DateDiff("d", fromDate, toDate))
    Cells(6, 1) = ("Line 6 : " & DateDiff("w", fromDate, toDate))
    Cells(7, 1) = ("Line 7 : " & DateDiff("ww", fromDate, toDate))
    Cells(8, 1) = ("Line 8 : " & DateDiff("h", fromDate, toDate))
    Cells(9, 1) = ("Line 9 : " & DateDiff("n", fromDate, toDate))
    Cells(10, 1) = ("Line 10 : " & DateDiff("s", fromDate, toDate))
End Sub

Kết quả:

Line 1 : 1
Line 2 : 4
Line 3 : 12
Line 4 : 365
Line 5 : 365
Line 6 : 52
Line 7 : 52
Line 8 : 8783
Line 9 : 527039
Line 10 : 31622340