VB中如何提出本月的最后一天日期
1个回答
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
