判断行情超过多长时间没有更新！ [金字塔]
- 咨询内容：
使用股指最新行情的时间跟现在的时间比较，超过30秒就提醒。
Sub APP1 Set Report1=MarketData.GetReportData("IF00","ZJ") StockTime=Report1.Date TimeSpace=DateDiff("s",Cdate(Now),StockTime)
if abs(TimeSpace)>30 then Application.MsgOut "请注意，行情数据已经超过30秒没有更新了！" Exit Sub end ifEnd Sub
- 金字塔客服：
Sub APP1
Set Report1=MarketData.GetReportData("IF00","ZJ")
StockTime=Report1.Date
TimeSpace=DateDiff("s",Cdate(Now),StockTime)
if abs(TimeSpace)>30 then Application.MsgOut "请注意，行情数据已经超过30秒没有更新了！" Exit Sub end if End Sub - 用户回复：
guotx2010斑主~~~这个,是VBA代码么???可以用金字塔的一般公式代码代替么?比如转成金字塔的一般公式代码该如何弄呢,请教一下斑主啊
- 网友回复：
如果还用pel语言，可以是使用time和currenttime来比较，time是行情k线位置的时间，currenttime是计算机当前时间，这两个时间对比，可以达到类似的效果。
- 网友回复： guotx2010斑主~~~逻辑上是这样没错啊,可是关键是,currenttime这个取本地计算机时间的函数,需要有行情数据进来时才会步进的!!!也就是说,如果没有行情数据,currenttime是取得最后一笔数据的本地计算机时间,然后,就不会动了!!!所以,就没得比较,也就不可能达到目的 [此贴子已经被作者于2013/7/12 14:09:14编辑过]
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册