DatePart Description
Trả về một phần cụ thể của một ngày nhất định.
Ví dụ về DatePart đơn giản
Đây là một ví dụ DatePart đơn giản:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("yyyy", # 1/1/2019 #)Kết thúc Sub |
Mã này sẽ trả về năm 2022.
Cú pháp DatePart
Trong VBA Editor, bạn có thể nhập “DatePart (” để xem cú pháp của Hàm DatePart:
Hàm DatePart chứa 4 đối số:
Khoảng thời gian: Đơn vị thời gian (Ngày, Tháng, Năm, v.v.). Nhập dưới dạng chuỗi. (ví dụ: “m” cho Tháng)
| Thiết lập | Sự miêu tả |
|---|---|
| yyyy | Năm |
| NS | Phần tư |
| NS | Tháng |
| y | Ngày trong năm |
| NS | Ngày |
| w | Ngày trong tuần |
| đệ | Tuần |
| NS | Giờ |
| n | Phút |
| NS | Thứ hai |
Ngày: Giá trị biến thể (Ngày) mà bạn muốn đánh giá.
Ngày đầu tuần: Một hằng số chỉ định ngày đầu tiên trong tuần. Đây là tùy chọn. Nếu không được chỉ định, Chủ nhật được giả định.
| Hằng số | Giá trị | Sự miêu tả |
|---|---|---|
| vbUseSystem | 0 | Sử dụng cài đặt API NLS. |
| vbSunday | 1 | Chủ nhật (mặc định) |
| vbMonday | 2 | thứ hai |
| vbTuesday | 3 | Thứ ba |
| vbWednesday | 4 | thứ Tư |
| vbThursday | 5 | Thứ năm |
| vbFriday | 6 | thứ sáu |
| vbSaturday | 7 | Thứ bảy |
FirstWeekOfYear: Một hằng số chỉ định tuần đầu tiên của năm. Đây là tùy chọn. Nếu không được chỉ định, tuần đầu tiên được giả định là tuần xảy ra ngày 1 tháng 1.
| Hằng số | Giá trị | Sự miêu tả |
|---|---|---|
| vbUseSystem | 0 | Sử dụng cài đặt API NLS. |
| vbFirstJan1 | 1 | Bắt đầu với tuần mà ngày 1 tháng 1 xảy ra (mặc định). |
| vbFirstFourDays | 2 | Bắt đầu với tuần đầu tiên có ít nhất bốn ngày trong năm mới. |
| vbFirstFullWeek | 3 | Bắt đầu với tuần đầu tiên của năm. |
Lập trình VBA | Code Generator làm việc cho bạn!
Ví dụ về hàm DatePart trong Excel VBA
Ngày tham chiếu
Để bắt đầu, chúng tôi sẽ trình bày các cách khác nhau để tham chiếu ngày bằng Hàm VBA DatePart.
Mỗi hàm DatePart này tạo ra cùng một kết quả:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("yyyy", # 4/1/2019 #)MsgBox DatePart ("yyyy", DateSerial (2019, 4, 1))MsgBox DatePart ("yyyy", DateValue ("ngày 1 tháng 4 năm 2022"))Kết thúc Sub |
Hoặc bạn có thể tham chiếu ô chứa ngày tháng:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("yyyy", Range ("C2"). Giá trị)Kết thúc Sub |
Hoặc tạo và tham chiếu các biến ngày:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = # 4/1/2019 #MsgBox DateAdd ("yyyy", dt)Kết thúc Sub |
Sử dụng các đơn vị khoảng thời gian khác nhau
Phần tư
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", # 6/30/2019 #)Kết thúc Sub |
Tháng
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", # 6/30/2019 #)' tương đươngTháng MsgBox (# 6/30/2019 #)Kết thúc Sub |
Ngày
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", # 6/30/2019 #)' tương đươngNgày MsgBox (# 6/30/2019 #)Kết thúc Sub |
Tuần
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", # 6/30/2019 #)' tương đươngMsgBox Ngày trong tuần (# 6/30/2019 #)Kết thúc Sub |
Giờ
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour As Longdt = # 8/14/2019 9:30:00 SA #nHour = DatePart ("h", dt)MsgBox nHour' tương đươngGiờ MsgBox (dt)Kết thúc Sub |
Phút
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", # 8/14/2019 9:15:00 AM #)' tương đươngPhút MsgBox (# 8/14/2019 9:15:00 AM #)MsgBox Minute (# 9: 15: 00 AM #)Kết thúc Sub |
Thứ hai
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", # 8/14/2019 9:15:15 AM #)' tương đươngMsgBox thứ hai (# 8/14/2019 9:15:15 AM #)MsgBox thứ hai (# 9: 15: 15 AM #)Kết thúc Sub |
