怎么指定一個時間執行某個作業用if...then
uj5u.com熱心網友回復：
放一個定時器，設定Enabled=true。Interval為一個非0的數字。撰寫如下代碼：
Private b As Boolean
Private Sub Timer1_Timer()
If Now > 某個時間 And Not(b) Then
b = True '做過了就不做了
做某事
End If
End Sub
uj5u.com熱心網友回復：
那個時間格式是什么（要加日期uj5u.com熱心網友回復：
時間 = #1/30/2014 14:07 PM#uj5u.com熱心網友回復：
參考MSDN中的：CDate 函式示例
本示例使用 CDate 函式將字串轉換成 Date。一般說來，字串格式的日期與時間硬編碼（如示例中所示）并不好。較好的做法是使用日期原義運算式和時間的原義運算式（如 #2/12/1969#，#4:45:23 PM#）。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定義日期。
MyShortDate = CDate(MyDate) ' 轉換為 Date 資料型別。
MyTime = "4:35:47 PM" ' 定義時間。
MyShortTime = CDate(MyTime) ' 轉換為 Date 資料型別。
uj5u.com熱心網友回復：
這樣子為什么不行，應該怎么弄
uj5u.com熱心網友回復：
去掉引號。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
逗號改為半角。，
=>
,
uj5u.com熱心網友回復：
If Now() = Format(CDate("2014-01-07 16:32:00"), "yyyy-mm-dd hh:mm:ss") Then image2.Visible = True可以定時到具體多少秒
uj5u.com熱心網友回復：
其實不用那么麻煩。對比字串就可以了。設定一個Timer控制元件，每秒執行一次。
If Now = "2014/2/3 星期一 21:31:40" Then
MsgBox "ASd"
End If
uj5u.com熱心網友回復：
strDate = "2014-2-6 22:58:40 下午"
If DateDiff("s", CDate(Format(strDate, "yyyy-mm-dd Hh:Nn:Ss")), Now) >= 0 Then
MsgBox "時間到"
End If
uj5u.com熱心網友回復：
比較日期時間文本就可以咯 不用那么復雜吧uj5u.com熱心網友回復：
時鐘,每秒判斷...uj5u.com熱心網友回復：
If Now >= "2014-01-30 16:30" Then
Image2.visible = True
Form2.Show
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129688.html
標籤：VB基礎類