Public Sub MaxAndNumeric(txt As TextBox, x As Boolean)
If IsNumeric(txt) = False Or txt.Text = "" Then '判断输入是否为数值,是否为空
txt.Text = ""
Exit Sub
End If
If x = True Then
If Int(Val(txt.Text)) > 59 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-59之间
txt.Text = ""
End If
ElseIf x = False Then
If Int(Val(txt.Text)) > 24 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-24之间
txt.Text = ""
End If
End If
End Sub
If IsNumeric(txt) = False Or txt.Text = "" Then '判断输入是否为数值,是否为空
txt.Text = ""
Exit Sub
End If
If x = True Then
If Int(Val(txt.Text)) > 59 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-59之间
txt.Text = ""
End If
ElseIf x = False Then
If Int(Val(txt.Text)) > 24 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-24之间
txt.Text = ""
End If
End If
End Sub