basiccost.cpp

股票成本计算

//---------------------------------------------------------------------------


#pragma hdrstop
#include "StdAfx.h"
#include "BasicCost.h"

//---------------------------------------------------------------------------



 TBasicCost::TBasicCost()
{
        m_dComissionRate = 1.5/1000;
        m_dStampTaxRate = 3.0/1000;
}
 TBasicCost::~TBasicCost()
{
}
double  TBasicCost::Cost_Price(double TotalInMoney, double TotalInFee)
{
        double CostPrice;
        CostPrice = (TotalInFee + TotalInMoney) /(m_nTotalIn * 100);
        return CostPrice;
}
double  TBasicCost::Total_In_Money(int TotalIn, double InPrice)
{
        double  TotalMoney;
        TotalMoney =  InPrice * TotalIn *100;
        return TotalMoney;
}
double  TBasicCost::Total_Out_Money(int TotalOut, double OutPrice)
{
        double  TotalMoney;
        TotalMoney =  OutPrice * TotalOut *100;
        return TotalMoney;
}
double  TBasicCost::Total_In_Fee(double TotalInMoney)
{
        double TotalInCost, StampTax, Comission;
        StampTax = m_dTotalInMoney * m_dStampTaxRate;
        Comission = m_dTotalInMoney * m_dComissionRate;
        if(Comission < 5)
                Comission = 5;
        TotalInCost = StampTax + Comission;
        return TotalInCost;

}
double  TBasicCost::Total_In_Fee(double TotalInMoney, double TransferFeeRate, int CommFee)
{
        double TotalInCost, StampTax, Comission, TransferFee;
        StampTax = m_dTotalInMoney * m_dStampTaxRate;
        Comission = m_dTotalInMoney * m_dComissionRate;
        if(Comission < 5)
                Comission = 5;
        TransferFee = m_nTotalIn * 100 * TransferFeeRate;
        if (TransferFee < 1)
                TransferFee = 1;
        TotalInCost = StampTax + Comission + TransferFee + CommFee;
        return TotalInCost;
}
double  TBasicCost::Out_Cost_Price()
{
        double  OutCostPrice, temp, temp1;
        temp =  m_dComissionRate * m_dTotalInMoney;
        if(temp < 5)
                temp = 5;
        temp1 = temp / m_dTotalInMoney;
        OutCostPrice = m_dInPrice * (1 +  m_dComissionRate + temp1) /
                         (1 -  m_dComissionRate - m_dStampTaxRate);
        return OutCostPrice;
}

double  TBasicCost::Out_Cost_Price(double TransferFeeRate, int CommFee)
{
        double  OutCostPrice, temp, temp1 ,temp2;
        temp =  m_dComissionRate * m_dTotalInMoney;
        if(temp < 5)
                temp = 5;
        temp1 = temp / m_dTotalInMoney;
        temp2 = m_nTotalIn * 100 * TransferFeeRate;
        if (temp2 < 1)
                temp2 = 1;
        OutCostPrice = m_dInPrice * (1 +  m_dComissionRate + temp1 + 2*(temp2 + CommFee)) /
                         (1 -  m_dComissionRate - m_dStampTaxRate -  2*(temp2 + CommFee));
        return OutCostPrice;
}