新手问题!!!!!麻烦帮一下忙!!

Question

我想利用inputbox来输入时间(输入格式yy:xx:zz),然后再利用time把输入的时间和系统时间对比,如果一样就响玲

Answer 1

Option ExplicitDim strTime As StringPrivate Sub Command1_Click()
    strTime = InputBox("输入时间,格式为:00:00:00", "输入")
    If Not IsDate(strTime) Then
        MsgBox "时间格式不正确"
        Exit Sub
    End If
    Timer1.Enabled = True
End SubPrivate Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 10000
End SubPrivate Sub Timer1_Timer()
    If Time = strTime Then
        Timer1.Enabled = False
        Beep
    End If
End Sub