vb中什么函数能够获取到这个月的月底日期
展开全部
没有现成的,自己写一个:
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询