tb为何频繁退出

顺势顺心

顺势顺心

运行了如下代码：
Begin
mydectime(CurrentTime,A_OpenOrderTime);

Commentary("currtime="+text(CurrentTime)+" ordert="+text(A_OpenOrderTime));
Commentary(" mydectime="+text(mydectime(CurrentTime,A_OpenOrderTime)));
End

lh948

mydectime这里面跑的什么代码？

顺势顺心

ｍｙｄｅｃｔｉｍｅ：计算两个时间的秒差
//------------------------------------------------------------------------
// 简称: MyDecTime
// 名称: 计算两个时间相差的秒数
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------

Params
        Numeric MyTime1; //如0.143059
        Numeric MyTime2;

Vars
        Numeric MyHH1;
        Numeric MyMM1;
        Numeric MySS1;
        Numeric MyHH2;
        Numeric MyMM2;
        Numeric MySS2;

Begin
        MyHH1 = IntPart(MyTime1*100);
        MyMM1 = IntPart(MyTime1*10000)-MyHH1*100;
        MySS1 = MyTime1*1000000-MyHH1*10000-MyMM1*100;
        MyHH2 = IntPart(MyTime2*100);
        MyMM2 = IntPart(MyTime2*10000)-MyHH2*100;
        MySS2 = MyTime2*1000000-MyHH2*10000-MyMM2*100;
        Return MyHH1*3600 + MyMM1*60 + MySS1 - MyHH2*3600 - MyMM2*60 - MySS2;
End



//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2010/09/03 09:44
// 版权所有        shunshisx
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

lh948

检查一下公式，哪里计算出错了导致软件崩溃的