返回列表 上一主題 發帖

DDE 擷取分鐘最高最低

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2013-6-24 13:54 | 顯示全部帖子
回復 11# vzcen
回復 9# GBKEE

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2013-6-25 05:29 | 顯示全部帖子
本帖最後由 c_c_lai 於 2013-6-25 05:34 編輯

回復 15# vzcen
基本上，時間是會以每分鐘持續地記錄的，因為程式啟動後 Calculate 會不停地掃描。
此時，如果電腦另開啟了別的應用軟體 (耗用資源大)在運作而占據了 CPU ，那麼是會
有所影響的，或者是又同時開啟瞭一個以上的 Excel 檔等，亦會有所影響。
個人是常碰到類似相關問題 (券商DDE連線品質、電腦運作環境等)  ， 純供參考。

P.S： 答覆對方時請點選 "回復" 選鈕，否則當事人會不知你有否回復，點按 "回復" 亦是一種禮貌。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2013-6-27 06:54 | 顯示全部帖子
本帖最後由 c_c_lai 於 2013-6-27 06:55 編輯
回復  GBKEE
回復  c_c_lai

感謝強者版大們不吝的指導 原來DDE是這樣時間才無法接續
那想請教版大們 ...
vzcen 發表於 2013-6-26 00:34

1. 試試看便知曉！ (因你是跨日的， 所以條件須為 (條件1 And 條件2))
  1. Sub Test()
  2.     If Weekday(Date, vbMonday) > 6 Or (#9:00:00 PM# < #9:00:00 PM# And #9:00:00 PM# > #2:00:00 AM#) Then Exit Sub
  3.     '  If Weekday(Date, vbMonday) > 6 Or (#8:00:00 PM# < #9:00:00 PM# And #8:00:00 PM# > #2:00:00 AM#) Then Exit Sub
  4.    '  If Weekday(Date, vbMonday) > 6 Or (#12:00:00 AM# < #9:00:00 PM# And #12:00:00 AM# > #2:00:00 AM#) Then Exit Sub
  5.     '   If Weekday(Date, vbMonday) > 6 Or (#12:10:00 AM# < #9:00:00 PM# And #12:10:00 AM# > #2:00:00 AM#) Then Exit Sub
  6.    MsgBox "It's OK!"
  7. End Sub
複製代碼
2. 31行 的修改是 OK 可行的!

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題