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

[quocanh.x20]

Các Anh chị cho hỏi công thức tính số ngày của 1 tháng xác định trong 1 khoảng thời gian cho trước.
VD: cho từ ngày 01/01/2026 đến 23/2/2026. Tính số ngày thuộc tháng 1, số ngày thuộc tháng 2 trong khoảng thời gian trên.
XIn chân thành cám ơn!

 

[DeTong]

công thức tính số ngày

Nếu Office của bạn 2019 trở về trước:
Viết 1 function ( Nhờ Bing trợ giúp ) và áp vào file...

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