请教计算持仓品种盈亏金额的公式

105053

我想计算每个持仓品种的盈亏金额，麻烦发一下计算公式，谢谢。

资深技术02

多头浮盈:tbuyholding(1)*(close-TAVGENTERPRICEEX2('','',0))*MULTIPLIER;

空头浮盈:tsellholding(1)*(TAVGENTERPRICEEX2('','',1)-close)*MULTIPLIER;

105053

我要统计持仓品种盈利金额<3000的数量，代码如下，统计出来的结果和实际不一致，能帮忙改一下代码吗？ 反正能实现效果的代码就行。

TH:=THOLDCOUNT('');
TEMP_STR:='';//保存品种代码集合
j:=0;
FOR I=1 TO TH do
BEGIN
HLABEL:= THOLDINDEXLABEL(I,'');
//判断当前代码集合中是否已经存在，不存在则进行统计。存在则不进入统计
if STRFIND(TEMP_STR,','&HLABEL,1)=0 then begin
        //将不在代码集合中的品种添加到代码集合中。
        TEMP_STR:=STRCAT( TEMP_STR, ','&HLABEL );       
        if tsellholding(1)*(TAVGENTERPRICEEX2('','',1)-close)*MULTIPLIER<3000 or tbuyholding(1)*(close-TAVGENTERPRICEEX2('','',0))*MULTIPLIER<3000 then
        j:=j+1;
END
end   
lossnum:J;
DEBUGFILE('E:\SHIPAN.TXT',stklabel+'lossnum数量：%.0f',lossnum);

资深技术02

TH:=THOLDCOUNT('');
TEMP_STR:='';//保存品种代码集合
j:=0;
FOR I=1 TO TH do
BEGIN
HLABEL:= THOLDINDEXLABEL(I,'');   
        if tsellholdingex('',HLABEL,1)*(TAVGENTERPRICEEX2('',HLABEL,1)-DYNAINFO2(7 , HLABEL))*DYNAINFO2(209 , HLABEL)<3000 and tsellholdingex('',HLABEL,1)>0 then  j:=j+1;
        if tbuyholdingex('',HLABEL,1)*(DYNAINFO2(7 , HLABEL)-TAVGENTERPRICEEX2('',HLABEL,0))*DYNAINFO2(209 , HLABEL)<3000 and tbuyholdingex('',HLABEL,1)>0 then j:=j+1;
END   
lossnum:J;

资深技术02

要分开计算的，因为你仓位=0的情况下，计算出来的0肯定是小于3000
所以没用

105053

测试了可行，多谢！