Hàm mảng tự tạo liệt kê các ngày trong 2 tháng liền kề

[SA_DQ]

Giả dụ trong 2 ô B2 & b3 chứa 2 giá trị ngày của 2 tháng liền kề (như 28/6/2026 & 2/7/2026)
Ta cần viết 1 hàm tự tạo cho ta có bao nhiêu ngày thuộc vào tháng 6 & bao nhiêu ngày thuộc tháng 7;
Hàm đó có nội dunh như sau:

Function SoNgay(Optional Date1 As Date = 0, Optional Date2 As Date = 0) As Variant
    Dim arr(1 To 2, 1 To 2) As Variant
    Dim m1 As Integer, m2 As Integer
    Dim d1 As Integer, d2 As Integer
   
    ' Nếu người dùng không truyền tham số thì mặc định lấy Today()
    If Date1 = 0 Then Date1 = Date
    If Date2 = 0 Then Date2 = Date
   
    m1 = Month(Date1):       d1 = Day(Date1)
    m2 = Month(Date2):      d2 = Day(Date2)
   
    arr(1, 1) = m1
    arr(1, 2) = Day(DateSerial(Year(Date1), m1 + 1, 0)) - d1 + 1
    arr(2, 1) = m2:             arr(2, 2) = d2
   
    SoNgay = arr
End Function

Vì đây là hàm mảng nên những phiên bản Excel thấp ta phải kết thúc hàm bỡi tổ hợp phím {CTRL}+{Sht}+{ENTER]