VBA日期格式化差异：相同格式为何第3行输出与前两行不一致

你给出的VBA代码运行后显示效果不一致，原因如下：

Range("A1").Value2 = Now
Range("A1").NumberFormat = "yyyy-mm-dd hh:mm:ss"
Range("B1").Value2 = Format(Now, "yyyy-mm-dd hh:mm:ss")

核心差异原因 #

• 存储类型完全不同
  前两行操作A1时，Now返回的是日期时间型数值（本质是双精度浮点数，对应Excel的日期序列值，整数部分代表日期，小数部分代表时间），设置NumberFormat只是修改了该数值的显示规则，单元格实际存储的依然是可参与日期计算的数值。
  第三行的Format函数会直接返回文本字符串，存入B1后单元格存储的是纯文本，不是可计算的日期值，二者存储属性从根源上就不一样。
• 格式解析逻辑不同
  给A1设置的NumberFormat是Excel层面的单元格自定义格式，只要没有额外添加区域标记，显示规则不受系统区域设置影响；而VBA的Format函数是系统层面的函数，解析格式字符串时会调用当前系统的区域配置，比如系统默认日期分隔符为/、时间分隔符不是冒号的情况下，Format输出的文本会和你写的格式预期不符，这就是显示不一致的直接原因。

系统区域设置的影响 #

该问题确实和系统区域设置有关。当系统区域的日期、时间默认格式和你写的yyyy-mm-dd hh:mm:ss规则不匹配时，Format函数会自动适配系统规则输出文本，而A1的单元格自定义格式不会受该影响，二者表现自然不同。

正确实现方案 #

如果你需要单元格既按指定格式显示，又保留可计算的日期属性，统一使用「先赋值日期值，再设置单元格格式」的逻辑即可，不要用Format转文本后赋值，避免出现文本无法计算、显示受系统影响的问题。

内容的提问来源于stack exchange，提问作者Rayearth