Sub look_now_time()
Dim now_time As Date
now_time = Now
now_time = Format(now_time, "HH:mm:ss")
If now_time = "23:00:00" Then
Call something
End If
End Sub
为什么这样不行
...全文
1054打赏收藏
怎么样比较时间???
我测出现在系统的时间,然后跟一个给定的时间比较,但相等时就做某件事: Sub look_now_time() Dim now_time As Date now_time = Now now_time = Format(now_time, "HH:mm:ss") If now_time = "23:00:00" Then Call something End If End Sub 为什么这样不行