2008-1-31 11:30
狐狸
使用千钧扩展数据的一段源码(动态资金进出)
[code]variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
DRAWTEXTex(c,1,10,5,'版块:'+ BLKNAME+'\n');
BB:=BARPOS=SYSPARAM(1);
p:=SYSPARAM(1);
DRAWTEXTex(c,1,10,50,
'\n\n收益:'+ NUMTOSTR(FINANCE(33),2)+'\n'
+'净资:'+NUMTOSTR(FINANCE(34),2 )+'\n'
+'流通:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+'\n'
+'流通:'+NUMTOSTR(FINANCE(7)/FINANCE(1)*100 ,0)+' %'+'\n'
+'权益:'+NUMTOSTR(FINANCE(36),0 )+' %'+'\n'
+'主营:'+NUMTOSTR(FINANCE(53),0 )+' %'+'\n'
+'利润:'+NUMTOSTR(FINANCE(54),0 )+' %'+'\n'
+'主营:'+NUMTOSTR(FINANCE(20)/10000,1 )+'亿'+'\n'
),COLORccffcc;
机构:=EXTDATA(9);
券商:=EXTDATA(10);
大户:=EXTDATA(11);
中户:=EXTDATA(12);
散户:=EXTDATA(13);
DRAWTEXTex(c,1,10,550,
numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日,'+wday[wd[p]+1]+'\n'+
'----------------\n'+
'机构:'+NUMTOSTR(机构[p],0)+'手\n'+
'券商:'+NUMTOSTR(券商[p],0)+'手\n'+
'大户:'+NUMTOSTR(大户[p],0)+'手\n'+
'中户:'+NUMTOSTR(中户[p],0)+'手\n'+
'散户:'+NUMTOSTR(散户[p],0)+'手\n'+
'----------------\n'+
'主力:'+NUMTOSTR(机构[p]+券商[p]+大户[p],0)+'手\n'+
'中小散:'+NUMTOSTR(中户[p]+散户[p],0)+'手\n'+
'买卖总数:'+NUMTOSTR(机构[p]+券商[p]+大户[p]+中户[p]+散户[p],0)+'手\n'+
'资金进出:'+NUMTOSTR((机构[p]+券商[p]+大户[p]+中户[p]+散户[p])*C/100,0)+'万元\n'),COLORyellow;[/code]