Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Date + Time
End Sub
坚持不一定胜利,但放弃就一定失败!
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Date + Time
End Sub
2007-10-28 11:06
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Date + Time
End Sub
我试过可以的！
2007-10-28 11:07
哥们不好意思，我没看清楚，你要的格式是xx时xx分，其实用tanghuawei的Text1.Text = Date & " " & Format(Time, "hh:mm")就可以了！
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
-----------------------------------------------------------------
Private Sub Timer1_Timer()
Text1.Text = Date & " " & Format(Time, "hh:mm")
End Sub
[此贴子已经被作者于2007-10-28 11:14:12编辑过]
2007-10-28 11:13