关于组合框赋值及自动更新问题

zhengjialon

Function 月末(日期 As Date) As Date
    Select Case Month(日期)
        Case 1, 3, 5, 7, 8, 10, 12
            月末 = Format(Year(日期) & "-" & Month(日期) & "-31", "yyyy-mm-dd")
        Case 4, 6, 9, 11
            月末 = Format(Year(日期) & "-" & Month(日期) & "-30", "yyyy-mm-dd")
        Case 2
            If Year(日期) Mod 4 = 0 Then
                月末 = Format(Year(日期) & "-" & Month(日期) & "-29", "yyyy-mm-dd")
            Else
                月末 = Format(Year(日期) & "-" & Month(日期) & "-28", "yyyy-mm-dd")
            End If
    End Select
   
End Function

Function 月初(日期 As Date) As Date
    月初 = Format(Year(日期) & "-" & Month(日期) & "-1", "yyyy-mm-dd")
End Function

hzaw1980

怎么没人解决啊？

hope678

同问啊，期待答案