VB中如何提出本月的最后一天日期?
Private Sub Form_Click() Dim d1 As Date, d2 As Date d1 = DateAdd("m", 1, Now) d1 = CDate(Year(d1) "-" Month(d1)) '下月第一天 d2 = DateAdd("d", -1, d1) '本月最后一天 Print d1, d2End Sub
VB中如何提出本月的最后一天日期?
Private Sub Form_Click() Dim d1 As Date, d2 As Date d1 = DateAdd("m", 1, Now) d1 = CDate(Year(d1) "-" Month(d1)) '下月第一天 d2 = DateAdd("d", -1, d1) '本月最后一天 Print d1, d2End Sub