Yukino Ichikawa
VIP
Cấu trúc của hàm EOMONTH:
EOMONTH(Ngay,SoThang)
Ngay: Là ngày bắt đầu do người dùng chỉ định. Ví dụ 20/4/2019
SoThang: Là số tháng tính từ ngày bắt đầu do người dùng chỉ định. Ví dụ : 1
Như vậy 20/4/2019 được xác định là tháng 4/2019 tiếp theo 1 tháng là 5/2019, và ngày cuối cùng của tháng 5/2019 là ngày 31/5/2019.
Vì vậy ta sẽ có kết quả: EOMONTH("20/4/2019",1) = 31/5/2019.
Như vậy nếu muốn tìm ngày cuối cùng của tháng 4/2019 thì ở công thức trên ta sửa thành:
EOMONTH("20/4/2019",0) = 30/4/2019.
Một số ví dụ khác:
Ứng dụng: Ta có thể sử dụng hàm Excel này vào VBA:
Ví dụ tìm ngày cuối cùng của tháng 2/2020
Kết quả là 29/2/2020.
EOMONTH(Ngay,SoThang)
Ngay: Là ngày bắt đầu do người dùng chỉ định. Ví dụ 20/4/2019
SoThang: Là số tháng tính từ ngày bắt đầu do người dùng chỉ định. Ví dụ : 1
Như vậy 20/4/2019 được xác định là tháng 4/2019 tiếp theo 1 tháng là 5/2019, và ngày cuối cùng của tháng 5/2019 là ngày 31/5/2019.
Vì vậy ta sẽ có kết quả: EOMONTH("20/4/2019",1) = 31/5/2019.
Như vậy nếu muốn tìm ngày cuối cùng của tháng 4/2019 thì ở công thức trên ta sửa thành:
EOMONTH("20/4/2019",0) = 30/4/2019.
Một số ví dụ khác:
Trường hợp | Cột A | Công thức | Kết quả |
---|---|---|---|
1 | 1/8/2016 | =EOMONTH(A1,1) | 30/9/2016 |
2 | 15/8/2016 | =EOMONTH(A2,2) | 31/10/2016 |
3 | 31/8/2016 | =EOMONTH(A3,3) | 30/11/2016 |
4 | 1/8/2016 | =EOMONTH(A4,-1) | 31/7/2016 |
Ứng dụng: Ta có thể sử dụng hàm Excel này vào VBA:
Ví dụ tìm ngày cuối cùng của tháng 2/2020
Mã:
Sub test()
Dim d As Date
d = CDate(Format("12/2/2020", "dd/mm/yyyy")) 'lay ngay bat ky cua thang 2/2020
d = timngaycuoi(d)
MsgBox d
End Sub
Function timngaycuoi(ByVal d As Date) As Date
timngaycuoi = WorksheetFunction.EoMonth(d, 0) 'Chu y nhap la 0
End Function
Sửa lần cuối: