Question

VB中怎么把TEXT文本中的数据类型设置成时间字段

只能输入时间，输入别的就提示错误。
我记得时间是可以加减的
我想设置3个TEXT文本
在TEXT1.TEXT输入启始时间
在TEXT2.TEXT中输入结束时间
单击按钮
TEXT3.TEXT显示时间差（共用了多少小时多少分钟，
即text2-text1的结果）

Answer 1

窗体中画三个LABEL，三个TEXTBOX，属性不改，输入开始时间和结束时间后
让“间隔时间”对应的TEXTBOX得到焦点就可以计算出间隔时间

Private Sub Form_Load()
Text1 = "": Text2 = "": Text3 = ""
Label1.Caption = "开始时间": Label2.Caption = "结束时间": Label3.Caption = "间隔时间"
End Sub

Private Sub Text3_GotFocus()
If IsDate(Text1.Text) = False Then
MsgBox "请输入正确格式的开始时间"
Text1 = ""
Text1.SetFocus
ElseIf IsDate(Text2.Text) = False Then
MsgBox "请输入正确格式的结束时间"
Text2 = ""
Text2.SetFocus
Else
Dim BTIME As Date: Dim ETIME As Date
BTIME = CDate(Text1.Text)
ETIME = CDate(Text2.Text)
Text3 = Int(DateDiff("N", BTIME, ETIME) / 60) & ":" & DateDiff("N", BTIME, ETIME) Mod 60
End If
End Sub

计算时间差的函数为DATEDIFF（）有参数的，而且不同的参数有不同的返回值，我这里就不给你解释了，你搜一下吧，很多的

IsDate 函数
返回 Boolean 值指明某表达式是否可以转换为日期。
IsDate(expression)
expression 参数可以是任意可被识别为日期和时间的日期表达式或字符串表达式。
类似的还有IsNumeric 函数，判断是否数字
至于还有没判断字符、字符串我的就不知道了