以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [原创]沪深A股成本价计算  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=5213)
--  作者：z7c9
--  发布时间：2011/2/19 10:42:14
--  [原创]沪深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编辑过]