[已解决]求月末日期报错

mqr66

我现在在学习function 函数，在标准模块增加如
下代码：
Function yuemo1(riqi As Date) As Date
yuemo1 = DateSerial(Year(riqi), Month(riqi) + 1, 0)
End Function
然后在任一单元格输入=yuemo1(2010-5-3)，结果日期变成了1905年6月30日，我本意是求2010年5月份的最后一天的日期即2010年5月31日，怎么会变成了1905年6月30日呢？请高手指教 ，谢谢了。

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-29 20:54

2010-5-3
=2005-3
=2002

跳转到最佳答案楼层

爱疯

没想到会这样，不知道为什么。可用下面两者方式引用：

方式1：用双引号把日期括起来，如b2=yuemo1("2010-5-3")，返回40329，即日期值2010-5-31
方式2：引用单元格里的日期值

即使如此，当引用了空单元格后，这个自定义函数会返回1，需处理。

如果高手能来说明原因，就好学习了

Zipall

2010-5-3
=2005-3
=2002

爱疯

Zipall 发表于 2011-10-29 20:54
2010-5-3
=2005-3
=2002

但例如：b2=yuemo1(2010/5/3)，也会出错，返回1900/5/31。
2010/5/3不是减法的缘故呀

Zipall

回复 爱疯 的帖子

+-*/
不是减法是除法

爱疯

哦，2010-5-3=2008,2010/5/3=152，明白了{:25:}

mqr66

爱疯版主前面说的加引号，是初步解决问题了。但后面减法和除法的事没有看明白，能否说得详细一点。