' Calculates the price of a coupon bearing bond (Braess).
Function B_Price_Braess(Sett_d As Date, Mat_d As Date, Cpn As Double, Yield As Double) As Double

    Dim L As Double, t As Double, sz As Double
    Dim n As Long
    L = Application.Days360(Sett_d, Mat_d) / 360
    n = Int(L)
    t = L - n
    sz = Cpn * (1 - t)
    B_Price_Braess = (-Application.PV(Yield, n, Cpn, 100) + Cpn) / (1 + Yield * t) - sz
End Function