共4 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]如何实现每天15:00收盘时执行一个动作？

1楼

z7c9 发表于：2011/1/23 14:19:54

application.setTimer是每隔多长时间执行一个动作，如何实现在一个具体时间执行一个动作？

2楼

wjm3333 发表于：2011/1/24 7:06:28

这个就行

Sub APPLICATION_Timer(ID)
    dim h_time
    dim m_time
    dim s_time
    h_time = Hour(Now)
    m_time = Minute(Now)
    s_time = Second(Now)
    If h_time = 14 and m_time = 57 and s_time = 00 then
        CreateObject("SAPI.SpVoice").Speak "马上收盘了！！！快准备平仓！！！ "
    End if
End Sub

3楼

z7c9 发表于：2011/1/24 8:41:32

以下是引用wjm3333在2011-1-24 7:06:28的发言：

这个就行

呵呵，这种方式想到过，问题是间隔多长时间触发一次，时间过短的话，实在太影响效率了。不过实在不行，也只能这样了。最好提供一个类似vba里ontime这样的机制。

4楼

阿火发表于：2011/1/24 9:14:32

设置定时器，定时的时间：收盘时间-现在时间

Sub APPLICATION_Timer(ID)
………'要执行的代码

application.killtimer (把定时器取消)

End Sub

共4 条记录, 每页显示 10 条, 页签: [1]