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

只能输入时间,输入别的就提示错误。我记得时间是可以加减的我想设置3个TEXT文本在TEXT1.TEXT输入启始时间在TEXT2.TEXT中输入结束时间单击按钮TEXT3.... 只能输入时间,输入别的就提示错误。
我记得时间是可以加减的
我想设置3个TEXT文本
在TEXT1.TEXT输入启始时间
在TEXT2.TEXT中输入结束时间
单击按钮
TEXT3.TEXT显示时间差(共用了多少小时多少分钟,
即text2-text1的结果)
展开
 我来答
长大了有毛毛
2007-08-19 · TA获得超过147个赞
知道答主
回答量:163
采纳率:0%
帮助的人:124万
展开全部
窗体中画三个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 函数,判断是否数字
至于还有没判断字符、字符串我的就不知道了
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式