Question

VB.net代码问题，请看下列代码，能运行，但是只有上午才能运行，下午就不显示对话框了，请问是为什么？

画面添加textbox1 timer1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
TextBox1.Text = "2011/12/07 10:35:00"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If IsDate(TextBox1.Text) = True Then
Timer1.Start()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Format(Now, "yyyy/MM/dd hh:mm:ss") = TextBox1.Text Then
MsgBox("It's time to go")
Timer1.Stop()
End If
End Sub

Answer 1

日期格式不对,下午肯定不行.应该:
Format(Now, "yyyy/MM/dd HH:mm:ss") = TextBox1.Text

采用日期进行比较更安全:
TextBox1.Text = Format(Now, "yyyy/MM/dd HH:mm:ss")

If Now = Date.Parse(TextBox1.Text) Then
MsgBox("It's time to go")
Timer1.Stop()
End If

追问

我用的你这个代码，可是必须要在里边改点开始计时时，到时间也不弹对话框

追答

什么意思,没看明白

你可能没仔细看我的代码,你上午行下午不行的主要原因是因为你的日期格式不对,你采用了12小时制的日期格式,要把代表小时的hh改成HH,即24小时制才保证上下午都不会出错

Answer 2

这是一个定时程序啊,是要测试timer控件吗.
TextBox1.Text = "2011/12/07 10:35:00"
这句的时间是上午,肯定就不会运行了!
改一下就好!

Answer 3

而且只有当时间为TextBox1.Text = "2011/12/07 10:35:00"时才会弹出对话框。
明白问题所在了吗？

追问

做成之后可以在textbox里改时间，改成什么时候，然后到那个时间就弹出对话框，上午试的好好地，就到下午就不管用了。。

追答

改一下这行代码
If cdate(Format(Now, "yyyy/MM/dd hh:mm:ss")) = cdate(Format(TextBox1.Text, "yyyy/MM/dd hh:mm:ss")) Then

追问

出现异常，从yyyy/MM/dd hh:mm:ss到Date的强制转化无效

追答

应该是cdate(Format(TextBox1.Text, "yyyy/MM/dd hh:mm:ss")) 可能会出现这样的错误。
你要确保在文本框中输入的内容是日期格式的呀。
或在这行代码前加行代码来判断是否输入的是日期即
if isdate(textbxo1.text) then
If cdate(Format(Now, "yyyy/MM/dd hh:mm:ss")) = cdate(Format(TextBox1.Text, "yyyy/MM/dd hh:mm:ss")) Then
MsgBox("It's time to go")
Timer1.Stop()
End If
end if