今天无意间在网上看到涨幅排名的源码，觉得不错，贴出来大家看看
可以加到行情里据此排序
希望老师们改进让他更完美
如果侵犯了了网友的版权，站内短信请告知我，谢谢
先建立第一个公式，名称是：引用涨幅
A:DYNAINFO(14);
第二个公式：名称是：板块涨幅排名{只能是4个汉字，大智慧真垃圾}
x1:=15 ; x2:=210; x3:=405; x4:=600; x5:=800; x6:=850;y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
IF STKINDI('1a0001','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(5,9,'上证：' +NUMTOSTRN(STKINDI('1a0001','引用涨幅.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('1a0001','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(5,9,'上证：' +NUMTOSTRN(STKINDI('1a0001','引用涨幅.A')*100,2)+'%'),COLORGREEN;end;
IF STKINDI('993124','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(108,9,'深证：' +NUMTOSTRN(STKINDI('993124','引用涨幅.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993124','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(108,9,'深证：' +NUMTOSTRN(STKINDI('993124','引用涨幅.A')*100,2)+'%'),COLORGREEN;end;
IF STKINDI('991036','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'991036 券 商：' +NUMTOSTRN(STKINDI('991036','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991036','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'991036 券 商：' +NUMTOSTRN(STKINDI('991036','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991028','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,'991028 医 药：' +NUMTOSTRN(STKINDI('991028','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'991028 医 药：' +NUMTOSTRN(STKINDI('991028','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991017','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,'991017 银 行 类：' +NUMTOSTRN(STKINDI('991017','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'991017 银 行 类：' +NUMTOSTRN(STKINDI('991017','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991007','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,'991007 房 地 产：' +NUMTOSTRN(STKINDI('991007','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'991007 房 地 产：' +NUMTOSTRN(STKINDI('991007','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991034','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,'991034 有色金属：' +NUMTOSTRN(STKINDI('991034','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991034','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'991034 有色金属：' +NUMTOSTRN(STKINDI('991034','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991021','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,'991021 农林牧渔：' +NUMTOSTRN(STKINDI('991021','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'991021 农林牧渔：' +NUMTOSTRN(STKINDI('991021','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991035','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,'991035 造纸印刷：' +NUMTOSTRN(STKINDI('991035','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991035','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'991035 造纸印刷：' +NUMTOSTRN(STKINDI('991035','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991018','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991018','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991023','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,'991023 商业连锁：' +NUMTOSTRN(STKINDI('991023','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'991023 商业连锁：' +NUMTOSTRN(STKINDI('991023','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991020','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,'991020 酿酒食品：' +NUMTOSTRN(STKINDI('991020','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991020','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'991020 酿酒食品：' +NUMTOSTRN(STKINDI('991020','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991008','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,'991008 纺织服装：' +NUMTOSTRN(STKINDI('991008','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991008','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'991008 纺织服装：' +NUMTOSTRN(STKINDI('991008','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991006','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,'991006 电子信息：' +NUMTOSTRN(STKINDI('991006','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991006','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'991006 电子信息：' +NUMTOSTRN(STKINDI('991006','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991004','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,'991004 计 算 机：' +NUMTOSTRN(STKINDI('991004','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'991004 计 算 机：' +NUMTOSTRN(STKINDI('991004','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991026','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,'991026 汽 车 类：' +NUMTOSTRN(STKINDI('991026','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991026','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'991026 汽 车 类：' +NUMTOSTRN(STKINDI('991026','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991014','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,'991014 电 器：' +NUMTOSTRN(STKINDI('991014','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991014','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'991014 电 器：' +NUMTOSTRN(STKINDI('991014','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993745','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源：' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源：' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢 铁：' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢 铁：' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建 材：' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建 材：' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机 械：' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机 械：' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤：' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤：' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991002','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991002','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991037','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备：' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991037','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备：' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991032','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒：' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991032','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒：' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991010','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气：' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991010','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气：' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991033','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表：' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991033','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表：' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991136','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流：' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991136','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流：' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991016','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施：' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991016','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施：' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991031','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外 贸：' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991031','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外 贸：' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991003','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电 力：' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991003','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电 力：' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991135','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通 信：' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991135','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通 信：' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993685','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,'9936853 G：' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993685','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'9936853 G：' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993695','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创 投：' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993695','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创 投：' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993095','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥 运：' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993095','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥 运：' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993585','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新 能 源：' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993585','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新 能 源：' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993091','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新 上 海：' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993091','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新 上 海：' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993128','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993128','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头：' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993645','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保：' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993645','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保：' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993665','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工：' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993665','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工：' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
