Nếu Office của bạn 2019 trở về trước:
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 FunctionNgày đầu ở B2, ngày cuối ở B3, D3 là tháng
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)
Nhờ bác xem giúp công thức của bác tôi sai khúc nào mà kết quả không đúng. Đa tạ
