單日三大法人同買股

426
最後發表 Hk 2016 十二月 19

Hk 發文於 2016/12/18

寫了一個簡單程式想撈出過去20天內, 單日三大法人同買股, 並計算同買天數

發現不論是用Truecount 或手動loop 計算天數, 出來的結果都不太正確

(1) Truecount

variable: i(0);
settotalbar(20);

value1 = GetField("外資買賣超", "D");
value2 = GetField("投信買賣超","D");
value3 = GetField("自營商買賣超","D");

Condition1 = TrueAny(value1 > 0 and value2 > 0 and value3 > 0,20);
Value4 = TrueCount(value1 > 0 and value2 > 0 and value3 > 0, 20);

IF Condition1 Then
Begin
Ret = 1;
OutputField(1,Value4,"同買天數");
End;

(2) For 迴圈

variable: i(0);
settotalbar(20);

value1 = GetField("外資買賣超", "D");
value2 = GetField("投信買賣超","D");
value3 = GetField("自營商買賣超","D");

Condition1 = TrueAny(value1 > 0 and value2 > 0 and value3 > 0,20);
Value4 = TrueCount(value1 > 0 and value2 > 0 and value3 > 0, 20);

for i = 0 to 19
if value1[i] > 0 and value2[i] > 0 and value3[i] > 0 then value4 = value4 + 1;

IF Condition1 Then
Begin
Ret = 1;
OutputField(1,Value4,"同買天數");
End;