Hàm PartDate() trong VBA

Hàm PartDate() trong VBA trả về một phần của gian được chỉ định.

Cú pháp

DatePart(Interval, Date[, 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 DatePart() trong VBA

Sub vidu_ham_DatePart()
    Dim Quarter As Variant
    Dim DayOfYear As Variant
    Dim WeekOfYear As Variant
  
    date1 = "2020-01-22"
    Quarter = DatePart("q", date1)
   
    Cells(1, 1) = ("Line 1 : " & Quarter)
    DayOfYear = DatePart("y", date1)
   
    Cells(2, 1) = ("Line 2 : " & DayOfYear)
    WeekOfYear = DatePart("ww", date1)
   
    Cells(3, 1) = ("Line 3 : " & WeekOfYear)
    Cells(4, 1) = ("Line 4 : " & DatePart("m", date1))
End Sub

Kết quả:

Line 1 : 1
Line 2 : 22
Line 3 : 4
Line 4 : 1