取得上个月月底的日期？

Question

怎样可以使得DTPICKER取得上一个月底的日期！

Answer 1

dtpicker.value=dateadd("d",-1,2004-4-1)

Answer 2

dateadd("d",-1,year(date) & "-" & month(date) & "-1")

Answer 3

Select Case Month_val
          Case 1, 3, 5, 7, 8, 10, 12
               Return_Days = 31
          Case 4, 6, 9, 11
               Return_Days = 30
          Case 2
               If (tem_Year Mod 4) = 0 Then
                   Return_Days = 29
                   Else
                   Return_Days = 28
              End If
   End Select