Tính số ngày của 1 tháng trong khoảng thời gian cho trước (1 người xem)

Function DaysPerMonth(StartDate As Date, EndDate As Date) As String
    Dim d As Date
    Dim dict As Object
    Dim key As String
    Dim result As String
    
    ' Create dictionary
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' Loop through each day
    For d = StartDate To EndDate
        key = Year(d) & " " & Format(d, "mmm")
        If dict.Exists(key) Then
            dict(key) = dict(key) + 1
        Else
            dict.Add key, 1
        End If
    Next d
    
    ' Build result string in one row
    Dim k As Variant
    For Each k In dict.Keys
        result = result & k & ": " & dict(k) & " days, "
    Next k
    
    ' Remove trailing comma and space
    If Len(result) > 2 Then
        result = Left(result, Len(result) - 2)
    End If
    
    DaysPerMonth = result
End Function

 Function SoNgay(Date1 As Date, Date2 As Date) 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
    ' Lấy tháng và ngày từ 2 giá trị'
    m1 = Month(Date1)
    d1 = Day(Date1)
    m2 = Month(Date2)
    d2 = Day(Date2)  
' Tính số ngày còn lại của tháng trước'
    arr(1, 1) = m1
    arr(1, 2) = Day(DateSerial(Year(Date1), m1 + 1, 0)) - d1 + 1
    ' Tính số ngày đã qua của tháng sau'
    arr(2, 1) = m2
    arr(2, 2) = d2
    SoNgay = arr
End Function

D3=SUM(N(MONTH(ROW(INDIRECT($A3&":"&$B3)))=D$2))

=DROP(REDUCE(0,B3:B7,LAMBDA(s,r,VSTACK(s,LET(a,SEQUENCE(r-@+A7:r+1,,r,-1),IFNA(VLOOKUP(D2:H2,GROUPBY(MONTH(a),a,ROWS,,0),2,),""))))),1)