[原创]沪深A股成本价计算 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

手续费: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;

[此贴子已经被作者于2011-2-19 10:43:07编辑过]

主题：[原创]沪深A股成本价计算