選股
EPS
本益比
GetFieldDate(欄位名稱, 頻率)
: 取得欄位的資料日期
value1=(
GetField("每股稅後淨利(元)","Y") +
GetField("每股稅後淨利(元)","Y")[1] +
GetField("每股稅後淨利(元)","Y")[2] +
GetField("每股稅後淨利(元)","Y")[3] +
GetField("每股稅後淨利(元)","Y")[4]
) / 5; // 計算過去五年的每股平均稅後淨利
input:pehb(8,"本益比上限"); // 本益比上限抓8倍
if close < value1 * pehb then // 股價低於用過去五年平均EPS計算的八倍本益比
begin
// 取各獲利能力相關的欄位季資料
value2=GetField("營業毛利率","Q");
value3=GetField("每股稅後淨利(元)","Q");
value4=GetField("股東權益報酬率","Q");
value5=GetFieldDate("營業毛利率","Q");
if
// 與上一季的資料相比
value2 - value2[1] > 1 or
value3 - value3[1] > 0.5 or
value4 - value4[1] > 1
then ret=1;
end;
// 增加選股結果的欄位
outputfield(1,value1,1,"過去五年平均EPS");
outputfield(2,close / value1,1,"本益比");
outputfield(3,value2 - value2[1],1,"毛利率季增加絕對值");
outputfield(4,value3 - value3[1],1,"EPS增加值");
outputfield(5,value4 - value4[1],1,"ROE增加值");
outputfield(6,value5,0,"財報日期");