10%涨停价的精准算法源码

ZTA:=1.1*REF(C,1);
 ZTB:=INTPART(ZTA*1000);
 ZTC:=INTPART(ZTA*100)*10;
涨停价:IF(ZTB-ZTC>=5,CEILING(ZTB/10)/100,ZTC/1000);

以上源码，是按照涨停价的原则，经过四舍五入判断的。
 有些坛友公布的，似乎没有上述的过程，这样就不够精准了。

将自己的源码分享一下，希望对研究涨停或者涨停相关的坛友有所帮助
 因为只是一段过程代码，所以直接分享源码了，希望不违规