vb中什么函数能够获取到这个月的月底日期
答案:2 悬赏:10 手机版
解决时间 2021-12-23 01:29
- 提问者网友：寂寞撕碎了回忆
- 2021-12-22 05:03
vb中什么函数能够获取到这个月的月底日期
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-12-22 05:16
你是要知道这个月最后一天是几号？
可以从下个月1号退一天：
a = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1))
Date 这个是函数，返回当前日期，也可以指定日期，将Date换成其他日期值即可
可以从下个月1号退一天：
a = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1))
Date 这个是函数，返回当前日期，也可以指定日期，将Date换成其他日期值即可
全部回答
- 1楼网友：污到你湿
- 2021-12-22 05:54
没有现成的，自己写一个：
Private Sub Command1_Click()
MsgBox DaysOfMonth(Year(Now), Month(Now))
End Sub
Function DaysOfMonth(Year As Long, Month As Long) As Long
Dim Day1 As String, Day2 As String
Day1 = CStr(Year) + "- " + CStr(Month) + "-1 "
Day2 = CStr(Year) + "- " + CStr(Month + 1) + "-1 "
DaysOfMonth = DateDiff("d", Day1, Day2)
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯