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