vb输入一个时间判定上下午的操作步骤
答案:1 悬赏:30 手机版
解决时间 2021-12-02 23:42
- 提问者网友：心如荒岛囚我终老
- 2021-12-02 14:01
vb输入一个时间判定上下午的操作步骤
最佳答案
- 五星知识达人网友：woshuo
- 2021-12-02 14:26
Private Sub cmdJudge_Click()
If txtTime.Text = "" Then
MsgBox "请输入一个时间！"
Else
If (Val(Left(txtTime.Text, 2)) > 24 Or Val(Left(txtTime.Text, 2)) < 0) Or Len(txtTime.Text) <> 5 Or (Val(Right(txtTime.Text, 2)) > 59 Or Val(Right(txtTime.Text, 2)) < 0) Then
MsgBox "你输出的时间是非法的！"
Else
If Val(Left(txtTime.Text, 2)) >= 0 Or Val(Left(txtTime.Text, 2)) <= 11 Then
MsgBox "你输入的时间是上午！"
Else
MsgBox "你输入的时间是下午！"
End If
End If
End If
End Sub
If txtTime.Text = "" Then
MsgBox "请输入一个时间！"
Else
If (Val(Left(txtTime.Text, 2)) > 24 Or Val(Left(txtTime.Text, 2)) < 0) Or Len(txtTime.Text) <> 5 Or (Val(Right(txtTime.Text, 2)) > 59 Or Val(Right(txtTime.Text, 2)) < 0) Then
MsgBox "你输出的时间是非法的！"
Else
If Val(Left(txtTime.Text, 2)) >= 0 Or Val(Left(txtTime.Text, 2)) <= 11 Then
MsgBox "你输入的时间是上午！"
Else
MsgBox "你输入的时间是下午！"
End If
End If
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯