雪魔女 张琴版剧情:{鹏博F10每股收益}

来源：百度文库 编辑：偶看新闻 时间：2024/05/10 02:54:48
  1. {鹏博F10每股收益}
  2. VARIABLE:SJA[5]='str',SYA[5]='str',TTA=1;
  3. jdgA:=F10FIND('主要指标',50),LINETHICK;
  4. SJTA:=F10TEXT(F10FIND(' │',jdgA)+3,50);
  5. SJA[1]:=STRLEFT(SJTA,8);
  6. SJA[2]:=STRMID(SJTA,11,8);
  7. SJA[3]:=STRMID(SJTA,10*2+1,8);
  8. SJA[4]:=STRMID(SJTA,10*3+1,8);
  9. SJA[5]:=STRMID(SJTA,10*4+1,8);
  10. jdg0:=F10FIND('每股收益(元)',jdgA),LINETHICK;
  11. SYTA:=F10TEXT(jdg0,70);
  12. SYTA:=STRRIGHT(SYTA,69-STRFIND(SYTA,'│ ',12));
  13. SYA[1]:=STRLEFT(SYTA,8);
  14. FOR j=1 TO 5 DO BEGIN
  15.     SYA[j]:=STRMID(SYTA,TTA,8);
  16.     TTA:=TTA+10;
  17. END;
  18. 最新:STRTONUM(SYA[1]),PRECISION4,LINETHICK;
  19. 上:STRTONUM(SYA[2]),PRECISION4,LINETHICK;
  20. 三:STRTONUM(SYA[3]),PRECISION4,LINETHICK;
  21. 四:STRTONUM(SYA[4]),PRECISION4,LINETHICK;
  22. 五:STRTONUM(SYA[5]),PRECISION4,LINETHICK;
  23. 增长1:(最新/上-1)*100,LINETHICK;
  24. //DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJTA);
  25. DRAWTEXT(SYSPARAM(2)=BARPOS,15,'最新日期：'+SJA[1]);

  27. VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
  28. jdg:=F10FIND('财务指标-每股指标:',6000),LINETHICK;
  29. IF jdg=-1 then EXIT;
  30. SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
  31. SJ[1]:=LTRIM(STRMID(SJT,14,10));
  32. FOR i=1 TO 4 DO BEGIN
  33.     TMP:=STRFIND(SJT,'  │',1);
  34.     SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));
  35.     SJT:=LTRIM(STRMID(SJT,TMP+2,0));
  36. END;
  37. WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);

  39. SYT:=F10TEXT(F10FIND('每股收益(元)',jdg)+6,70);
  40. SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));
  41. SY[1]:=STRLEFT(SYT,6);
  42. SY[2]:=LTRIM(STRMID(SYT,14,8));
  43. SY[3]:=LTRIM(STRMID(SYT,14*2,8));
  44. SY[4]:=IF(WT,LTRIM(STRMID(SYT,14*3,8)),'');

  46. 一期:STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;
  47. 二期:STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;
  48. 三期:STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;
  49. 四期:STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;
  50. 增长2:(一期/二期-1)*100,COLORFFFF00,LINETHICK;

  52. IF WT=1 THEN BEGIN
  53.    SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));
  54.    SJ[5]:=STRLEFT(SJT1,8);
  55.    SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));
  56.    SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));
  57.    SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));

  59.    SYT1:=F10TEXT(F10FIND('每股收益(元)',jdg+700)+24,50);
  60.    SY[5]:=STRLEFT(SYT1,6);
  61.    SY[6]:=LTRIM(STRMID(SYT1,14,8));
  62.    SY[7]:=LTRIM(STRMID(SYT1,14*2,8));
  63.    SY[8]:=LTRIM(STRMID(SYT1,14*3,8));

  65.    去年:STRTONUM(SY[5]),PRECISION4,LINETHICK;
  66.    前年:STRTONUM(SY[6]),PRECISION4,LINETHICK;
  67.    前二:STRTONUM(SY[7]),PRECISION4,LINETHICK;
  68.    前三:STRTONUM(SY[8]),PRECISION4,LINETHICK;
  69. END;

  71. YGS:=F10FIND('业绩预告',50),LINETHICK;
  72. FHS:=F10FIND('最近一次分红',50),LINETHICK;
  73. DRAWTEXT(SYSPARAM(2)+30=BARPOS and YGS>0 AND YGS0,FHS-YGS,58))),COLOR..FFF;
  74. TS:=F10FIND('最新业绩预披露时间',50),LINETHICK;
  75. DRAWTEXT(SYSPARAM(2)+30=BARPOS and TS>0 AND TS0 AND FHS0,YGS-TS,50)))),COLORFFCC;
  76. 4,COLOR;

  78. EXPLAIN(1,'**主要指标**\n'+SJA[1]+'：'+NUMTOSTR(最新,4)+STRRIGHT('   '+NUMTOSTR((最新/上-1)*100,2)+'%',10)),coloryellow;
  79. EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)+STRRIGHT('    '+NUMTOSTR((上/三-1)*100,2)+'%',10)),coloryellow;
  80. EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)+STRRIGHT('    '+NUMTOSTR((三/四-1)*100,2)+'%',10)),coloryellow;
  81. EXPLAIN(1,SJA[4]+'：'+NUMTOSTR(四,4)+STRRIGHT('    '+NUMTOSTR((四/五-1)*100,2)+'%',10)),coloryellow;
  82. EXPLAIN(1,SJA[5]+'：'+NUMTOSTR(五,4)),coloryellow;

  84. EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)+STRRIGHT('    '+NUMTOSTR((一期/二期-1)*100,2)+'%',10)),colorcyan;
  85. EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)+STRRIGHT('    '+NUMTOSTR((二期/三期-1)*100,2)+'%',10)),colorcyan;
  86. EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)+STRRIGHT('    '+NUMTOSTR((三期/if(四期<>0,四期,1)-1)*100,2)+'%',10)),colorcyan;
  87. EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;

  89. EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)+STRRIGHT('    '+NUMTOSTR((去年/前年-1)*100,2)+'%',10)),colorgreen;
  90. EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)+STRRIGHT('    '+NUMTOSTR((前年/前二-1)*100,2)+'%',10)),colorgreen;
  91. EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)+STRRIGHT('    '+NUMTOSTR((前二/前三-1)*100,2)+'%',10)),colorgreen;
  92. EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;
每股收益请问是什么? 什么是每股收益 什么是每股收益扣除 有关每股收益的问题 我国目前平均每股收益是多少 每股收益怎么算啊 每股净资产和每股收益有什么区别 每股收益(摊薄)每股净资产(摊薄)什么意思？如何计算 请问：每股收益和每股利润有什么不同？ 为什么股改除权每股收益不变？ 每股收益 和 股票价格 之间的关系！！！ 一季度每股收益去哪里找????? 每股收益(元) 0.2370 0.7950 0.6070 0.3960 资产置换计入每股收益吗 资产置换是否计入每股收益 每股收益扣除指扣除什么 末期每股收益和一季,中期,三季的每股收益是什么关系? 年每股收益和第四季度每股收益有区别吗? 求2001-2004年深、沪市的平均每股收益。 每股收益与股价有什么区别与关联？ 超声电子000823今年每股年报收益是多少 股票代码加G后，每股收益是否要重新计算？ 股改除权后每股收益会随之改变吗? 请问：股票软件有每股收益排名的是那家？