|
来一段VBA,识货的可以来围观:
Function EVA(Econ_Profit As Single, WACC As Single, Invest_Capital As Single)
EVA = Econ_Profit - (WACC * Invest_Capital)
End Function
Function WACC(EQUITY_COST As Single, Equity_Capital As Single, Debt_Cost As Single, Debt_Capital As Single, Tax_Rate As Single)
WACC = ((Debt_Capital / (Debt_Capital + Equity_Capital)) * Debt_Cost * (1 - Tax_Rate)) + ((Equity_Capital / (Debt_Capital + Equity_Capital)) * EQUITY_COST)
End Function
Function EQUITY_COST(Riskfree_Rate As Single, Mkt_Risk_Prem As Single, Equity_Beta As Single, Liquidity_Prem As Single)
EQUITY_COST = Riskfree_Rate + (Mkt_Risk_Prem * Equity_Beta) + Liquidity_Prem
End Function
|