用vba'怎么取得本月最后一天的日期和这个月的天数

978 主题	1094 帖子	1万积分

管理员

Rank: 9 Rank: 9 Rank: 9

积分: 15950

发表于 2018-9-13 13:21:42 | 显示全部楼层 |阅读模式

原创表格，已上架到我们店铺，或许有你需要的！<点击进入获取>

Sub LastDay()
Dim DateStr As Byte
DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
MsgBox "本月共有" & DateStr & "天，最后一天是" & Month(Date) & "月" & DateStr & "日！"
End Sub

使用道具举报

返回列表发新帖

网站简介：表格智创网，是一家以表格设计和技能分享的专业社区，由会计帮帮网投资建设，尽专业，助提高专业技能。

表格智创网欢迎您！

联系我们

工作时间：早上9：00-16：00
客服电话：18668755857
本站网址：www.excelwps.com
淘宝店址：kjbbw.taobao.com

|Archiver|手机版|小黑屋|表格智创网