7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2004-02-03
- 打赏
- 举报
DateSerial(Year(date), Month(date) + 1, 0)
skyweave 2004-02-02
- 打赏
- 举报
很简单
得到下个月的第一天，然后减掉一天。就可以了。
建议平时多思考！
得到下个月的第一天，然后减掉一天。就可以了。
建议平时多思考！
dreamtou 2004-02-02
- 打赏
- 举报
首先为下个月的第一天生成一个顺序数值，然后再减去一天
Private Sub Command1_Click()
Dim dtl As Date
dtl = DateSerial(Year(Now), Month(Now) + 1, 1) - 1
MsgBox dtl
End Sub
Private Sub Command1_Click()
Dim dtl As Date
dtl = DateSerial(Year(Now), Month(Now) + 1, 1) - 1
MsgBox dtl
End Sub
paoluo 2004-02-02
- 打赏
- 举报
本月最后一天
DateSerial(Year(Now), Month(Now) + 1, 1) - 1
DateSerial(Year(Now), Month(Now) + 1, 1) - 1
华芸智森 2004-02-02
- 打赏
- 举报
function Getenddate(Year as long,Month as long) as date
dim RevDate as date
revdate=dateadd("d",-1,(dateadd("m",1,cdate(year & "\" & month & "\1")))
getenddate=revdate
end function
dim RevDate as date
revdate=dateadd("d",-1,(dateadd("m",1,cdate(year & "\" & month & "\1")))
getenddate=revdate
end function
wxj_lake 2004-02-02
- 打赏
- 举报
知道是几月份，难道还不知道最后一天的日期？ 自己写个函数对应，一共才12个月份。
不要老想着找现成函数，自己写！
不要老想着找现成函数，自己写！
