[已解决]求两句代码

759857387

当前季度的最后一天 x = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
求：当前月度的最后一天和当前年度的最后一天

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-3-14 13:15

“当前季度的最后一天 x = Day(DateSerial(Year(Date), Month(Date) + 1, 0))”
这个应该是判断当前月度的最后一天吧

当前年度的最后一天(好象都是31天吧)
x=Day(DateSerial(Year(Date) + 1, 1, 0))

如果判断当前年度的总天数，只需判断当前年度的2月份有几天就可以了。如果是28天，当前年度总天数就是365，如果是29天，当前年度总天数就是366.

不知道楼主是不是这个意思

跳转到最佳答案楼层

dongqing1998

“当前季度的最后一天 x = Day(DateSerial(Year(Date), Month(Date) + 1, 0))”
这个应该是判断当前月度的最后一天吧

当前年度的最后一天(好象都是31天吧)
x=Day(DateSerial(Year(Date) + 1, 1, 0))

如果判断当前年度的总天数，只需判断当前年度的2月份有几天就可以了。如果是28天，当前年度总天数就是365，如果是29天，当前年度总天数就是366.

不知道楼主是不是这个意思

759857387

dongqing1998 发表于 2013-3-14 13:15
“当前季度的最后一天 x = Day(DateSerial(Year(Date), Month(Date) + 1, 0))”
这个应该是判断当前月度的 ...

我就是在时间上“转向”——加1天，
x = Day(DateSerial(Year(Date), Month(Date) + 1, 0))这个是月的，是我错了。
28天的季度最后一天，和29天的季度最后一天代码有什么区别呢？
有没有完全考虑闰月等因素，不需要再修改代码或添加的，关于月度、季度、年度的代码呢？