有这样的函数吗？

Question

Public Function GetMonthDays(ByVal dDate As String) As Integer
    Dim dNext As Date
    Dim dTemp As Date
    Dim dCur As Date
    
    dTemp = DateAdd("m", 1, dDate)
    dNext = DateSerial(Year(dTemp), Month(dTemp), 1)
    dCur = DateSerial(Year(dDate), Month(dDate), 1)
    GetMonthDays = DateDiff("d", dCur, dNext)
End Function

Answer 1

有啊。自己写一个，想了一下感觉挺简单的。