在文本框中输入一个日期，怎样把它变为相应的日期型？

Question

在文本框中输入一个日期，怎样把它变为相应的日期型？
如输入2003-10-16 变为日期型。

Answer 1

dim mydate as date
mydate=cdate(text1.text)

Answer 2

dim MyDate as date 
if not isdate(text1.text) then
    msgbox "输入应为时间格式！",vbokonly,"提示"
else
    MyDate=cdate(text1.text)
end if

Answer 3

同意楼上和楼上的楼上，
用CDATE函数

Answer 4

text1.text=format(text1.text,"yyyy-mm-dd")

Answer 5

文本中输入日期是个很不好的方法，输错了校验起来很麻烦的，例如润年，润月的处理，还不如用VB自带的控件DTPicker，引用部件－windows common controls-2 6.0 !很方便的就可以选择日期了！希望对你有帮助

Answer 6

format 函数
很强的，看msdn