[已解决]请问如何表示今天的日期

1982zyh

Sub test()
Dim today As Date
today = Format(Now(), yyyy - mmm - dd)
End Sub

today来表示今天的日期，以前没注意，现在发现一个问题， 用以上代码表示感觉有四舍五入，比如今天是2012-11-27，但是现在运行这段代码显示就是2012-11-28。
现在只想到分时段来cover，请问还有其它解决办法吗？

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-27 22:09

你忘掉了应该加双引号。形如today = Format(Now(), "yyyy - mmm - dd")

可能是你的模块未强制声明变量，所以系统错误的理解你的意图，认为yyyy,mmm,dd都是变量。没有赋值的变量相减得到0。所以系统按today = Format(Now(), 0)处理，即将结果转为不含小数的数值，所以才有舍入。

跳转到最佳答案楼层

爱疯

你忘掉了应该加双引号。形如today = Format(Now(), "yyyy - mmm - dd")

可能是你的模块未强制声明变量，所以系统错误的理解你的意图，认为yyyy,mmm,dd都是变量。没有赋值的变量相减得到0。所以系统按today = Format(Now(), 0)处理，即将结果转为不含小数的数值，所以才有舍入。

1982zyh

谢谢