如何获得当月日期,有没有这样的函数??

xjdcxm 2004-10-29 08:31:50
如何获得当月日期,有没有这样的函数???
...全文
给本帖投票
179 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2004-10-29
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
MsgBox Day(DateAdd("d", -1, DateSerial(Year(Date), Month(DateAdd("m", 1, Date)), 1)))
End Sub
  • 打赏
  • 举报
回复
Day(DateSerial(Year(Date), Month(Date) + 1, 0))


学习
yyuyes 2004-10-29
  • 打赏
  • 举报
回复
没有这样的函数,你可以用下面的办法:

Select Case Month
Case 1, 3, 5, 7, 8, 10, 12
Print "31天"
Case 4, 6, 9, 1
Print "30天"
Case 2
Print IIf(Year Mod 4 = 0, "29天", "28天")
End Select
northwolves 2004-10-29
  • 打赏
  • 举报
回复
还有一个晕的:
Private Sub Command1_Click()
MsgBox Choose(Month(Date), 31, IIf(Year(Date) Mod 400 = 0 Or (Year(Date) Mod 4 = 0 And Year(Date) Mod 100 <> 0), 29, 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
End Sub
xjdcxm 2004-10-29
  • 打赏
  • 举报
回复
thanks
northwolves 2004-10-29
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
MsgBox Day(DateSerial(Year(Date), Month(Date) + 1, 0))
End Sub
xjdcxm 2004-10-29
  • 打赏
  • 举报
回复
是获得当月的天数

7,785

社区成员

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

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

手机看
关注公众号

关注公众号

客服 返回
顶部