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
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有