手续费:commission 0.1% 5
印花税:stampttax 0.1%
过户费:transferfee 1
if stricmp(marketlabel,'sh')=0 then begin
commission:=0.001;
stamptax:=0.001;
transferfee:=0.001;
end
if stricmp(marketlabel,'sz')=0 then begin
commission:=0.001;
stamptax:=0.001;
transferfee:=0;
end
costprice*volunit*lots - enterprice*volunit*lots = (enterprice*volunit*lots*commission+volunit*lots*transferfee)+(costprice*volunit*lots*commission+volunit*lots*trnsferfee+costprice*volunit*lots*stamptax)
costprice - enterprice = (enterprice*commission+transferfee)+(costprice*commission+transferfee+costprice*stamptax)
costprice - costprice*commission - costprice*stamptax = enterprice + enterprice*commission + 2*transferfee
costprice*(1-commission-stamptax) = enterprice*(1+commission)+2*transferfee
costprice = (enterprice*(1+commission) + 2*transferfee)/(1-commission-stamptax)
costprice = trimprice((enterprice*(1+commission)+2*transferfee)/(1-commission-stamptax))+mindiff;