步步汇盈

标题: 财务主图 [打印本页]

作者: dalianhaizao 时间: 2013-5-27 12:34
标题: 财务主图
DRAWGBK(v>1,colorRGB(10,160,0),colorRGB(25,15,0),70);
S:=('股票代码：' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorCCFFFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((((((((((((((((((((((((' 所属板块:' + BLKNAME) + '\n') + '发行价') + NUMTOSTR(FINANCE(51),2)) + '元') + ' 发行量') + NUMTOSTR(FINANCE(52),2)) + '万股') + '\n') + '总股本') + NUMTOSTR(FINANCE(1),0)) + '万股') + ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '万股') + ' 净资产') + NUMTOSTR(FINANCE(35),2)) + '亿元') + ' 每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') + '市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投资收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股东总数') + NUMTOSTR(FINANCE(50),0)) + '户')),ALIGN4,colorFF00;
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=sysparam(1);
str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];
explain(barpos=p,str1),colorRED;
DRAWTEXT(barpos=p,H*1.12,str1),ALIGN2,coloryellow,;

作者: 画虎ETF 时间: 2013-6-15 08:34
这东西有用，谢谢

作者: nbhuang 时间: 2013-7-3 13:17
哪个软件？飞狐么？

作者: jamwings 时间: 2013-9-17 16:11
这东西好用

作者: lijian_wl_18 时间: 2014-1-15 18:23
路过，学习。。。。

作者: w99906521 时间: 2014-1-16 17:13
提示: 作者被禁止或删除内容自动屏蔽

作者: 78554444 时间: 2023-6-23 13:31
谢谢楼主分享

欢迎光临步步汇盈 (http://bbs.58851.com/)