关于MONTHH函数在VBA和EXCEL中的值不一样

santao_2014

各位大侠 ：
    MONTH 函数在VBA 和 EXCEL中的值为啥不一样，百思不得其解 ，请大家帮忙解惑 ，谢谢

一剑惊心

你的附件里哪来VBA代码，况且从截图看，VBA是显示值，而不是显示月份啊

santao_2014

一剑惊心 发表于 2018-9-13 20:49
你的附件里哪来VBA代码，况且从截图看，VBA是显示值，而不是显示月份啊

对不起，在保存的时候版本不一样，没有保存到
Sub MONTHTEST()
MsgBox "A1单元格的值为:" & Month([a1])
End Sub
谢谢

魂断蓝桥

这种问题，你觉得有关系吗？

a1 是空，根本就不是日期格式啊，何来月份呢

就是函数算出的是1，你觉得这个1是对的吗？


Sub a()
If IsDate([a1]) Then
    MsgBox Month([a1])
Else
    MsgBox "不是日期"
End If
End Sub

santao_2014

魂断蓝桥 发表于 2018-9-14 09:22
这种问题，你觉得有关系吗？

a1 是空，根本就不是日期格式啊，何来月份呢

收益非浅，但是我在单元格那里按日期格式设定的 ，[A1]即是空的话 ，它的格式依然是1900/1/0 ，不知道我这样的理解有没有问题 ，在VBA中的值应该是“1”

小fisher

Excel中日期以1900-1-00 0:00:00为分界点，VB中日期以1899-12-30 0:00:00为分界点，在内存中表示为一个双精度浮点 数(Double类型)，整数部分表示分界点以后的天数，小数部分是时、分、秒，1=24小时=1440分=86400秒。
例如，数字1.5在excel中表示的日期是1900-1-1 12:00:00（在单元格中输入1.5，然后把单元格格式设置为"yyyy-mm-dd h:mm:ss"）；而数字1.5在VBA中表示的日期则是1899-12-31 12:00:00，用CDate(1.5)或format(1.5, "yyyy-MM-dd hh:mm:ss")。同样的数字，用两种日期表示会相差1天，遇到月底月初会落到不同的月份。

excel运算中，空白单元格a1会被当作数字0处理，所以，Excel函数=month(a1)返回1月份，而VBA中month([a1])返回12月份。这是对楼主问题的解答。

有趣的是，在1900-3-1日之后却不再存在这1天的差异，原因是VBA日期中没有1900-2-29这个日期，而excel日期中有（以00结尾的年份，必须能被400整除才是闰年，所以1900年2月是没有29日的，这个和1900年1月0日一样，应该是excel日期的bug），数字60、61在VBA中分别表示1900-2-28和1900-3-1，而在Excel中则分别表示1900-2-29和1900-3-1。

小fisher

再补充一下网上看到的关于excel中存在的1900年3月1日前日期存在bug的解释，这个bug源自Lotus 1-2-3，微软早就知晓这个问题，早期为了和Lotus 1-2-3兼容并抢占市场，后期为了避免修复bug造成之前已产生的大量excel文件出错，所以一直沿用了这个bug。对于1900-3-1之前的日期，excel的相关日期函数比如weekday都有可能给出错误结果。但是VBA中的相关日期函数不存在这个问题。

santao_2014

小fisher 发表于 2018-9-14 10:42
Excel中日期以1900-1-00 0:00:00为分界点，VB中日期以1899-12-30 0:00:00为分界点，在内存中表示为一个双精 ...

谢谢 ，豁然开朗 ，感谢