怎样得到本月末和下月末的日期

Lucky402 2005-01-20 01:45:42
请问怎样得到本月末和下月末的日期.
...全文
245 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-01-20
  • 打赏
  • 举报
回复
MsgBox Day(DateSerial(Year(Date), Month(Date) + 1, 0)) & vbCrLf & Day(DateSerial(Year(Date), Month(Date) + 2, 0))
tmd007 2005-01-20
  • 打赏
  • 举报
回复
还有

MsgBox DateSerial(5, Month(Date) + 1, 0)
MsgBox DateSerial(5, Month(Date) + 2, 0)

MsgBox DateAdd("d", -1, CStr(Year(Date)) + "-" + CStr(Month(Date) + 1) + "-1")
MsgBox DateAdd("d", -1, CStr(Year(Date)) + "-" + CStr(Month(Date) + 2) + "-1")
Lucky402 2005-01-20
  • 打赏
  • 举报
回复
谢谢大家的热心帮助,问题得到解决:
Dim CurDate As Date '当月末
Dim NxtDate As Date '下月末
CurDate = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1))
MsgBox CurDate
NxtDate = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 2, 1))
MsgBox NxtDate
wzzxq 2005-01-20
  • 打赏
  • 举报
回复
dim time as string
time="20050218"
Format(DateSerial(Mid(Time, 1, 4), Mid(Time, 5, 2) + 1, 0), "YYYYMMDD")
myhgyp 2005-01-20
  • 打赏
  • 举报
回复
Dim CurDate As Date '当月末
Dim NxtDate As Date '下月末
CurDate = DateAdd("d", -1, DateSerial(Year(Date), Month(Date) + 1, 1))
MsgBox CurDate
NxtDate = DateAdd("m", 1, CurDate)
MsgBox NxtDate
Tan0531 2005-01-20
  • 打赏
  • 举报
回复
MsgBox Format(DateAdd("m", 1, Now()), "yyyy-mm-01") 'next

MsgBox Format(DateAdd("m", 2, Now()), "yyyy-mm-01") 'next next
aiur2000 2005-01-20
  • 打赏
  • 举报
回复
Dim a As Date
a = "2004-2-1"
a = DateAdd("m", 1, a)
a = DateDiff("d", 1, a)
MsgBox a
tztz520 2005-01-20
  • 打赏
  • 举报
回复
写一个函数,定义一个date变量,从28号到31号附值,出错后就是前一天是这个月的最后一天了(因为不存在的日期会报错的)
Tan0531 2005-01-20
  • 打赏
  • 举报
回复
用下月的第一天减一天就是本月末

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧