Question

VB text赋值给date类型

最近做了个倒记时,原来是直接在程序代码中设定日期,现在改为通过输入日期数据到数据库,再把日期整理成如下到TEXT中我的想法是把TEXT中的这个日期提出来,和当前时间运算,tm和mon都是定义的date类型,唯一text中的这个日期提出来和date不匹配,,怎么把这个日期赋给mon呢?找了好多代码都不行

Answer 1

If IsDate(Text1.Text) Then
mon = CDate(Text1.Text)
Else
MsgBox "输入的日期格式有误！请重新输入"
Text1.SetFocus
End If