CalcBussinesValuePerCent