编当天收盘价小数点前整数之和与小数点后几位数之和公式

比如：某股今天收盘价为：13.89；此为易经选股用。
上卦为：1+3=4；下卦为：8+9=17；
 

 

xiaos:=FRACPART(c)*100;
zhengs:=INTPART(c);
CP1:=STRTONUM(STRMID(NUMTOSTR(zhengs,0),1,1));
CP2:=STRTONUM(STRMID(NUMTOSTR(zhengs,0),2,1));
CP3:=STRTONUM(STRMID(NUMTOSTR(zhengs,0),3,1));
CP4:=STRTONUM(STRMID(NUMTOSTR(xiaos,0),1,1));
CP5:=STRTONUM(STRMID(NUMTOSTR(xiaos,0),2,1));
上卦:CP1+CP2+CP3,LINETHICK0;
下卦:CP4+CP5,LINETHICK0;