如何查找这样的记录

zhugetang

这是一张汇率(小时图)的一天走势图.红线代表开盘价.绿线叫成交价1,黄线叫成交价2.
成交价1=开盘价+执行值
成交价2=开盘价-执行值
执行值 是一个固定赋于的值(假如为40)
我想知道第一次接触到成交价2的那条记录.
也就是说我想找到每天成交价1或成交价2第一次接触到的那条记录.
成交价1>=最高价(中某一条记录) 或 最高价2<=最低价(中某一条记录)
数据名称是这样的(日期,时间,开盘价,最高价,最低价,收盘价)
强调一点是.数据的开盘价是每小时都有的(这里所指的开盘价是每天最早的那个,其他时间的开盘价都不需要的)

请问应该怎么找每天的这条记录

zhugetang

.版本 2
.支持库 spec
.支持库 iext
.支持库 ProgressBar

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

调试输出 (“打开数据库”, 打开 (取运行目录 () ＋ “\GBPUSD1.edb”, , , , , , ))

.子程序 _按钮1_被单击, , 公开
.局部变量 x, 日期时间型, , , 下一条记录的日期
.局部变量 y, 日期时间型, , , 上一条记录的日期
.局部变量 记录号, 整数型, , , 保存的记录号
.局部变量 当前记录号, 整数型, , , 当前记录集号
.局部变量 开盘价, 整数型, , , 当前记录中的开盘价字段
.局部变量 收盘价, 整数型, , , 当前记录中的收盘价字段
.局部变量 a, 整数型, , , 子程序开始执行的时间
.局部变量 b, 整数型, , , 子程序执行结束后的时间
.局部变量 索引, 整数型
.局部变量 执行值, 整数型
.局部变量 成交价1, 整数型
.局部变量 成交价2, 整数型
.局部变量 最高价, 整数型
.局部变量 最低价, 整数型
.局部变量 方向, 文本型
.局部变量 成交价, 整数型

执行值 ＝ 40
a ＝ 取启动时间 ()
超级列表框1.全部删除 ()
到首记录 ()
y ＝ 取日期 (读 (#日期))
最高价 ＝ 读 (#最高价) × 10000
最低价 ＝ 读 (#最低价) × 10000

记录号 ＝ 1
.计次循环首 (取记录数 (), )
    跳过 ()
    x ＝ 取日期 (读 (#日期))
    .判断开始 (y ＝ x)

    .默认
        当前记录号 ＝ 取记录号 ()
        跳到 (记录号)
        开盘价 ＝ 读 (#开盘价) × 10000
        跳到 (当前记录号 － 1)
        收盘价 ＝ 读 (#收盘价) × 10000
        成交价1 ＝ 开盘价 ＋ 执行值
        成交价2 ＝ 开盘价 － 执行值

        .如果真 (成交价1 ≥ 最高价)
            成交价 ＝ 成交价1
        .如果真结束
        .如果真 (成交价2 ≤ 最低价)
            成交价 ＝ 成交价2
        .如果真结束

        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 到文本 (y))  ' 显示日期
        超级列表框1.置标题 (索引, 1, 到文本 (开盘价))  ' 显示第一条记录，即开盘价
        超级列表框1.置标题 (索引, 2, 到文本 (成交价1))
        超级列表框1.置标题 (索引, 3, 到文本 (成交价2))
        超级列表框1.置标题 (索引, 4, 到文本 (收盘价))  ' 显示最后一条记录，即收盘价.
        超级列表框1.置标题 (索引, 5, 到文本 (取小时 (读 (#时间))) ＋ “时” ＋ 到文本 (取分钟 (读 (#时间))) ＋ “分”)
        超级列表框1.置标题 (索引, 6, 到文本 (成交价))
        记录号 ＝ 当前记录号
        跳到 (当前记录号)
        y ＝ 取日期 (读 (#日期))

    .判断结束
    .如果真 (尾记录后 ())
    .如果真结束
    处理事件 ()
.计次循环尾 ()
b ＝ 取启动时间 ()
水晶进度条1.文本 ＝ “共用时间：” ＋ 到文本 (b － a) ＋ “毫秒”
调试输出 (“over”)

zhugetang

.这段代码中,开盘价和收盘价是正确的.但找到的开始时间不正确

zhugetang

回复 3# zhugetang


已经解决了

huomu

高分积压问题，版主手工提升中……1021696

qw39537987

我来学习一下！！

dag562775946

炒股的软件？

kalpoask

{:3_238:}来看看！

hyflogo

看过  嘻嘻··.......