Question

vb date类型赋值

这个代码是怎么运行的，为什么我n 取 12 结果是1900 01 11 不懂
Dim testdata As Date
n = InputBox("请输入")
testdata = CDate(n)
Print testdata

Answer 1

CDate 有多种重载方法。

如果 n 是符合 yyyyDDmmHHmmss 这种任意日期时间格式的（常见的有“2012-04-25 12:51:32”，"April 22, 2001" 等等，很多，不一一列举了），那么将直接得到这个日期或时间。

如果 n 是一个整数，那么代表从 1899年12月31日 开始计算后的第 n 天的日期。题主这里输入了 12，那么从 1899年12月31日 开始计算 12 天，即是 1900年1月11日。

如果 n 是一个小数，表示从 00:00:00 开始几段后的第 n 分钟的时间。比如 CDate(4.5) 会得到 "04:05:00" 这样的时间。

Answer 2

这段代码作用是，将用户输入的字串转换为年月日的显示格式，
你输入12，不符合日期数据格式，结果显示VB默认的日期 1900年01月01日，
若你输入符合日期数据格式的内容的内容，例如 2014,06,24 （三组数据用逗号隔开）
则显示2014/6/24

Answer 3

我以前也遇到了你的这种问题，简单的很。
如果你定义的是日期类型，那么
mon=now(text1)
就是把text1里面的字符串变成日期，返回给日期型变量mon。
还要注意你的日期格式的合法性。
哇，怎么又是2012年，靠