//09:05後選單內各買一張
var:tda(0),now(0),msg(""),finsh("");
tda = currentDate;
now = currentTime;
if currentTime > 090500 and currentTime <132400
and Position = 0
and position = filled
then begin
//SetPosition(position+1,market);
SetPosition(1,market);
print(file("d:\XQ選單內各買一張.txt"),datetoString(tda)," ",hour(now)," ",minute(now)
," ",symbolName," ",symbol," 買進張數 = ",position+1," Position = ",Position," Filled = ",Filled,finsh);
finsh = " 執行完畢";
msg = text(tda," ",now," ",symbolName," ",symbol,finsh);
raiseRunTimeError(msg);
end;
//列印成果
//2024/07/22 9.000000 5.000000 XX ####.TW 張數 = 1 Position = 0.000000 Filled = 0.000000
//raiseRunTimeError顯示
//原因:執行時發生錯誤(1301)raiseRunTimeError:20240722.000000 131019.000000 XX ####.TW 執行完畢
3 評論