分享

通达信主图显示财务指标公式

 xrj5857 2018-03-12
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,3)),'亿股');
       流通盘:=STRCAT(STRCAT('流通盘: ',CON2STR(CAPITAL/1000000,3)),'亿股');
       每股收益:=STRCAT(STRCAT('每股收益: ',CON2STR(FINANCE(29)/FINANCE(1),2)),'元');
       每股未分配:=STRCAT(STRCAT('每股未分配: ',CON2STR(FINANCE(32),2)),'元');
       每股公积金:=STRCAT(STRCAT('每股公积金: ',CON2STR(FINANCE(18),2)),'元');
       每股净资产:=STRCAT(STRCAT('每股净资产: ',CON2STR(FINANCE(34),2)),'元');
       总市值:=STRCAT(STRCAT('总市值: ',CON2STR(FINANCE(1)*C/100000000,3)),'亿元');
       市值:=STRCAT(STRCAT('流通值: ',CON2STR((CAPITAL/1000000)*C,3)),'亿元');
       SHI:INTPART(DATE+19000000),NODRAW;
       上市日期:=STRCAT(' 上市日:',CON2STR(SHI,0));
       收入同比增长:=STRCAT(STRCAT('收入同比增长: ',CON2STR(FINANCE(44),2)),'%');
       市盈率:=STRCAT('市盈率: ',CON2STR(DYNAINFO(39),2));
       主营毛利润率:=STRCAT(STRCAT('主营毛利润率: ',CON2STR((FINANCE(20)-            FINANCE(21))/FINANCE(20)*100,2)),'%');
       主营净利润率:=STRCAT(STRCAT('主营净利润率: ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)),'%');
       主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
       净利同比增长:=STRCAT(STRCAT('净利同比增长: ',CON2STR(FINANCE(43),2)),'%');
      { DRAWTEXT_FIX(ISLASTBAR,0.002,0,0,'上市日期:'),COLORMAGENTA;
       DRAWNUMBER_FIX(ISLASTBAR,0.1,0,0,SHI),COLORMAGENTA;
      }
       
       DRAWTEXT_FIX(ISLASTBAR,0.002,0.20,0,总股本),COLORCYAN;
       DRAWTEXT_FIX(ISLASTBAR,0.127,0.20,0,收入同比增长),COLORYELLOW;
       DRAWTEXT_FIX(ISLASTBAR,0.257,0.20,0,每股收益),COLORCYAN;
       
       DRAWTEXT_FIX(ISLASTBAR,0.002,0.25,0,流通盘),COLORCYAN;
       DRAWTEXT_FIX(ISLASTBAR,0.127,0.25,0,主营毛利润率),COLORYELLOW;
       DRAWTEXT_FIX(ISLASTBAR,0.257,0.25,0,每股净资产),COLORCYAN;
       
       DRAWTEXT_FIX(ISLASTBAR,0.002,0.30,0,总市值),COLORCYAN;
       DRAWTEXT_FIX(ISLASTBAR,0.127,0.30,0,主营净利润率),COLORYELLOW;
       DRAWTEXT_FIX(ISLASTBAR,0.257,0.30,0,每股未分配),COLORCYAN;
       
       DRAWTEXT_FIX(ISLASTBAR,0.002,0.35,0,市值),COLORCYAN;
       DRAWTEXT_FIX(ISLASTBAR,0.127,0.35,0,净利同比增长),COLORYELLOW;
       DRAWTEXT_FIX(ISLASTBAR,0.257,0.35,0,每股公积金),COLORCYAN;
       
       DRAWTEXT_FIX(ISLASTBAR,0.002,0.40,0,市盈率),COLORCYAN;
       
       HSL:=100*VOL/(FINANCE(7)/100);
       换手:=STRCAT(STRCAT('换手: ',CON2STR(HSL,2)),'%');
       DRAWTEXT_FIX(ISLASTBAR,0.127,0.40,0,换手),COLORMAGENTA;
       CJ:=DYNAINFO(10)/100000000;
       成交:=STRCAT(STRCAT('成交: ',CON2STR(CJ,2)),'亿');
       DRAWTEXT_FIX(ISLASTBAR,0.257,0.40,0,成交),COLORMAGENTA;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约