用一个文本框控件,和一个命令按钮,当往文本框输入的是00:00(小时,分钟)时间格式时,点按钮会出现一个msg显示格式正确,反之显示格式错误。
或者是编写的一个输入时间小时,分钟(下拉列表那种,象注册信息填生日那种,00:00,小时是从0到23,分钟是从0到59)的控件也行。
谢谢了!
可以用format()函数判text中的时间是否正确,用来确定是否显示提示框
Private Sub command1_click() Dim str As String str = Format(Text1.Text, "hh:mm") If IsDate(str) Then MsgBox "时间格式显示正确" End If
End Sub