用vba如何得到上一个月的天数

zglssl · 发表于 2015-11-7 12:46

用vba如何得到上一个月的天数

蓝桥玄霜 · 发表于 2015-11-7 13:16

r=#2015-11-2#
dd = Day(DateSerial(Year(r), Month(r) + 1, 0))

39660519 · 发表于 2015-11-7 13:40

本帖最后由 39660519 于 2015-11-7 14:11 编辑

蓝桥玄霜发表于 2015-11-7 13:16
r=#2015-11-2#
dd = Day(DateSerial(Year(r), Month(r) + 1, 0))

蓝版，你求的是这个月的天数
r=#2015-11-2#
dd = Day(DateSerial(Year(r), Month(r) , 0) )

39660519 · 发表于 2015-11-7 13:55

本帖最后由 39660519 于 2015-11-7 14:12 编辑

上月天数 = Day(DateSerial(Year(Date), Month(Date) , 0) )

huang1314wei · 发表于 2015-11-7 14:16

39660519 发表于 2015-11-7 13:40
蓝版，你求的是这个月的天数
r=#2015-11-2#
dd = Day(DateSerial(Year(r), Month(r) , 0) )

蓝版的代码是没有问题的，我解释一下，DateSerial函数返回是包含指定的年月日，比如r=#2015-11-2# 那么DateSerial(Year(r), Month(r) , 1) 返回的是2015/11/1,然后把2015/11/1减去1天，自然返回10月31日，然后加一个day函数，返回31天，所以返回的是10月份的天数

39660519 · 发表于 2015-11-7 14:23

huang1314wei 发表于 2015-11-7 14:16
蓝版的代码是没有问题的，我解释一下，DateSerial函数返回是包含指定的年月日，比如r=#2015-11-2# 那么D ...

蓝版的是dd = Day(DateSerial(Year(r), Month(r) + 1, 0))，把月+1后算的是当月的天数

39660519 · 发表于 2015-11-7 14:24

huang1314wei 发表于 2015-11-7 14:16
蓝版的代码是没有问题的，我解释一下，DateSerial函数返回是包含指定的年月日，比如r=#2015-11-2# 那么D ...

楼主要求算上月的天数，不应+1

小花鹿 · 发表于 2015-11-7 14:25

39660519 发表于 2015-11-7 14:23
蓝版的是dd = Day(DateSerial(Year(r), Month(r) + 1, 0))，把月+1后算的是当月的天数

笔误，这都不明白吗？

huang1314wei · 发表于 2015-11-7 14:26

39660519 发表于 2015-11-7 14:23
蓝版的是dd = Day(DateSerial(Year(r), Month(r) + 1, 0))，把月+1后算的是当月的天数

哦，确实，刚才没有细看

39660519 · 发表于 2015-11-7 14:31

小花鹿发表于 2015-11-7 14:25
笔误，这都不明白吗？

知道哈，我也很崇拜蓝版的，我的字典和很多知识都是跟蓝版学的，但有错就要指出来嘛，不然楼主得不到正确答案

		自动登录	找回密码
密码			免费注册