VB中怎么把TEXT文本中的数据类型设置成时间字段
只能输入时间,输入别的就提示错误。我记得时间是可以加减的我想设置3个TEXT文本在TEXT1.TEXT输入启始时间在TEXT2.TEXT中输入结束时间单击按钮TEXT3....
只能输入时间,输入别的就提示错误。
我记得时间是可以加减的
我想设置3个TEXT文本
在TEXT1.TEXT输入启始时间
在TEXT2.TEXT中输入结束时间
单击按钮
TEXT3.TEXT显示时间差(共用了多少小时多少分钟,
即text2-text1的结果) 展开
我记得时间是可以加减的
我想设置3个TEXT文本
在TEXT1.TEXT输入启始时间
在TEXT2.TEXT中输入结束时间
单击按钮
TEXT3.TEXT显示时间差(共用了多少小时多少分钟,
即text2-text1的结果) 展开
展开全部
窗体中画三个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 函数,判断是否数字
至于还有没判断字符、字符串我的就不知道了
让“间隔时间”对应的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 函数,判断是否数字
至于还有没判断字符、字符串我的就不知道了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询